Fix typo.

This commit is contained in:
jjgarcia 2002-05-13 07:24:10 +00:00
parent 2fc2421073
commit 6f10f3e925

View file

@ -121,7 +121,7 @@
(sys::*print-structure* t))
(wt-filtered-data
(typecase expr
(COMPILED-FUNCTION
(FUNCTION
(prin1-to-string (sys:compiled-function-name expr)))
(PACKAGE
(format nil "~%#.(find-package ~S)" (package-name expr)))