anchor.diff:                          (pane-viewport-region (updating-output-stream record))))
           (was-table (make-hash-table :test #'equalp))
           (is-table (make-hash-table :test #'equalp)))
  -    
  +
       (labels ((collect-1-was (record)
                  (push record was)
                  (push record (gethash (output-record-hash record) was-table)))
  
positive.code: ;;; Library General Public License for more details.
  ;;;
  ;;; You should have received a copy of the GNU Library General Public
  ;;; License along with this library; if not, write to the 
  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
  ;;; Boston, MA  02111-1307  USA.
  
  (in-package :clim-internals)
  
negative.code: 		 :documentation "Contains the output record tree for the
    current display.")
     (output-record-dirty :accessor output-record-dirty :initform :updating
  	  :documentation
  	  ":updating
             :updated
             :clean")
  