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

[Marco Baringer]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
See ChangeLog entry Marco Baringer 2004-03-01

Date: Mon Mar  1 10:46:29 2004
Author: mbaringer

Index: slime/ChangeLog
diff -u slime/ChangeLog:1.275 slime/ChangeLog:1.276
--- slime/ChangeLog:1.275	Mon Mar  1 04:04:24 2004
+++ slime/ChangeLog	Mon Mar  1 10:46:27 2004
@@ -1,3 +1,7 @@
+2004-03-01  Marco Baringer  <mb at bese.it>
+
+	* swank.lisp (format-arglist): deal with nil arglists.
+
 2004-03-01  Helmut Eller  <e9626484 at stud3.tuwien.ac.at>
 
 	* swank-lispworks.lisp (compile-string-for-emacs): Patch the


Index: slime/swank.lisp
diff -u slime/swank.lisp:1.130 slime/swank.lisp:1.131
--- slime/swank.lisp:1.130	Sun Feb 29 03:59:28 2004
+++ slime/swank.lisp	Mon Mar  1 10:46:27 2004
@@ -696,10 +696,12 @@
         (let ((symbol (find-symbol-or-lose function-name)))
           (values (funcall lambda-list-fn symbol))))
     (cond (condition (format nil "(-- ~A)" condition))
-          (t (let ((*print-case* :downcase)
-                   (*print-level* nil)
-                   (*print-length* nil))
-               (princ-to-string arglist))))))
+          (t (if (null arglist)
+                 "()"
+                 (let ((*print-case* :downcase)
+                       (*print-level* nil)
+                       (*print-length* nil))
+                   (princ-to-string arglist)))))))
 
 
 ;;;; Debugger