anchor.diff:  ;;;; 12 Graphics
   
   (defun draw-point (sheet point
  -		   &rest args
  -		   &key ink clipping-region transformation
  -			line-style line-thickness line-unit)
  +                   &rest args
  +                   &key ink clipping-region transformation
  +                        line-style line-thickness line-unit)
     (declare (ignore ink clipping-region transformation
  -		   line-style line-thickness line-unit))
  +                   line-style line-thickness line-unit))
     (with-medium-options (sheet args)
       (multiple-value-bind (x y) (point-position point)
         (medium-draw-point* medium x y))))
   
   (defun draw-point* (sheet x y
  -		    &rest args
  -		    &key ink clipping-region transformation
  -			 line-style line-thickness line-unit)
  +                    &rest args
  +                    &key ink clipping-region transformation
  +                         line-style line-thickness line-unit)
     (declare (ignore ink clipping-region transformation
  -		   line-style line-thickness line-unit))
  +                   line-style line-thickness line-unit))
     (with-medium-options (sheet args)
       (medium-draw-point* medium x y)))
   
  
positive.code:           (when clipping-region
              (setf (medium-clipping-region medium)
                    (region-intersection
  		   (if transformation
  		       (transform-region transformation old-clip)
  		       old-clip)
  		   clipping-region)))
            (when (null line-style)
                (setf line-style old-line-style))
  	  (when (or line-unit
  		    line-thickness
  		    dashes-p
  		    line-joint-shape
  		    line-cap-shape)
              (setf changed-line-style t)
              (setf line-style
  		  (make-line-style
  		   :unit (or line-unit
  			     (line-style-unit line-style))
  		   :thickness (or line-thickness
  				  (line-style-thickness line-style))
  		   :dashes (if dashes-p
                                 line-dashes
                                 (line-style-dashes line-style))
  		   :joint-shape (or line-joint-shape
  				    (line-style-joint-shape line-style))
  		   :cap-shape (or line-cap-shape
  				  (line-style-cap-shape line-style)))))
            (when changed-line-style
              (setf (medium-line-style medium) line-style))
  	  (if text-style-p
  	      (setf text-style
  		    (merge-text-styles text-style
  				       (medium-merged-text-style medium)))
                (setf text-style (medium-merged-text-style medium)))
  	  (when (or text-family-p text-face-p text-size-p)
              (setf changed-text-style t)
              (setf text-style (merge-text-styles (make-text-style text-family
                                                                   text-face
  
negative.code:              options))))
  
  (defmethod draw-design (medium (design elliptical-arc)
                          &rest options &key &allow-other-keys)
    (multiple-value-bind (cx cy) (ellipse-center-point* design)
      (multiple-value-bind (r1x r1y r2x r2y) (ellipse-radii design)
        (apply #'draw-ellipse* medium
  