anchor.diff:            (format file-stream "%%EndComments~%~%")
             (format file-stream "%%Page: 1 1~%")
             (format file-stream "newpath~%"))
  -        (funcall continuation medium)
  +        (with-graphics-state (medium)
  +          ;; we need at least one level of saving -- APD, 2002-02-11
  +          (funcall continuation medium))
         (with-slots (file-stream current-page document-fonts) medium
           (format file-stream "showpage~%~%")
           (format file-stream "%%Trailer~%")
  
positive.code: 
  (defmethod medium-draw-points* ((medium postscript-medium) coord-seq)
    (let ((stream (postscript-medium-file-stream medium)))
      (with-graphics-state (stream)
        (format stream "0 setlinewidth~%")
        (loop with radius = (/ (line-style-thickness (medium-line-style medium)) 2)
  	    for (x y) on coord-seq by #'cddr
  
negative.code: 
  
  ;;; Postscript path functions
  
  (defgeneric postscript-add-path (stream region)
    (:documentation
  