inserr.exp

NASA 开发使用的一个专家系统

TRUE
CLIPS> (batch "inserr.bat")
TRUE
CLIPS> (send)
[ARGACCES4] Function send expected at least 2 argument(s)
CLIPS> (send object)
[ARGACCES4] Function send expected at least 2 argument(s)
CLIPS> (send object bad-message)
[MSGFUN1] No applicable primary message-handlers found for bad-message.
FALSE
CLIPS> (make-instance)

[PRNTUTIL2] Syntax Error:  Check appropriate syntax for instance.
CLIPS> (make-instance 5 of USER)
[INSMNGR3] Cannot create instances of abstract class USER.
CLIPS> (defclass TEST (is-a USER) (role concrete)
   (slot x (create-accessor write))
   (multislot y (create-accessor write)))
CLIPS> (make-instance bad TEST)

[PRNTUTIL2] Syntax Error:  Check appropriate syntax for make-instance.
CLIPS> (make-instance bad of)

[PRNTUTIL2] Syntax Error:  Check appropriate syntax for instance class.
CLIPS> (make-instance (bad of TEST))

[EXPRNPSR3] Missing function declaration for bad.
CLIPS> (make-instance ([bad] of  TEST))

[EXPRNPSR1] A function name must be a symbol
CLIPS> (make-instance bad of TEST ())

[PRNTUTIL2] Syntax Error:  Check appropriate syntax for slot-override.
CLIPS> (make-instance bad of TEST (bogus-slot))
[INSMNGR13] Slot bogus-slot does not exist in instance bad.
FALSE
CLIPS> (defmessage-handler TEST init around ())
CLIPS> (make-instance bad of TEST)
FALSE
CLIPS> (undefmessage-handler TEST init around)
CLIPS> (defmessage-handler TEST delete around ())
CLIPS> (make-instance ok of TEST)
[ok]
CLIPS> (make-instance ok of TEST)
[INSMNGR5] Unable to delete old instance ok.
FALSE
CLIPS> (undefmessage-handler TEST delete around)
CLIPS> (make-instance bad of TEST (x abc def))
[INSFUN7] (abc def) illegal for single-field slot x of instance [bad] found in put-x primary in class TEST.
[PRCCODE4] Execution halted during the actions of message-handler put-x primary in class TEST
FALSE
CLIPS> (make-instance bad of TEST (x abc) (y 1 2 (+ (eval "(gensym)") 2)))
[ARGACCES5] Function + expected argument #1 to be of type integer or float
[PRCCODE6] This error occurred while evaluating arguments for the message put-y.
FALSE
CLIPS> (clear)
CLIPS> (definstances)

[CSTRCPSR2] Missing name for definstances construct

ERROR:
(definstances )
CLIPS> (definstances 5)

[CSTRCPSR2] Missing name for definstances construct

ERROR:
(definstances 5
CLIPS> (definstances bad bad-comment)

[PRNTUTIL2] Syntax Error:  Check appropriate syntax for definstances.

ERROR:
(definstances MAIN::bad
   bad-comment
CLIPS> (definstances ok "comment")
CLIPS> (definstances bad "comment" ())

[PRNTUTIL2] Syntax Error:  Check appropriate syntax for instance.

ERROR:
(definstances MAIN::bad "comment"
   ()
CLIPS> (definstances bad (5))

[PRNTUTIL2] Syntax Error:  Check appropriate syntax for make-instance.

ERROR:
(definstances MAIN::bad
   (5 )
CLIPS> (definstances bad (a))

[PRNTUTIL2] Syntax Error:  Check appropriate syntax for make-instance.

ERROR:
(definstances MAIN::bad
   (a )
CLIPS> (definstances bad ([a]))

[PRNTUTIL2] Syntax Error:  Check appropriate syntax for make-instance.

ERROR:
(definstances MAIN::bad
   ([a] )
CLIPS> (definstances bad (a of))

[PRNTUTIL2] Syntax Error:  Check appropriate syntax for instance class.

ERROR:
(definstances MAIN::bad
   (a of )
CLIPS> (definstances bad1 (a of BOGUS) (b of USER))
[PRNTUTIL1] Unable to find class BOGUS.

ERROR:
(definstances MAIN::bad1
   (a of BOGUS
CLIPS> (definstances bad2 (b of USER) (a of BOGUS))
[INSMNGR3] Cannot create instances of abstract class USER.

ERROR:
(definstances MAIN::bad2
   (b of USER
CLIPS> (reset)
CLIPS> (clear)
CLIPS> (initialize-instance)

[PRNTUTIL2] Syntax Error:  Check appropriate syntax for instance.
CLIPS> (initialize-instance 5)
[INSFUN1] Expected a valid instance in function initialize-instance.
FALSE
CLIPS> (initialize-instance a)
[INSFUN2] No such instance a in function initialize-instance.
FALSE
CLIPS> (initialize-instance ())

[EXPRNPSR1] A function name must be a symbol
CLIPS> (defclass TEST (is-a USER) (role concrete)
  (slot x  (create-accessor write)
     (default-dynamic (+ (eval "(gensym)") 2))))
CLIPS> (make-instance a of TEST)
[ARGACCES5] Function + expected argument #1 to be of type integer or float
[PRCCODE4] Execution halted during the actions of message-handler init primary in class USER
[INSMNGR8] An error occurred during the initialization of instance a.
FALSE
CLIPS> (make-instance a of TEST (x 0))
[a]
CLIPS> (initialize-instance a ())

[PRNTUTIL2] Syntax Error:  Check appropriate syntax for slot-override.
CLIPS> (initialize-instance a (x abc def))
[INSFUN7] (abc def) illegal for single-field slot x of instance [a] found in put-x primary in class TEST.
[PRCCODE4] Execution halted during the actions of message-handler put-x primary in class TEST
FALSE
CLIPS> (delete-instance 0)
[ARGACCES4] Function delete-instance expected exactly 0 argument(s)
CLIPS> (init-slots 0)
[ARGACCES4] Function init-slots expected exactly 0 argument(s)
CLIPS> (ppinstance 0)
[ARGACCES4] Function ppinstance expected exactly 0 argument(s)
CLIPS> (dribble-off)