Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
user avatar
rtoy authored
(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.
51cf08b5
History
Name Last commit Last update