anchor.diff:  (defun emit-new-page (stream)
     (error "not yet! ~S" stream))
   
  -;;;; Output Protocol
  +;;; Output Protocol
  +
   (defmethod medium-drawable ((medium pdf-medium))
     (pdf-medium-file-stream medium))
   
  
positive.code: (defmethod graft-units ((graft pdf-graft))
    :device)
  
  (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))))))
  
  (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))))))
  
  (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))))
  
  (defmethod graft ((sheet pdf-graft))
    sheet)
  
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
  