anchor.diff:     (roots :initform nil
             :accessor get-roots))
     (:documentation
  -   "Generates a pattern network."))
  +   "Generates the Rete pattern network."))
   
   (defun add-tests (slots rule node)
     (flet ((add-simple-test (node slot)
  
positive.code: ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  
  ;;; File: rete-compiler.lisp
  ;;; Description: This class generates a pattern network.
  
  ;;; See the paper "Rete: A Fast Algorithm for the Many Pattern/Many
  ;;; Object Pattern Match Problem", Charles L. Forgy, Artificial
  
negative.code: ;;; LISA "models the Rete net more literally as a set of networked
  ;;; Node objects with interconnections."
  
  ;;; $Id: rete-compiler.lisp,v 1.13 2000/12/05 01:03:17 youngde Exp $
  
  (in-package :lisa)
  
  