[slime-devel] Printing of function arglists

[lawrence mitchell]

I notice, occasionally, that slime prints arglists as:

(some-func #'foo &rest body)

This is due to the pretty-printing of the arglist, it should be:

(some-func (function foo) &rest body)

I'd propose the following change, unless it's likely to have
unwanted other effects.  (This patch also fixes a typo in
EVAL-IN-EMACS).

Index: ChangeLog
===================================================================
RCS file: /project/slime/cvsroot/slime/ChangeLog,v
retrieving revision 1.261
diff -u -r1.261 ChangeLog
--- ChangeLog	21 Feb 2004 16:45:25 -0000	1.261
+++ ChangeLog	22 Feb 2004 23:54:46 -0000
@@ -1,3 +1,8 @@
+2004-02-22  Lawrence Mitchell  <wence at gmx.li>
+
+	* swank.lisp (format-arglist): Bind *PRINT-PRETTY* to NIL.
+	(eval-in-emacs): Fix typo in docstring.
+
 2004-02-21  Helmut Eller  <e9626484 at stud3.tuwien.ac.at>
 
 	Add support for SERVE-EVENT based communication.


Index: swank.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank.lisp,v
retrieving revision 1.123
diff -u -r1.123 swank.lisp
--- swank.lisp	21 Feb 2004 16:37:27 -0000	1.123
+++ swank.lisp	22 Feb 2004 23:47:25 -0000
@@ -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))))
 

-- 
lawrence mitchell <wence at gmx.li>