anchor.diff:  
   (defmethod postscript-set-graphics-state (stream medium
                                             (kind (eql :clipping-region)))
  +  ;; FIXME: There is no way to enlarge clipping path. Current code
  +  ;; does only one level of saving graphics state, so we can restore
  +  ;; and save again GS to obtain an initial CP. It is ugly, but I see
  +  ;; no other way now. -- APD, 2002-02-11
  +  (postscript-restore-graphics-state medium)
  +  (postscript-save-graphics-state medium)
     (postscript-set-clipping-region stream
                                     (medium-clipping-region medium)))
   
  
positive.code: 
  
  ;;; 
  
  (defgeneric postscript-add-path (stream region)
    (:documentation
  
negative.code: ;;; - (?) WITH-OUTPUT-TO-POSTSCRIPT-STREAM should bind its first argument
  ;;;   to stream, not to medium.
  ;;;
  ;;; - POSTSCRIPT-ACTUALIZE-GRAPHICS-STATE: fix CLIPPING-REGION reusing logic
  ;;; - NEWPAGE should do smth with GS
  ;;; - MEDIUM-DRAW-... should not duplicate code from POSTSCRIPT-ADD-PATH
  ;;; - structure this file
  
  