rotin

سلام من یک برنامه کوچیک نوشتم با کلیپس ولی همش خطا می ده میتونید لطفا در صورت امکان کمکم کنید
(deftemplate MAIN::question
"A question the application may ask"
(slot text) ;; The question itself
(slot type) ;; Can be multi, text, or numeric
(multislot valid) ;; The allowed answers for type multi
(slot ident)) ;; The "name" of the question


(deffacts question-data

(question
(ident new-formal-result) (type multi) (valid original semioriginal none )
(text " are there new-formal-result presented? "))
(question
(ident new-ideas) (type multi) (valid original semioriginal none )
(text " are there new ideas presented?"))


)

(defrule MAIN :: rule1
(answer( new-formal-results original)(new-ideas original))
=>
(assert ( novelty good)))