visible.exp

来自「一套美国国家宇航局人工智能中心NASA的专家系统工具源代码」· EXP 代码 · 共 21 行

TRUE
CLIPS> (load "visible.clp")
##~~~[MSGFUN6] Private slot bar of class A cannot be accessed directly
   by handlers attached to class B

[PRCCODE3] Undefined variable self:bar referenced in message-handler.

ERROR:
(defmessage-handler MAIN::B fribban
   ()
   ?self:bar
   )
@!
FALSE
CLIPS> (go)
[MSGPASS3] Static reference to slot foo of class A does not apply to [b] of B
[PRCCODE4] Execution halted during the actions of message-handler woz primary in class A
[PRCCODE4] Execution halted during the actions of deffunction go.
FALSE
CLIPS> (dribble-off)