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: ;;; Graphics recording classes
  
  (defclass graphics-displayed-output-record (displayed-output-record)
    ((clip :initarg :clipping-region)
     (transform :initarg :transformation)
     (line-style :initarg :line-style)
     (text-style :initarg :text-style)
  
negative.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
                                                                  (untransform-region transform region))
                                                    transform line-style text-style)))
               (finish-output *error-output*)
  	     (unwind-protect
  		 (progn
  		   (setf (sheet-medium stream) ,new-medium)
  