[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-lispworks.lisp 
Log Message:
* swank-lispworks.lisp (describe-function): Don't use
string-upcase on lambda-list-argruments, because not all elements
must be symbols.

--- /project/slime/cvsroot/slime/ChangeLog	2008/10/31 14:13:10	1.1575
+++ /project/slime/cvsroot/slime/ChangeLog	2008/10/31 14:13:19	1.1576
@@ -1,5 +1,11 @@
 2008-10-31  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-lispworks.lisp (describe-function): Don't use
+	string-upcase on lambda-list-argruments, because not all elements
+	must be symbols.
+
+2008-10-31  Helmut Eller  <heller at common-lisp.net>
+
 	* swank.lisp (debug-in-emacs): Bind *sldb-quit-restart*
 	here, if necessary to the next abort retstart.
 
--- /project/slime/cvsroot/slime/swank-lispworks.lisp	2008/10/19 20:03:34	1.122
+++ /project/slime/cvsroot/slime/swank-lispworks.lisp	2008/10/31 14:13:19	1.123
@@ -217,10 +217,9 @@
 
 (defun describe-function (symbol)
   (cond ((fboundp symbol)
-         (format t "~%(~A~{ ~A~})~%~%~:[(not documented)~;~:*~A~]~%"
-                 (string-downcase symbol)
-                 (mapcar #'string-upcase 
-                         (lispworks:function-lambda-list symbol))
+         (format t "(~A ~/pprint-fill/)~%~%~:[(not documented)~;~:*~A~]~%"
+                 symbol
+                 (lispworks:function-lambda-list symbol)
                  (documentation symbol 'function))
          (describe (fdefinition symbol)))
         (t (format t "~S is not fbound" symbol))))