anchor.diff:  (defmethod* (setf stream-cursor-position) :after (x y (stream standard-output-recording-stream))
     (declare (ignore x y))
     (stream-close-text-output-record stream))
  -
  -;(defmethod stream-set-cursor-position :after ((stream standard-output-recording-stream))
  -;  (stream-close-text-output-record stream))
   
   (defmethod stream-wrap-line :before ((stream standard-output-recording-stream))
     (when (stream-recording-p stream)
  
positive.code:   (setf (rectangle-edges* record)
  	(values x-position y-position x-position y-position)))
  
  ;;; XXX I'd really like to get rid of the x and y slots. They are surely
  ;;; redundant with the bounding rectangle coordinates.
  (defclass compound-output-record (basic-output-record)
    ((x :initarg :x-position
        :initform 0.0d0
  
negative.code:     `(with-sheet-medium (medium stream)
                    (when (stream-recording-p stream)
                      (let ((record
                             ;; Hack: the coord-seq-mixin makes the
                             ;; assumption that, well coord-seq is a
                             ;; coord-vector. So we morph a possible
                             ;; coord-seq argument into a vector.
                             (let (,@(when (member 'coord-seq args)
                                           `((coord-seq
  