[slime-cvs] CVS slime/contrib

[trittweiler]

Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv18615

Modified Files:
	swank-arglists.lisp 
Log Message:

* swank-arglists (print-arglist): Print initforms in &optional and
  &key lambda list specifiers as if by PRIN1 instead of PRINC.
  Reported by Michael Weber.


--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2007/11/27 16:19:38	1.13
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2007/11/27 17:27:12	1.14
@@ -292,10 +292,12 @@
                  (arglist               ; destructuring pattern
                   (print-arglist arg))
                  (optional-arg
-		  (destructuring-bind (var &optional (initform nil initform-p))
-		      (encode-optional-arg arg)
-		    (pprint-logical-block (nil nil :prefix "(" :suffix ")")
-		      (format t "~A~:[~; ~S~]" var initform-p initform))))
+		  (let ((enc-arg (encode-optional-arg arg)))
+		    (if (symbolp enc-arg)
+			(princ enc-arg)
+			(destructuring-bind (var &optional (initform nil initform-p)) enc-arg
+			    (pprint-logical-block (nil nil :prefix "(" :suffix ")")
+			      (format t "~A~:[~; ~S~]" var initform-p initform))))))
                  (keyword-arg
                   (let ((enc-arg (encode-keyword-arg arg)))
                     (etypecase enc-arg