[slime-cvs] CVS update: slime/swank.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv20676

Modified Files:
	swank.lisp 
Log Message:
(define-printer-variables): NIL is not a valid docstring.  Reported by
Alain Picard.
Date: Tue Oct 19 07:57:30 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.251 slime/swank.lisp:1.252
--- slime/swank.lisp:1.251	Sun Oct 17 23:50:23 2004
+++ slime/swank.lisp	Tue Oct 19 07:57:29 2004
@@ -1264,7 +1264,8 @@
                     collect `(,(symconc 'print name) ,(symconc prefix name))))
         `(progn 
            ,@(loop for (name init doc) in bindings
-                   collect `(defvar ,(symconc prefix name) ,init ,doc)))))))
+                   collect `(defvar ,(symconc prefix name) ,init 
+                              ,@(if doc doc))))))))
 
 (define-printer-variables swank-pprint
   circle level length case right-margin escape)
@@ -3041,8 +3042,8 @@
         (format nil "#~D=~A" pos string)
         string)))
 
-(defun inspector-content-for-emacs (spec)
-  (loop for part in spec collect 
+(defun inspector-content-for-emacs (specs)
+  (loop for part in specs collect 
         (etypecase part
           (null ; XXX encourages sloppy programming
            nil)