anchor.diff:          (setf (stream-recording-p stream) old-record-p)))))
   
   (defmethod replay-output-record ((record output-record) stream
  -				 &optional region x-offset y-offset)
  +				 &optional region (x-offset 0) (y-offset 0))
     (when (null region)
       (setq region +everywhere+))
     (map-over-output-records-overlaping-region
  
positive.code:   (typep x 'output-record))
  
  (defclass displayed-output-record (standard-bounding-rectangle output-record-mixin)
    ((ink :initarg :ink :reader displayed-output-record-ink)))
  
  (defun displayed-output-record-p (x)
    (typep x 'displayed-output-record))
  
negative.code: 	   (when (stream-drawing-p stream)
  	     (call-next-method))))
         (defmethod replay-output-record ((record ,class-name) stream
  					&optional (region +everywhere+)
                                          (x-offset 0) (y-offset 0))
  	 (with-slots (x y initial-x1 initial-y1
                        ink clip transform line-style text-style ,@args) record
             (let ((transformation (compose-translation-with-transformation
                                    transform
                                    (+ (- x initial-x1) x-offset)
                                    (+ (- y initial-y1) y-offset))))
               (let ((,old-medium (sheet-medium stream))
                     (,new-medium (make-merged-medium stream ink
                                                      (region-intersection clip
                                                                           (untransform-region transformation region))
                                                      transformation line-style text-style)))
                 (finish-output *error-output*)
                 (unwind-protect
                      (progn
                        (setf (sheet-medium stream) ,new-medium)
                        (setf (medium-sheet ,new-medium) stream)
                        (,method-name ,new-medium ,@args))
                   (setf (sheet-medium stream) ,old-medium)))))))))
  
  (def-grecording draw-point (point-x point-y)
    (with-transformed-position (transform point-x point-y)
  