[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv30932

Modified Files:
	ChangeLog swank-openmcl.lisp 
Log Message:
* swank-openmcl.lisp (arglist): Return :not-available if the arglist
cannot be obtained. Patch by Terje Norderhaug.


--- /project/slime/cvsroot/slime/ChangeLog	2009/06/29 04:24:51	1.1799
+++ /project/slime/cvsroot/slime/ChangeLog	2009/06/30 02:50:25	1.1800
@@ -1,3 +1,8 @@
+2009-06-30  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-openmcl.lisp (arglist): Return :not-available if the arglist
+	cannot be obtained. Patch by Terje Norderhaug.
+
 2009-06-29  Stas Boukarev  <stassats at gmail.com>
 
 	* swank.lisp (open-streams): do not create unnecessary output stream
--- /project/slime/cvsroot/slime/swank-openmcl.lisp	2009/06/28 19:15:08	1.181
+++ /project/slime/cvsroot/slime/swank-openmcl.lisp	2009/06/30 02:50:25	1.182
@@ -206,7 +206,10 @@
 ;;; Arglist
 
 (defimplementation arglist (fname)
-  (arglist% fname))
+  (multiple-value-bind (arglist binding) (arglist% fname)
+    (if binding
+        arglist
+        :not-available)))
 
 (defmethod arglist% ((f symbol))
   (ccl:arglist f))