anchor.diff:    (error "Not implemented."))
   
   ;;; 16.4.3. Text Output Recording
  -(defclass stream-text-record (standard-text-displayed-output-record)
  -  ()) ; XXX Is it necessary? -- APD, 2002-06-13.
  -
   (defmethod stream-text-output-record
       ((stream standard-output-recording-stream) text-style)
     (declare (ignore text-style))
     (let ((record (stream-current-text-output-record stream)))
  -    (unless record
  -      (setf (stream-current-text-output-record stream)
  -            (setq record (make-instance 'stream-text-record)))
  -      (with-slots (start-x start-y end-x end-y x1 y1 x2 y2 x y
  -                   initial-x1 initial-y1) record
  -	  (multiple-value-bind (cx cy) (stream-cursor-position stream)
  -	    (setq start-x cx
  -		  start-y cy
  -		  end-x start-x
  -		  end-y start-y
  -		  x1 (coordinate start-x)
  -		  x2 (coordinate end-x)
  -		  y1 (coordinate start-y)
  -		  y2 (coordinate end-y)
  -                  initial-x1 x1
  -                  initial-y1 y1))))
  +    (unless (and record (typep record 'standard-text-displayed-output-record))
  +      (multiple-value-bind (cx cy) (stream-cursor-position stream)
  +        (setf record (make-instance 'standard-text-displayed-output-record
  +                                    :x-position cx :y-position cy
  +                                    :start-x cx :start-y cy)
  +              (stream-current-text-output-record stream) record)))
       record))
   
   (defmethod stream-close-text-output-record
  
positive.code:    "Returns the output record that is the parent of RECORD, or NIL if
  RECORD has no parent."))
  
  (defgeneric replay-output-record (record stream
                                    &optional region x-offset y-offset)
    (:documentation "Displays the output captured by RECORD on the
  
negative.code: ;;; Text output catching methods
  (defmacro without-local-recording (stream &body body)
    `(letf (((slot-value ,stream 'local-record-p) nil))
       ,@body))
  
  (defmethod stream-write-line :around
      ((stream standard-output-recording-stream) line)
    (when (and (stream-recording-p stream)
               (slot-value stream 'local-record-p))
      (let* ((medium (sheet-medium stream))
             (text-style (medium-text-style medium))
             (*drawing-options* (list (medium-ink medium) ; XXX TDO
                                      (medium-clipping-region medium))))
        (stream-add-string-output stream line 0 nil text-style
                                  (stream-string-width stream line
                                                       :text-style text-style)
  