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: 
  (defmethod add-successor :after (parent new-node connector)
    (declare (ignore parent connector))
    (push new-node *rule-specific-nodes*)
    (increment-use-count new-node)
    new-node)
  
  (defun make-intra-pattern-node (slot)
    (let ((test
  
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")
  
  