Re: [PATCH] lisa bug: matching on retracted facts
Andy Sloane <[email protected]> Fri, 08 Jul 2005 14:29:11 -0500
| Newsgroups | gmane.lisp.lisa.general |
|---|---|
| Message-ID | <[email protected]> |
There's one other change I made locally that I'm not sure is correct,
but probably is given the rest of the node2 code.
The only difference here, I think, is that this method would have caught
reset tokens when it probably didn't want them.
*shrug* I figured I'd present it for discussion in any case.
-Andy
--- lisa-old/lisa/src/rete/reference/node2.lisp
+++ lisa/src/rete/reference/node2.lisp
@@ -26,7 +26,7 @@
(defclass node2 (join-node) ())
-(defmethod test-against-right-memory ((self node2) left-tokens)
+(defmethod test-against-right-memory ((self node2) (left-tokens add-token))
(loop for right-token being the hash-value
of (join-node-right-memory self)
do (when (test-tokens self left-tokens right-token)
-------------------------------------------------------
This SF.Net email is sponsored by the 'Do More With Dual!' webinar happening
July 14 at 8am PDT/11am EDT. We invite you to explore the latest in dual
core and dual graphics technology at this free one hour event hosted by HP,
AMD, and NVIDIA. To register visit http://www.hp.com/go/dualwebinar