1.0.23.21: Stack allocated conses for MIPS.
[sbcl.git] / tests / bug-417.lisp
1 ;;; bug 417: toplevel nil confusing source-path logic
2 nil
3 (defmethod frob ((package package) stream)
4   (if (string= (package-name package) "FOO")
5       (pprint-logical-block (stream nil))
6       (print-unreadable-object (package stream))))