anchor.diff:  (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*)))
  
positive.code:       (setf root (make-node1
                    (make-class-test class)))
        (setf (gethash class *root-nodes*) root))
      (increment-use-count root)
      root))
  
  (defmethod add-successor ((parent t) new-node connector)
    (declare (ignore connector))
  
negative.code: ;;; File: rete-compiler.lisp
  ;;; Description:
  
  ;;; $Id: rete-compiler.lisp,v 1.30 2002/10/02 19:05:30 youngde Exp $
  
  (in-package "LISA")
  
  