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-clip-mixin) stream &optional region x-offset y-offset)
    (with-drawing-options (stream :clipping-region (graphics-state-clip record))
      (call-next-method)))
  
  
negative.code: 
  (defmethod replay-output-record :around
      ((record gs-text-style-mixin) stream &optional region x-offset y-offset)
    (declare (ignore region x-offset y-offset))
    (with-drawing-options (stream :text-style (graphics-state-text-style record))
      (call-next-method)))
  
  