anchor.diff:  	    (setq children (replace children children
   				    :start1 pos
   				    :start2 (1+ pos)))
  -	    (decf (fill-pointer children)))))))
  +	    (decf (fill-pointer children))
  +            (setf (output-record-parent child) nil))))))
   
   (defmethod clear-output-record ((record standard-sequence-output-record))
  -  (with-slots (children) record
  +  (let ((children (output-record-children record)))
  +    (map 'nil (lambda (child) (setf (output-record-parent child) nil))
  +         children)
       (fill children nil)
       (setf (fill-pointer children) 0)))
   
  
positive.code:   (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))))
      record))
  
  (defmethod stream-close-text-output-record
  
negative.code:     (let ((parent (output-record-parent record)))
        (when parent
          (recompute-extent-for-changed-child parent record
                                              min-x min-y max-x max-y))))
    record)
  
  (defmethod* (setf output-record-position) :before
      (nx ny (record compound-output-record))
  