anchor.diff:     (clock :initform 0
             :accessor get-clock)
      (fact-list :initform nil
  -              :accessor get-fact-list))
  +              :accessor get-fact-list)
  +   (next-fact-id :initform 0
  +                 :accessor get-next-fact-id))
     (:documentation
      "Represents the inference engine itself."))
   
  
positive.code:   (add-activation (get-strategy self)
                    (make-activation rule token)))
  
  (defmethod insert-token ((self rete) (token add-token))
    (call-node-right (get-root-node (get-compiler self)) token))
  
  
negative.code: ;;; File: rete.lisp
  ;;; Description: Class representing the inference engine itself.
  
  ;;; $Id: rete.lisp,v 1.11 2000/11/17 16:45:51 youngde Exp $
  
  (in-package :lisa)
  
  