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

[Helmut Eller]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
(arglist-string): Handle zero argument functions correctly.
Date: Sat Jan 17 05:23:19 2004
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.52 slime/swank-cmucl.lisp:1.53
--- slime/swank-cmucl.lisp:1.52	Sat Jan 17 04:59:48 2004
+++ slime/swank-cmucl.lisp	Sat Jan 17 05:23:19 2004
@@ -789,9 +789,10 @@
 		       ;; interpreted-debug-function
 		       (df (di::debug-function-lambda-list df))
 		       (t "(<arglist-unavailable>)"))))))
-      (if (stringp arglist)
-	  arglist
-	  (to-string arglist)))))
+      (etypecase arglist
+        (string arglist)
+        (cons (to-string arglist))
+        (null "()")))))
 
 
 ;;;; Miscellaneous.