anchor.diff:                                  (text-style-ascent text-style medium))))
     (without-local-recording stream
                              (call-next-method)))
  -  
  +
   
   (defmethod stream-finish-output :after ((stream standard-output-recording-stream))
     (stream-close-text-output-record stream))
  
positive.code: (defclass stream-output-history-mixin ()
    ())
  
  (defclass standard-sequence-output-history (standard-sequence-output-record stream-output-history-mixin)
    ())
  
  (defclass standard-tree-output-history (standard-tree-output-record stream-output-history-mixin)
    ())
  
  
negative.code:            (let ((transformation (compose-translation-with-transformation
                                    transform
                                    (+ (- x initial-x1) x-offset)
                                    (+ (- y initial-y1) y-offset)))
                   (,medium (sheet-medium stream))
                   ;; is sheet a sheet-with-medium-mixin? --GB
                   )
               (letf (((medium-ink ,medium) ink)
                      ((medium-transformation ,medium) transformation)
                      ((medium-clipping-region ,medium)
                       (region-intersection clip
                                            (untransform-region transformation
                                                                region)))
                      ((medium-line-style ,medium) line-style)
                      ((medium-text-style ,medium) text-style))
                 (,method-name ,medium ,@args))))))))
  
  (def-grecording draw-point (point-x point-y)
    (with-transformed-position (transform point-x point-y)
  