anchor.diff:    (let ((stream (postscript-medium-file-stream medium)))
       (with-graphics-state (stream)
         (postscript-line-style-and-color stream medium)
  -      (format stream "~,15G ~,15G moveto ~,15G ~,15G lineto~%" x1 y1 x2 y2)
  +      (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)
  
positive.code:       (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 "fill~%")
  		 (format stream "newpath~%"))))))
  
  
negative.code:             (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 "~A ~A moveto~%"
                    (format-postscript-number x) (format-postscript-number y))
            (format file-stream "(~A) show~%" (postscript-escape-string string))))))
  