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!!!
    (let* ((width (stream-string-width stream string
                                       :start start :end end
                                       :text-style text-style))
  
positive.code: 	 (declare (ignore x-offset y-offset))
  	 (with-slots (ink clip transform line-style text-style ,@args) record
  	   (let ((,old-medium (sheet-medium stream))
  		 (,new-medium (make-merged-medium stream ink (region-intersection clip region)
                                                    transform line-style text-style)))
  	     (unwind-protect
  		 (progn
  		   (setf (sheet-medium stream) ,new-medium)
  
negative.code:        (defmethod initialize-instance :after ((graphic ,class-name) &rest args)
  	 (declare (ignore args))
  	 (with-slots (x1 y1 x2 y2
  		      stream ink clipping-region transform
  		      line-style text-style
  		      ,@args) graphic
             (let ((,border (1+ (/ (line-style-thickness line-style) 2))))
  