anchor.diff:    (declare (ignore x y))
     (values))
   
  -;;;;
  -;;;; PDF-GRAFT
  -;;;;
  +;;; PDF-GRAFT
   
   (defclass pdf-graft (basic-sheet sheet-leaf-mixin)
     ((width  :initform 210 :reader pdf-graft-width)
  
positive.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  
  (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
  
negative.code: (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))
    (graft-length (pdf-graft-width graft) units))
  
  (defmethod graft-height ((graft pdf-graft) &key (units :device))
    (graft-length (pdf-graft-height graft) units))
  
  (defun make-pdf-graft ()
    (make-instance 'pdf-graft))
  
  (defmethod sheet-region ((sheet pdf-graft))
    (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)
  