anchor.diff:  					:text-style text-style)) )
           (ascent (text-style-ascent text-style (sheet-medium stream)))
           (descent (text-style-descent text-style (sheet-medium stream)))
  -        (height (+ ascent descent))
   	(transform (medium-transformation medium)))
      (setf (values point-x point-y)
   	 (transform-position transform point-x point-y))
  
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: 
  (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)))
  
  