anchor.diff:  (defmethod graft-units ((graft postscript-graft))
     :device)
   
  +(defun graft-length (length units)
  +  (* length (ecase units
  +              (:device       (/ 720 254))
  +              (:inches       (/ 10 254))
  +              (:millimeters  1)
  +              (:screen-sized (/ length)))))
  +
   (defmethod graft-width ((graft postscript-graft) &key (units :device))
  -  (* (postscript-graft-width graft)
  -     (ecase units
  -       (:device         (/ 720 254))
  -       (:inches         (/ 10 254))
  -       (:millimeters    1)
  -       (:screen-sized   (/ (postscript-graft-width graft))))))
  +  (graft-length (postscript-graft-width graft) units))
   
   (defmethod graft-height ((graft postscript-graft) &key (units :device))
  -  (* (postscript-graft-height graft)
  -     (ecase units
  -       (:device         (/ 720 254))
  -       (:inches         (/ 10 254))
  -       (:millimeters    1)
  -       (:screen-sized   (/ (postscript-graft-height graft))))))
  +  (graft-length (postscript-graft-height graft) units))
   
   (defun make-postscript-graft ()
     (make-instance 'postscript-graft))
   
   (defmethod sheet-region ((sheet postscript-graft))
  -  (make-rectangle* 0 0
  -                   (graft-width sheet :units (graft-units sheet))
  -                   (graft-height sheet :units (graft-units sheet))))
  +  (let ((units (graft-units sheet)))
  +    (make-rectangle* 0 0
  +                     (graft-width sheet :units units)
  +                     (graft-height sheet :units units))))
   
   (defmethod graft ((sheet postscript-graft))
     sheet)
  
positive.code:   (declare (ignore x y))
    (values))
  
  ;;;;
  ;;;; POSTSCRIPT-GRAFT
  ;;;;
  
  (defclass postscript-graft (basic-sheet sheet-leaf-mixin)
    ((width  :initform 210 :reader postscript-graft-width)
  
negative.code:   (push (stream-output-history stream) (postscript-pages stream))
    (let ((history (make-instance 'standard-tree-output-history :stream stream)))
      (setf (slot-value stream 'climi::output-history) history
  	  (stream-current-output-record stream) history))
    (setf (stream-cursor-position stream)
          (stream-cursor-initial-position stream)))
  
  