#20 rule parse error OR clauses with variables

[Anonymous]

(eval-when (:compile-toplevel :load-toplevel :execute)
(when (not (find-package "LISA-TEST"))
(defpackage "LISA-TEST"
(:use "LISA-LISP"))))

(in-package "LISA-TEST")

(deftemplate t1 () (slot s))
(deftemplate t2 () (slot s))
(deftemplate t3 () (slot s))

(deffacts testfacts ()
(t1 (s s1))
(t2 (s s2))
(t3 (s s3))
(t1 (s x1)))

(defrule r1 ()
(t1 (s ?s1))
=>
(format t "from rule r1 - we got ~A. ~%" ?s1))

(defrule r2 ()
(or (t1 )
(t2 ))
=>
(format t "from rule r2 . ~%"))

(defrule r3 ()
(or (t1 (s s1))
(t2 (s s2)))
=>
(format t "from rule r3 . ~%"))

(eval-when (:compile-toplevel :load-toplevel :execute)
(format t "doing stuff ~%")
(reset)
(run))

;;-end code

[Nobody/Anonymous]

Logged In: NO

See the cll thread

http://groups.google.com/group/comp.lang.lisp/browse_thread/thread/e80f1cb23b5e75cd/7f0e39f86be733f5