anchor.diff:  ;;; Graphics recording classes
   
   (defclass graphics-displayed-output-record (displayed-output-record)
  -  ((clip :initarg :clipping-region)
  +  ((clip :initarg :clipping-region
  +         :documentation "Clipping region in user coordinates.")
      (transform :initarg :transformation)
      (line-style :initarg :line-style)
      (text-style :initarg :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: 
  (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))
  