anchor.diff:                           (bounding-rectangle* record))))
       (call-next-method)
       (with-slots (parent x1 y1 x2 y2) record
  -                (when (and parent (not (region-equal old-rectangle record)))
  -                  (recompute-extent-for-changed-child parent record x1 y1 x2 y2)))))
  +      (when (and parent (not (region-equal old-rectangle record)))
  +        (recompute-extent-for-changed-child parent record x1 y1 x2 y2)))))
   
    
  
positive.code:            (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)))
                 (unwind-protect
                      (progn
                        (setf (%sheet-medium stream) ,new-medium) ;is sheet a sheet-with-medium-mixin? --GB
                        (setf (%medium-sheet ,new-medium) stream) ;is medium a basic-medium? --GB
                        (,method-name ,new-medium ,@args))
                   (setf (%sheet-medium stream) ,old-medium))))))))) ;is sheet a sheet-with-medium-mixin? --GB
  
  (def-grecording draw-point (point-x point-y)
    (with-transformed-position (transform point-x point-y)
  
negative.code:    (output-history :initform (make-instance 'standard-tree-output-history)
                     :reader stream-output-history)
     (current-output-record :accessor stream-current-output-record)
     (current-text-output-record :initform nil
                                 :accessor stream-current-text-output-record)
     (local-record-p :initform t
                     :documentation "This flag is used for dealing with streams outputting strings char-by-char.")))
  
  