mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
b1cd84e050
* Don't store non-unique objects like symbols, fixnums, or characters in *SOURCE-PATHS*. * For future refactoring ease, always access *SOURCE-PATHS* via GET-SOURCE-PATH and NOTE-SOURCE-PATH.
7 lines
239 B
Common Lisp
7 lines
239 B
Common Lisp
;;; bug 417: toplevel nil confusing source-path logic
|
|
nil
|
|
(defmethod frob ((package package) stream)
|
|
(if (string= (package-name package) "FOO")
|
|
(pprint-logical-block (stream nil))
|
|
(print-unreadable-object (package stream))))
|