anchor.diff:        (loop with radius = (/ (line-style-thickness (medium-line-style medium)) 2)
   	    for (x y) on coord-seq by #'cddr
   	    do (progn
  -		 (format stream "~,15G ~,15G ~,15G 0 360 arc~%" x y radius)
  +		 (format stream "~A ~A ~A 0 360 arc~%"
  +                         (format-postscript-number x) (format-postscript-number y)
  +                         (format-postscript-number radius))
   		 (format stream "fill~%")
   		 (format stream "newpath~%"))))))
   
  
positive.code:       ,@body
        (format ,gstream "grestore~%"))))
  
  (defmethod medium-draw-point* ((medium postscript-medium) x y)
    (let ((stream (postscript-medium-file-stream medium)))
      (with-graphics-state (stream)
        (format stream "~,15G ~,15G ~,15G 0 360 arc~%"
  	      x y (/ (line-style-thickness (medium-line-style medium)) 2))
        (format stream "0 setlinewidth~%")
        (postscript-color stream medium)
        (format stream "fill~%"))))
  
negative.code:   (let ((stream (postscript-medium-file-stream medium)))
      (with-graphics-state (stream)
        (postscript-line-style-and-color stream medium)
        (format stream "~A ~A moveto ~A ~A lineto~%"
                (format-postscript-number x1) (format-postscript-number y1)
                (format-postscript-number x2) (format-postscript-number y2))
        (format stream "stroke~%"))))
  
  (defmethod medium-draw-lines* ((medium postscript-medium) coord-seq)
  