anchor.diff:  
    
  -;;; 
  +;;; Postscript path functions
   
   (defgeneric postscript-add-path (stream region)
     (:documentation
  
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:    (for :initarg :for)
     (orientation :initarg :orientation)
     (current-page :initform 1)
     (document-fonts :initform '())
     (graphics-state-stack :initform '())))
  
  (defmacro postscript-medium-graphics-state (medium)
    `(car (slot-value ,medium 'graphics-state-stack)))
  
  (defun make-postscript-medium (file-stream device-type
                                 multi-page scale-to-fit
  