anchor.diff:  
   (defmethod replay-output-record :around
       ((record gs-ink-mixin) stream &optional region x-offset y-offset)
  +  (declare (ignore region x-offset y-offset))
     (with-drawing-options (stream :ink (graphics-state-ink record))
       (call-next-method)))
   
  
positive.code: 
  (defmethod replay-output-record :around
      ((record gs-line-style-mixin) stream &optional region x-offset y-offset)
    (with-drawing-options (stream :line-style (graphics-state-line-style record))
      (call-next-method)))
  
  
negative.code: 					:text-style text-style)) )
          (ascent (text-style-ascent text-style (sheet-medium stream)))
          (descent (text-style-descent text-style (sheet-medium stream)))
  	(transform (medium-transformation medium)))
     (setf (values point-x point-y)
  	 (transform-position transform point-x point-y))
  