TRUE
CLIPS> (batch "inserr.bat")
TRUE
CLIPS> (send)
[ARGACCES1] Function 'send' expected at least 2 arguments.
CLIPS> (send object)
[ARGACCES1] Function 'send' expected at least 2 arguments.
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] The value (abc def) is 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)))
[ARGACCES2] 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)
[ARGACCES2] 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] The value (abc def) is 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)
[ARGACCES1] Function 'delete-instance' expected exactly 0 arguments.
CLIPS> (init-slots 0)
[ARGACCES1] Function 'init-slots' expected exactly 0 arguments.
CLIPS> (ppinstance 0)
[ARGACCES1] Function 'ppinstance' expected exactly 0 arguments.
CLIPS> (dribble-off)