anchor.diff:                               (lambda (x y)
                                  (format stream "newpath~%")
                                  (write-coordinates stream x y)
  -                               (format stream "~A 0 360 arc~%"
  -                                       (format-postscript-number radius))
  +                               (format stream "~A 0 360 arc~%" radius)
                                  (format stream "fill~%"))
                                coord-seq))))
   
  
positive.code:         ;;
          ;; KLUDGE: clipping-region MUST be actualized first due to its
          ;; dirty dealing with graphics state. -- APD, 2002-02-11
          unless (eq (postscript-current-state medium kind)
                     (postscript-saved-state medium kind))
          do (postscript-set-graphics-state stream medium kind)
             (setf (postscript-saved-state medium kind)
                   (postscript-current-state medium kind))))
  
negative.code: 
  (defmethod medium-draw-point* ((medium postscript-medium) x y)
    (let ((stream (postscript-medium-file-stream medium))
          (*transformation* (sheet-native-transformation (medium-sheet medium)))
          (radius (format-postscript-number (/ (medium-line-thickness medium) 2))))
      (postscript-actualize-graphics-state stream medium :color)
      (with-graphics-state (medium) ; FIXME: this is because of setlinewidth below
        (format stream "newpath~%")
        (write-coordinates stream x y)
        (format stream "~A 0 360 arc~%" radius)
        (format stream "0 setlinewidth~%")
        (format stream "fill~%"))))
  
  (defmethod medium-draw-points* ((medium postscript-medium) coord-seq)
    (let ((stream (postscript-medium-file-stream medium))
          (*transformation* (sheet-native-transformation (medium-sheet medium)))
          (radius (format-postscript-angle (/ (medium-line-thickness medium) 2))))
      (postscript-actualize-graphics-state stream medium :color)
      (with-graphics-state (medium) ; FIXME: this is because of setlinewidth below
        (format stream "0 setlinewidth~%")
  