[slime-cvs] CVS slime

[CVS User gcarncross]

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

Modified Files:
	swank-ecl.lisp 
Log Message:
2009-01-30  Geo Carncross  <geocar at gmail.com>

	* swank-ecl.lisp (grovel-docstring-for-arglist): Fix for arglist
	that reads, but isn't a list


--- /project/slime/cvsroot/slime/swank-ecl.lisp	2009/01/10 12:25:16	1.38
+++ /project/slime/cvsroot/slime/swank-ecl.lisp	2009/01/30 06:07:31	1.39
@@ -184,7 +184,9 @@
           (multiple-value-bind (arglist errorp)
               (ignore-errors
                 (values (read-from-string docstring t nil :start pos)))
-            (if errorp :not-available (cdr arglist)))
+            (if (or errorp (not (listp arglist)))
+                :not-available
+                (cdr arglist)))
           :not-available ))))
 
 (defimplementation arglist (name)