anchor.diff:                           (bounding-rectangle* record))))
       (call-next-method)
       (with-slots (parent x1 y1 x2 y2) record
  -                (when (and parent (not (region-equal old-rectangle record)))
  -                  (recompute-extent-for-changed-child parent record x1 y1 x2 y2)))))
  +      (when (and parent (not (region-equal old-rectangle record)))
  +        (recompute-extent-for-changed-child parent record x1 y1 x2 y2)))))
   
    
  
positive.code: 
  ;;; XXX ? should this be defined on output-record at all?
  ;;; Probably not -- moore
  (defmethod erase-output-record ((record output-record) stream &optional (errorp t))
    (declare (ignore stream errorp))
    nil)
  
  
negative.code:    (output-history :initform (make-instance 'standard-tree-output-history)
                     :reader stream-output-history)
     (current-output-record :accessor stream-current-output-record)
     (current-text-output-record :initform nil
                                 :accessor stream-current-text-output-record)
     (local-record-p :initform t
                     :documentation "This flag is used for dealing with streams outputting strings char-by-char.")))
  
  