anchor.diff:                   t)))))))
   
   (defmethod stream-pprint-indent ((stream extended-output-stream) relative-to amount)
  -  (ecase *phase*
  -    (:collect
  -     (push (make-instance 'indent
  -            :relative-to relative-to
  -            :amount amount
  -            :x (stream-cursor-position stream))
  -      *items*))
  -    (:doit
  -     (case relative-to
  -       (:current
  -        (setf (block-ind (car *block-stack*))
  -         (+ (stream-cursor-position stream)
  -          (* amount (text-size stream "m")))))
  -       (:block
  -        (setf (block-ind (car *block-stack*))
  -         (+ (block-x0 (car *block-stack*))
  -          (* amount (text-size stream "m"))))))
  -     (incf *pointer*)
  -     )))
  +  (when *pretty-printing-in-effect-p*
  +    (ecase *phase*
  +      (:collect
  +       (push (make-instance 'indent
  +              :relative-to relative-to
  +              :amount amount
  +              :x (stream-cursor-position stream))
  +        *items*))
  +      (:doit
  +       (case relative-to
  +         (:current
  +          (setf (block-ind (car *block-stack*))
  +           (+ (stream-cursor-position stream)
  +            (* amount (text-size stream "m")))))
  +         (:block
  +          (setf (block-ind (car *block-stack*))
  +           (+ (block-x0 (car *block-stack*))
  +            (* amount (text-size stream "m"))))))
  +       (incf *pointer*)
  +       ))))
   
   ;;;;
   
  
positive.code:                                              &rest args
                                               &key prefix per-line-prefix suffix)
    (apply *orig-invoke-with-logical-block* stream continuation object args))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
negative.code: ;;;; Patching SBCL into shape
  ;;;;
  
  (declaim (notinline sb-pretty::pretty-stream-p))
  
  (defvar *orig-invoke-with-logical-block*
    #'invoke-with-logical-block)
  
  (defvar *orig-pretty-stream-p*
    #'sb-pretty::pretty-stream-p)
  
  (progn ;;eval-when (compile eval load)
    (fmakunbound 'sb-pretty::pretty-stream-p)
    (defgeneric sb-pretty::pretty-stream-p (stream))
    (defmethod sb-pretty::pretty-stream-p (stream)
      (funcall *orig-pretty-stream-p* stream)))
  
  (fmakunbound 'stream-pprint-newline)
  (defgeneric stream-pprint-newline (stream kind))
  