anchor.diff:  ;;; - When DRAWING-P is NIL, should stream cursor move?
   ;;;
   ;;; - :{X,Y}-OFFSET.
  +;;;
  +;;; - (SETF OUTPUT-RECORD-START-CURSOR-POSITION) does not affect the
  +;;; bounding rectangle. What does it affect?
  +;;;
   
   ;;; Bug: (SETF OUTPUT-RECORD-POSITION) returns the record instead of
   ;;; the position. It is useful for debugging, but it is wrong.
  
positive.code:   (with-slots (strings baseline max-height start-y wrapped
                 x1 y1 initial-x1 initial-y1) record
      (with-sheet-medium (medium stream) ;is sheet a sheet-with-medium-mixin? --GB
        ;; XXX Disable recording?
        (letf (((medium-text-style medium) (make-text-style nil nil nil))
               ((medium-ink medium) +foreground-ink+)
               ((medium-clipping-region medium) +everywhere+)
  
negative.code: position is relative to the stream, where (0,0) is (initially) the
  upper-left corner of the stream."))
  
  (defgeneric* (setf output-record-position) (x y record)
    (:documentation
     "Changes the x and y position of the RECORD to be X and Y, and
  updates the bounding rectangle to reflect the new position (and saved
  cursor positions, if the output record stores it). If RECORD has any
  children, all of the children (and their descendants as well) will be
  moved by the same amount as RECORD was moved. The bounding rectangles
  of all of RECORD's ancestors will also be updated to be large enough
  to contain RECORD."))
  
  #+:cmu(declaim (ftype (function (output-record) (values integer integer))
  		      output-record-start-cursor-position))
  