[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-arglists.lisp 
Log Message:
* swank-arglists.lisp (extract-local-op-arglists (eql 'labels)):
Fix (labels ((name |))).


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/03/09 23:26:23	1.356
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/03/12 23:59:24	1.357
@@ -1,3 +1,8 @@
+2010-03-12  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-arglists.lisp (extract-local-op-arglists (eql 'labels)):
+	Fix (labels ((name |))).
+
 2010-03-09  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-arglists.lisp (arglist-ref): Don't error if a &key name isn't
--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2010/03/09 23:26:23	1.59
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2010/03/12 23:59:24	1.60
@@ -1293,7 +1293,7 @@
     ;; Notice that we only have information to "look backward" and
     ;; show arglists of previously occuring local functions.
     (destructuring-bind (defs . body) args
-      (unless (atom defs)                ; `(labels ,foo (|'
+      (unless (or (atom defs) (null body))   ; `(labels ,foo (|'
         (let ((current-def (car (last defs))))
           (cond ((atom current-def) nil) ; `(labels ((foo (x) ...)|'
                 ((not (null body))