Skip to content
Snippets Groups Projects
Commit 51cf08b5 authored by rtoy's avatar rtoy
Browse files

Make printing of the debug arglist a little more robust. An example:

(defun foo (&optional (x #.(find-package "CL-USER"))) x)

See cmucl-imp mailing list, around 2008/04/14.

This is mostly based on Helmut Eller's solution, slightly modified.
We try to print the strings normally, but if we can't we use Helmut's
solution to get a nice result.  Also handle circular arguments by
binding *print-circle* to T.
parent cc8dc3a8
No related branches found
No related tags found
Loading
Loading
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment