anchor.diff:  			&rest args
   			&key (filled t)
   			     ink clipping-region transformation line-style line-thickness
  -			     line-unit line-dashes line-cap-shape)
  -  (declare (ignore ink clipping-region transformation line-style line-thickness
  -		   line-unit line-dashes line-cap-shape))
  +			     line-unit line-dashes line-joint-shape)
  +  (declare (ignore ink clipping-region transformation line-style line-thickness
  +		   line-unit line-dashes line-joint-shape))
     (with-medium-options (sheet args)
       (multiple-value-bind (x1 y1) (point-position point1)
         (multiple-value-bind (x2 y2) (point-position point2)
  
positive.code: 		   &rest args
  		   &key (start 0) (end nil)
  			(align-x :left) (align-y :baseline)
  			towards-x towards-y transform-glyphs
  			ink clipping-region transformation
  			text-style text-family text-face text-size)
    (declare (ignore ink clipping-region transformation
  		   text-style text-family text-face text-size))
    (with-medium-options (sheet args)
      (multiple-value-bind (x y) (point-position point)
        (medium-draw-text* medium string x y
  			 start end
  			 align-x align-y
  			 towards-x towards-y transform-glyphs))))
  
  (defun draw-text* (sheet string x y
  		   &rest args
  
negative.code: 		    &rest args
  		    &key (filled t) (closed t)
  			 ink clipping-region transformation line-style line-thickness
  			 line-unit line-dashes line-joint-shape line-cap-shape)
    (declare (ignore ink clipping-region transformation line-style line-thickness
  		   line-unit line-dashes line-joint-shape line-cap-shape))
    (with-medium-options (sheet args)
      (medium-draw-polygon* medium coord-seq closed filled)))
  
  