1.0.16.11: ANY-REG is good for pritimitive-type T on x86/x86-64

[sbcl/tcr.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))))