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@gmx.li + + * swank.lisp (format-arglist): Bind *PRINT-PRETTY* to NIL. + (eval-in-emacs): Fix typo in docstring. + 2004-02-21 Helmut Eller e9626484@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))))