[MSGFUN1]和[MSGPASS2]试图使用实例

Question

我试着在wxclips中运行类，但是它根本不起作用，问题出在哪里。注意，这段代码来自教程，它应该可以工作，但它不是

   > CLIPS> (defclass A (is-a USER)   (role concrete)  (slot foo (create-accessor write))   (slot bar)) 
   > CLIPS> (make-instance a of A (foo 36)) [a] CLIPS> (make-instance b of A (bar 45)) [MSGFUN1]
   > No applicable primary message-handlers found for put-bar. FALSE CLIPS>

> CLIPS>(defclass person (is-a USER) (multislot full-name) (role concrete) (slot gender (allowed-symbols male female)) (slot age))
> CLIPS>(definstances people (mike of person(gender "male")(age 24))) 
> CLIPS>(send [mike] get-gender)
[MSGPASS2] No such instance mike in function send

Answer 1

您需要为您想要读或写的任何槽创建槽访问器，并且在发出(重置)命令之前不会创建来自定义的实例。

CLIPS> (defclass A (is-a USER) (role concrete) (slot foo(create-accessor write)) (slot bar (create-accessor write))) 
CLIPS> (make-instance a of A (foo 36)) 
[a]
CLIPS> (make-instance b of A (bar 45)) 
[b]
CLIPS> (defclass person (is-a USER) (multislot full-name) (role concrete) (slot gender (allowed-symbols male female) (create-accessor read-write)) (slot age (create-accessor read-write)))
CLIPS> (definstances people (mike of person(gender "male")(age 24))) 
CLIPS> (reset)
CLIPS> (send [mike] get-gender)
"male"