On Jun 30, 2009, at 2:15 PM, Terje Norderhaug wrote:
Here is a patch that writes the function name and arglist as a list on a single line:
diff -u slime-2009-06-30/swank.lisp patch/swank.lisp --- slime-2009-06-30/swank.lisp 2009-06-29 00:15:06.000000000 -0700 +++ patch/swank.lisp 2009-06-30 14:04:48.000000000 -0700 @@ -3005,7 +3005,7 @@ (let ((args (arglist (parse-symbol name (guess-buffer-package package)))) (*print-escape* nil)) (cond ((eq args :not-available) nil)
(t (format nil "(~a ~/pprint-fill/)" name args))))))
(t (princ-to-string (cons name args)))))))
Also remove the binding of *print-escape*, obviously.
-- Terje Norderhaug