anchor.diff:  (defmethod graft-units ((graft pdf-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 pdf-graft) &key (units :device))
  -  (* (pdf-graft-width graft)
  -     (ecase units
  -       (:device         (/ 720 254))
  -       (:inches         (/ 10 254))
  -       (:millimeters    1)
  -       (:screen-sized   (/ (pdf-graft-width graft))))))
  +  (graft-length (pdf-graft-width graft) units))
   
   (defmethod graft-height ((graft pdf-graft) &key (units :device))
  -  (* (pdf-graft-height graft)
  -     (ecase units
  -       (:device         (/ 720 254))
  -       (:inches         (/ 10 254))
  -       (:millimeters    1)
  -       (:screen-sized   (/ (pdf-graft-height graft))))))
  +  (graft-length (pdf-graft-height graft) units))
   
   (defun make-pdf-graft ()
     (make-instance 'pdf-graft))
   
   (defmethod sheet-region ((sheet pdf-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 pdf-graft))
     sheet)
  
positive.code:   (declare (ignore x y))
    (values))
  
  ;;;;
  ;;;; PDF-GRAFT
  ;;;;
  
  (defclass pdf-graft (basic-sheet sheet-leaf-mixin)
    ((width  :initform 210 :reader pdf-graft-width)
  
negative.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  (cl:in-package #:clim-pdf)
  
  (defmacro with-output-to-pdf-stream ((stream-var file-stream &rest options)
                                       &body body)
    (let ((cont (gensym)))
      `(flet ((,cont (,stream-var)
                ,@body))
         (declare (dynamic-extent #',cont))
         (invoke-with-output-to-pdf-stream #',cont ,file-stream ,@options))))
  
  (defun invoke-with-output-to-pdf-stream (continuation
                                           file-stream
  