0.7.9.65:
[sbcl.git] / src / code / pprint.lisp
index baf4088..25fd9a0 100644 (file)
     (/show0 "leaving !PPRINT-COLD-INIT"))
 
   (setf *print-pprint-dispatch* (copy-pprint-dispatch nil))
-  (setf *pretty-printer* #'output-pretty-object)
   (setf *print-pretty* t))