anchor.diff:    (cond ((and (extended-output-stream-p stream)
                 (atom object)
                 *print-escape*)
  -         (print object *trace-output*)
  +         (when *debug-p*
  +           (print object *trace-output*))
            (with-output-as-presentation (stream object (clim:presentation-type-of object))
              (funcall (sb-pretty::pprint-dispatch object) stream object)))
           (t
  
positive.code:                  (list (make-instance 'item :x (stream-cursor-position stream))))
           'vector))
    ;;
    (print *items* *trace-output*)
    (setf *pointer* 0)
    (setf *phase* :doit)
    (setf (stream-cursor-position stream) (values cx cy))
  
negative.code:                (stream object (clim:presentation-type-of object))
               (doit stream object)))
            (t
             (let ((*pretty-printing-in-effect-p* t)
                   (*phase* *phase*))
               (with-end-of-line-action (stream :allow)
                 (multiple-value-bind (cx cy) (stream-cursor-position stream)
                   (with-end-of-page-action (stream :allow)
                     (start-phase-1 stream)
                     (with-output-recording-options (stream :record nil :draw nil)
                       (doit stream object)))
                   (start-phase-2 stream cx cy)
                   (with-output-as-presentation (stream object (clim:presentation-type-of object))
                     (doit stream object)))))))))
  