anchor.diff:    (when (stream-recording-p stream)
       (let* ((medium (sheet-medium stream))
              (text-style (medium-text-style medium))
  -	   (height (text-style-height text-style medium))
  -	   (ascent (text-style-ascent text-style medium)))
  +           (height (text-style-height text-style medium))
  +           (ascent (text-style-ascent text-style medium)))
         (if (characterp line)
  -	  (stream-add-character-output stream line text-style
  -				       (stream-character-width
  -					stream line :text-style text-style)
  -				       height
  -				       ascent)
  -	  (stream-add-string-output stream line start end text-style
  -				    (or string-width
  -					(stream-string-width stream line
  +          (stream-add-character-output stream line text-style
  +                                       (stream-character-width
  +                                        stream line :text-style text-style)
  +                                       height
  +                                       ascent)
  +          (stream-add-string-output stream line start end text-style
  +                                    (or string-width
  +                                        (stream-string-width stream line
                                                                :start start :end end
                                                                :text-style text-style))
  -				    height
  -				    ascent))))
  +                                    height
  +                                    ascent))))
   
     (when (stream-drawing-p stream)
       (call-next-method)))
  
positive.code:     (otherwise (map-over-tree-output-records
                  (lambda (child)
                    (when (region-intersects-region-p
  			 (multiple-value-call 'make-rectangle*
  			   (bounding-rectangle* child))
  			 region)
  		    (apply function child function-args)))
                  record
  		(%record-to-spatial-tree-rectangle (bounding-rectangle region))
  		:most-recent-last
                  '()))))
  
  (defmethod recompute-extent-for-changed-child :around ((record standard-tree-output-record) child old-min-x old-min-y old-max-x old-max-y)
  
negative.code:   ((ink :initarg :ink :accessor graphics-state-ink)))
  
  (defmethod initialize-instance :after ((obj gs-ink-mixin)
                                         &key (stream nil)
                                         (medium (when stream
                                                   (sheet-medium stream))))
    (when (and medium (not (slot-boundp obj 'ink)))
      (setf (slot-value obj 'ink) (medium-ink medium))))
  
  