(deftemplate parameter-stat (slot parameter-name) (slot possible-values) )
(defrule accumulate_disease (disease (name ?dname) ) ?ac<- (parameter-stat (parameter-name primary_disease) )
=>
(bind ?temps ( str-cat (fact-slot-value ?ac possible-values) ?dname "|"))
(modify ?ac (possible-values ?temps))
)
-------------------------------------------------------------------- To unsubscribe, send the words 'unsubscribe jess-users [EMAIL PROTECTED]' in the BODY of a message to [EMAIL PROTECTED], NOT to the list (use your own address!) List problems? Notify [EMAIL PROTECTED] --------------------------------------------------------------------
