Stop "initializing" in triplicate the GC control symbols

[sbcl.git] / tests / bug-417.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))))