anchor.diff:  (defvar *postscript-graphics-states*
     '((:line-style . medium-line-style)
       (:color . medium-ink)
  -    (:clipping-region . medium-clipping-region)))
  +    (:clipping-region . medium-clipping-region)
  +    (:text-style . medium-text-style)))
   
   (defun postscript-current-state (medium kind)
     (funcall (cdr (assoc kind *postscript-graphics-states*))
  
positive.code:                              (lambda (x y)
                                 (format stream "newpath~%")
                                 (write-coordinates stream x y)
                                 (format stream "~A 0 360 arc~%"
                                         (format-postscript-number radius))
                                 (format stream "fill~%"))
                               coord-seq))))
  
  
negative.code:                                 (getf +postscript-font-sizes+ :normal)))))
        (values font-name size-number))))
  
  (defun medium-font (medium)
    (text-style->postscript-font (medium-text-style medium)))
  
  (defmethod postscript-set-graphics-state (stream medium
                                            (kind (eql :text-style)))
    (multiple-value-bind (font size)
        (medium-font medium)
      (pushnew font (slot-value medium 'document-fonts) :test #'string=)
      (format stream "/~A findfont ~D scalefont setfont~%" font size)))
  
  (defun postscript-escape-char (char)
    (case char
      (#\Linefeed "\\n")
  