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

[Helmut Eller]

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

Modified Files:
	swank.lisp swank-cmucl.lisp 
Log Message:
* swank.lisp (format-arglist): Bind *PRINT-PRETTY* to NIL.
(eval-in-emacs): Fix typo in docstring.

* swank-cmucl.lisp (arglist-string): Bind *PRINT-PRETTY* to NIL.

Date: Mon Feb 23 02:21:07 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.123 slime/swank.lisp:1.124
--- slime/swank.lisp:1.123	Sat Feb 21 11:37:27 2004
+++ slime/swank.lisp	Mon Feb 23 02:21:07 2004
@@ -691,7 +691,8 @@
         (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))
+          (t (let ((*print-case* :downcase)
+                   (*print-pretty* nil))
                (format nil "(~{~A~^ ~})" arglist))))))
 
 
@@ -795,7 +796,7 @@
 ;;;; Evaluation
 
 (defun eval-in-emacs (form)
-  "Execute FROM in Emacs."
+  "Execute FORM in Emacs."
   (destructuring-bind (fn &rest args) form
     (send-to-emacs `(:%apply ,(string-downcase (string fn)) ,args))))
 


Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.68 slime/swank-cmucl.lisp:1.69
--- slime/swank-cmucl.lisp:1.68	Sat Feb 21 11:42:19 2004
+++ slime/swank-cmucl.lisp	Mon Feb 23 02:21:07 2004
@@ -836,7 +836,9 @@
 		       (t "(<arglist-unavailable>)"))))))
       (etypecase arglist
         (string arglist)
-        (cons (let ((*print-case* :downcase)) (princ-to-string arglist)))
+        (cons (let ((*print-case* :downcase)
+                    (*print-pretty* nil))
+                (princ-to-string arglist)))
         (null "()")))))