anchor.diff:  (defmacro with-output-recording-options ((stream &key (record t) (draw t)) &body body)
     (declare (type symbol stream))
     (when (eq stream 't)
  -    (setq stream *standard-output*))
  +    (setq stream '*standard-output*))
     (let ((continuation-name (gensym)))
       `(let ((,continuation-name #'(lambda (,stream) ,@body)))
          (invoke-with-output-recording-options ,stream
  
positive.code:         (setf (stream-recording-p stream) old-record-p)))))
  
  (defmethod replay-output-record ((record output-record) stream
  				 &optional region x-offset y-offset)
    (when (null region)
      (setq region +everywhere+))
    (map-over-output-records-overlaping-region
  
negative.code:   ((stream output-recording-stream) continuation record draw)
    "Calls CONTINUATION on STREAM enabling or disabling recording and drawing
  according to the flags RECORD and DRAW."
    (declare (dynamic-extent continuation))
    (with-slots (recording-p drawing-p) stream
      (let ((old-record recording-p)
            (old-draw drawing-p))
        (unwind-protect
             (progn
               (setq recording-p record
                     drawing-p draw)
               (funcall continuation stream))
          (setq recording-p old-record
                drawing-p old-draw)))))
  
  (defmacro with-new-output-record ((stream
                                     &optional
                                     (record-type 'standard-sequence-output-record)
                                     (record nil record-supplied-p)
                                     &rest initargs)
                                    &body body)
  