Greetings. The following code works as (at least I) expected in CLIPS
6.05, yet fails within Jess:
(deffunction schtum (?a $?rest)
(printout t ?a " " $?rest crlf))
(deffunction has-rocky (?a $?rest)
(member$ ?a $?rest))
(defrule rocky
=>
(schtum rocky boris sherman))
(defrule boris
(schtum ?x&:(has-rocky rocky boris rocky sherman))
=>
(printout t "has rocky" crlf))
Asserting fact 'schtum' causes Jess to throw an exception, with the
resulting (included) stack trace. Please elaborate, and much obliged.
Mr. Peabody: jess
Jess, the Java Expert System Shell
Copyright (C) 1998 E.J. Friedman Hill and the Sandia Corporation
Jess Version 4.1b3 7/1/98
Jess> (batch schtum.clp)
TRUE
Jess> (reset)
TRUE
Jess> (assert (schtum foo))
Rete Exception in routine Value::listValue.
Message: Not a List: boris type = 1 at line 3: ( assert ( schtum foo
) ) .
at java.lang.Throwable.<init>(Compiled Code @ 0x80cd2fc)
at java.lang.Exception.<init>(Compiled Code @ 0x80cbf70)
at jess.ReteException.<init>(Compiled Code @ 0x82204a0)
at jess.Value.listValue(Compiled Code @ 0x8177e6c)
at jess.membermf.call(Compiled Code @ 0x81c8d70)
at jess.Funcall.simpleExecute(Compiled Code @ 0x8171f58)
at jess.Funcall.execute(Compiled Code @ 0x8171be8)
at jess.Funcall.execute(Compiled Code @ 0x8171bd8)
at jess.Deffunction.call(Compiled Code @ 0x81b59b0)
at jess.Funcall.simpleExecute(Compiled Code @ 0x8171f58)
at jess.Funcall.execute(Compiled Code @ 0x8171be8)
at jess.Funcall.execute(Compiled Code @ 0x8171be0)
at jess.Node1TEQ.callNode(Compiled Code @ 0x8215c50)
at jess.Node.passAlong(Compiled Code @ 0x820b078)
at jess.Node1TELN.callNode(Compiled Code @ 0x8212960)
at jess.Node.passAlong(Compiled Code @ 0x820b078)
at jess.Node1TECT.callNode(Compiled Code @ 0x820c8e8)
at jess.Rete.processTokenOneNode(Compiled Code @ 0x814ecc8)
at jess.Rete.processToken(Compiled Code @ 0x814ec64)
at jess.Rete.assert(Compiled Code @ 0x814e614)
at jess._assert.call(Compiled Code @ 0x817e040)
at jess.Fastfunction.call(Compiled Code @ 0x817eb08)
at jess.Funcall.simpleExecute(Compiled Code @ 0x8171f58)
at jess.Funcall.execute(Compiled Code @ 0x8171be8)
at jess.Funcall.execute(Compiled Code @ 0x8171bd8)
at jess.Jesp.parseSexp(Compiled Code @ 0x8163e68)
at jess.Jesp.parse(Compiled Code @ 0x8162da0)
at jess.Main.main(Compiled Code @ 0x8143028)
Jess>
--
-------------------------------------------------------------
David E. Young
Fujitsu Network Communications "I claim not to have controlled
([EMAIL PROTECTED]) events, but confess plainly
that events have controlled me."
-- Abraham Lincoln (1864)
"Apology is Policy"
---------------------------------------------------------------------
To unsubscribe, send the words 'unsubscribe jess-users [EMAIL PROTECTED]'
in the BODY of a message to [EMAIL PROTECTED], NOT to the
list. List problems? Notify [EMAIL PROTECTED]
---------------------------------------------------------------------
