anchor.diff:              (text-style->postscript-font (medium-text-style medium))
             (pushnew font document-fonts :test #'string=)
             (format file-stream "/~A findfont ~D scalefont setfont~%" font size)
  -          (format file-stream "~,15G ~,15G moveto~%" x y)
  +          (format file-stream "~A ~A moveto~%"
  +                  (format-postscript-number x) (format-postscript-number y))
             (format file-stream "(~A) show~%" (postscript-escape-string string))))))
  
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:       (loop with points = (apply #'vector coord-seq)
              for i below (length coord-seq) by 4
              do
              (format stream "~A ~A moveto ~A ~A lineto~%"
                      (format-postscript-number (aref points i))
                      (format-postscript-number (aref points (1+ i)))
                      (format-postscript-number (aref points (+ i 2)))
                      (format-postscript-number (aref points (+ i 3))))
              finally (format stream "stroke~%")))))
  
  (defmethod medium-draw-polygon* ((medium postscript-medium) coord-seq closed filled)
    (assert (evenp (length coord-seq)))
    (let ((stream (postscript-medium-file-stream medium)))
      (with-graphics-state (stream)
        (format stream "~A ~A moveto~%"
                (format-postscript-number (car coord-seq))
                (format-postscript-number (cadr coord-seq)))
        (loop for (x y) on (cddr coord-seq) by #'cddr
              do (format stream "~A ~A lineto~%"
                         (format-postscript-number x) (format-postscript-number y))
              finally (format stream "~%"))
        (when closed
          (format stream "closepath~%"))
  