(setf *standard-pprint-dispatch-table*
(copy-pprint-dispatch *initial-pprint-dispatch-table*))
- (setf *print-pprint-dispatch* *initial-pprint-dispatch-table*)
+ (setf *print-pprint-dispatch*
+ (copy-pprint-dispatch *initial-pprint-dispatch-table*))
(setf *print-pretty* t))