anchor.diff:  
   (def-grecording draw-text (string point-x point-y start end
   			   align-x align-y toward-x toward-y transform-glyphs)
  -  ;; XXX transformation!!!
  +  ;; FIXME!!! transformation
    (let* ((width (stream-string-width stream string
                                       :start start :end end
                                       :text-style text-style))
  
positive.code:   (declare (ignore nx ny))
    (with-bounding-rectangle* (min-x min-y max-x max-y) record
      (call-next-method)
      (recompute-extent-for-changed-child (output-record-parent record) record
                                          min-x min-y max-x max-y)))
  
  (defmethod output-record-start-cursor-position ((record displayed-output-record))
    (values nil nil))
  
negative.code:        (defmethod replay-output-record ((record ,class-name) stream
  					&optional (region +everywhere+) x-offset y-offset)
  	 (declare (ignore x-offset y-offset))
  	 (with-slots (x y ink clip transform line-style text-style ,@args) record
                       (let ((transformation (compose-translation-with-transformation transform x y)))
                         (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)
  