anchor.diff:  
   (defmethod postscript-set-clipping-region (stream (region (eql +nowhere+)))
     (declare (ignore region))
  -  (format stream "~@
  -newpath
  -0 0 moveto
  -closepath
  -clip
  -"))
  +  (format stream "newpath 0 0 moveto closepath clip~%"))
   
   (defmethod postscript-set-graphics-state (stream medium
                                             (kind (eql :clipping-region)))
  
positive.code:       (medium-color-rgb medium (medium-ink medium))
      (format stream "~,3F ~,3F ~,3F setrgbcolor~%" r g b)))
  
  (defun postscript-line-style-and-color (stream medium)
    (postscript-line-style stream medium)
    (postscript-color stream medium))
  
  (defgeneric postscript-set-clipping-region (stream region))
  
  (defmethod postscript-set-clipping-region (stream region)
  
negative.code:                                        :huge 24))
  
  (defun text-style->postscript-font (text-style)
    (multiple-value-bind (family face size) (text-style-components text-style)
      (let* ((family-fonts (or (getf +postscript-fonts+ family)
                               (getf +postscript-fonts+ :fix)))
             (font-name (or (getf family-fonts face)
  