[slime-devel] [PATCH] operator-arglist

[Terje Norderhaug]

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