anchor.diff:        (setf root (make-node1
                     (make-class-test class)))
         (setf (gethash class *root-nodes*) root))
  -    (increment-use-count root)
  -    root))
  +    (record-node root)))
   
   (defmethod add-successor ((parent t) new-node connector)
     (declare (ignore connector))
  
positive.code: ;;; File: rete-compiler.lisp
  ;;; Description:
  
  ;;; $Id: rete-compiler.lisp,v 1.29 2002/10/02 18:10:13 youngde Exp $
  
  (in-package "LISA")
  
  
negative.code: (defclass rete-network ()
    ((root-nodes :initform (make-hash-table)
                 :reader rete-roots)))
  
  (defun record-node (node)
    (increment-use-count node)
    (push node *rule-specific-nodes*)
    node)
  
  (defun make-root-node (class)
    (let ((root (gethash class *root-nodes*)))
  