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: 
  (defmethod setf*-output-record-position (nx ny (record output-record-mixin))
    (with-slots (x y) record
      (setq x nx
  	  y ny)))
  
  (defmethod setf*-output-record-position :before (nx ny (record output-record))
    (multiple-value-bind (old-x old-y) (output-record-position record)
  
negative.code:                      y1 (- tp ,border)
                       x2 (+ rt ,border)
                       y2 (+ bt ,border))))))
         (defmethod setf*-output-record-position :before (nx ny (record ,class-name))
           (with-slots (x y x1 y1 x2 y2) record
                       (let ((dx (- nx x))
                             (dy (- ny y)))
                         (incf x1 dx) (incf y1 dy)
                         (incf x2 dx) (incf y2 dy))))
         (defmethod ,method-name :around ((stream output-recording-stream) ,@args)
  	 (with-sheet-medium (medium stream)
  	   (when (stream-recording-p stream)
  