Christophe Rhodes wrote:
> (defun print-symbol-with-prefix (*standard-output* &rest objects)
> (let ((*package* (find-package "KEYWORD")))
> (write (car objects) :stream *standard-output* :escape t)))
> (lambda (condition stream)
> (format stream "The function ~? is undefined."
> 'print-symbol-with-prefix (list (cell-error-name condition)))))
Oh, nifty. My format-fu is weak. This looks better than manually binding
*package*, but ~// seems to cover the common case much better, once
we're done with our sb!package tricks.