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: ;;; -*- Mode: Lisp; Package: CLIM-INTERNALS -*-
  
  ;;;  (c) copyright 1998,1999,2000,2001 by Michael McDonald (mikemac@mikemac.com)
  ;;;  (c) copyright 2000 by
  ;;;           Robert Strandh (strandh@labri.u-bordeaux.fr)
  ;;;  (c) copyright 2001 by
  ;;;           Arnaud Rouanet (rouanet@emi.u-bordeaux.fr)
  ;;;           Lionel Salabartan (salabart@emi.u-bordeaux.fr)
  ;;;  (c) copyright 2001, 2002 by Alexey Dejneka (adejneka@comail.ru)
  
  ;;; This library is free software; you can redistribute it and/or
  ;;; modify it under the terms of the GNU Library General Public
  