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:        (defmethod initialize-instance :after ((graphic ,class-name) &rest args)
  	 (declare (ignore args))
  	 (with-slots (x1 y1 x2 y2
  		      stream ink clipping-region transformation
  		      line-style text-style
  		      ,@args) graphic
             (let ((,border (1+ (/ (line-style-thickness line-style) 2))))
  
negative.code: ;;; Graphics recording classes
  
  (defclass graphics-displayed-output-record (displayed-output-record)
    ((clip :initarg :clipping-region
           :documentation "Clipping region in user coordinates.")
     (transform :initarg :transformation)
     (line-style :initarg :line-style)
     (text-style :initarg :text-style)
  