anchor.diff:    (add-right-to-left-node self rule)
     (create-join-nodes self rule)
     (create-terminal-node self rule)
  -  (values rule))
  +  rule)
                                     
   (defun make-rete-compiler ()
     (make-instance 'rete-compiler))
  
positive.code: ;;; LISA "models the Rete net more literally as a set of networked
  ;;; Node objects with interconnections."
  
  ;;; $Id: rete-compiler.lisp,v 1.69 2001/08/23 23:53:27 youngde Exp $
  
  (in-package "LISA")
  
  
negative.code:     (labels ((add-join-node (node2 location)
                 (add-successor (aref terminals (1- location)) node2 rule)
                 (add-successor (aref terminals location) node2 rule)
                 (setf (aref terminals (1- location)) node2)
                 (setf (aref terminals location) node2)))
        (mapc #'(lambda (pattern)
  