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))))