22 |
(t 0))" #4#) (system::putprop (lisp::quote serror::cond-any-error) (lisp::quote 2) #5#) (system::mm (lisp::quote serror::cond-any-error) 2) (system::mfvfun (lisp::quote system::universal-error-handler) 3 16384) (system::mf (lisp::quote serror::inf-signal) 4) (system::putprop (lisp::quote serror::def-error-type) (lisp::quote 2) #5#) (system::mm (lisp::quote serror::def-error-type) 5) (system::mf (lisp::quote serror::|WTA-tester|) 6) (system::putprop (lisp::quote serror::wta) (lisp::quote (lisp::deftype serror::wta lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|WTA-tester|))))) #6=(lisp::quote system::deftype-form)) (system::mf (lisp::quote #7=#:g1034) 7) (system::putprop (lisp::quote serror::wta) (lisp::symbol-function (lisp::quote #7#)) #8=(lisp::quote system::deftype-definition)) (system::putprop (lisp::quote serror::wta) lisp::nil #9=(lisp::quote system::type-documentation)) (system::mf (lisp::quote serror::|SUBSCRIPT-OUT-OF-BOUNDS-tester|) 8) (system::putprop (lisp::quote serror::subscript-out-of-bounds) (lisp::quote (lisp::deftype serror::subscript-out-of-bounds lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|SUBSCRIPT-OUT-OF-BOUNDS-tester|))))) #6#) (system::mf (lisp::quote #10=#:g1035) 9) (system::putprop (lisp::quote serror::subscript-out-of-bounds) (lisp::symbol-function (lisp::quote #10#)) #8#) (system::putprop (lisp::quote serror::subscript-out-of-bounds) lisp::nil #9#) (system::mf (lisp::quote serror::|ERROR-tester|) 10) (system::putprop (lisp::quote lisp::error) (lisp::quote (lisp::deftype lisp::error lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|ERROR-tester|))))) #6#) (system::mf (lisp::quote #11=#:g1036) 11) (system::putprop (lisp::quote lisp::error) (lisp::symbol-function (lisp::quote #11#)) #8#) (system::putprop (lisp::quote lisp::error) lisp::nil #9#) (system::mf (lisp::quote serror::|WRONG-TYPE-ARGUMENT-tester|) 12) (system::putprop (lisp::quote serror::wrong-type-argument) (lisp::quote (lisp::deftype serror::wrong-type-argument lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|WRONG-TYPE-ARGUMENT-tester|))))) #6#) (system::mf (lisp::quote #12=#:g1037) 13) (system::putprop (lisp::quote serror::wrong-type-argument) (lisp::symbol-function (lisp::quote #12#)) #8#) (system::putprop (lisp::quote serror::wrong-type-argument) lisp::nil #9#) (system::mf (lisp::quote serror::|TOO-FEW-ARGUMENTS-tester|) 14) (system::putprop (lisp::quote serror::too-few-arguments) (lisp::quote (lisp::deftype serror::too-few-arguments lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|TOO-FEW-ARGUMENTS-tester|))))) #6#) (system::mf (lisp::quote #13=#:g1038) 15) (system::putprop (lisp::quote serror::too-few-arguments) (lisp::symbol-function (lisp::quote #13#)) #8#) (system::putprop (lisp::quote serror::too-few-arguments) lisp::nil #9#) (system::mf (lisp::quote serror::|TOO-MANY-ARGUMENTS-tester|) 16) (system::putprop (lisp::quote serror::too-many-arguments) (lisp::quote (lisp::deftype serror::too-many-arguments lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|TOO-MANY-ARGUMENTS-tester|))))) #6#) (system::mf (lisp::quote #14=#:g1039) 17) (system::putprop (lisp::quote serror::too-many-arguments) (lisp::symbol-function (lisp::quote #14#)) #8#) (system::putprop (lisp::quote serror::too-many-arguments) lisp::nil #9#) (system::mf (lisp::quote serror::|UNEXPECTED-KEYWORD-tester|) 18) (system::putprop (lisp::quote serror::unexpected-keyword) (lisp::quote (lisp::deftype serror::unexpected-keyword lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|UNEXPECTED-KEYWORD-tester|))))) #6#) (system::mf (lisp::quote #15=#:g1040) 19) (system::putprop (lisp::quote serror::unexpected-keyword) (lisp::symbol-function (lisp::quote #15#)) #8#) (system::putprop (lisp::quote serror::unexpected-keyword) lisp::nil #9#) (system::mf (lisp::quote serror::|INVALID-FORM-tester|) 20) (system::putprop (lisp::quote serror::invalid-form) (lisp::quote (lisp::deftype serror::invalid-form lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|INVALID-FORM-tester|))))) #6#) (system::mf (lisp::quote #16=#:g1041) 21) (system::putprop (lisp::quote serror::invalid-form) (lisp::symbol-function (lisp::quote #16#)) #8#) (system::putprop (lisp::quote serror::invalid-form) lisp::nil #9#) (system::mf (lisp::quote serror::|UNBOUND-VARIABLE-tester|) 22) (system::putprop (lisp::quote serror::unbound-variable) (lisp::quote (lisp::deftype serror::unbound-variable lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|UNBOUND-VARIABLE-tester|))))) #6#) (system::mf (lisp::quote #17=#:g1042) 23) (system::putprop (lisp::quote serror::unbound-variable) (lisp::symbol-function (lisp::quote #17#)) #8#) (system::putprop (lisp::quote serror::unbound-variable) lisp::nil #9#) (system::mf (lisp::quote serror::|INVALID-VARIABLE-tester|) 24) (system::putprop (lisp::quote serror::invalid-variable) (lisp::quote (lisp::deftype serror::invalid-variable lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|INVALID-VARIABLE-tester|))))) #6#) (system::mf (lisp::quote #18=#:g1043) 25) (system::putprop (lisp::quote serror::invalid-variable) (lisp::symbol-function (lisp::quote #18#)) #8#) (system::putprop (lisp::quote serror::invalid-variable) lisp::nil #9#) (system::mf (lisp::quote serror::|UNDEFINED-FUNCTION-tester|) 26) (system::putprop (lisp::quote serror::undefined-function) (lisp::quote (lisp::deftype serror::undefined-function lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|UNDEFINED-FUNCTION-tester|))))) #6#) (system::mf (lisp::quote #19=#:g1044) 27) (system::putprop (lisp::quote serror::undefined-function) (lisp::symbol-function (lisp::quote #19#)) #8#) (system::putprop (lisp::quote serror::undefined-function) lisp::nil #9#) (system::mf (lisp::quote serror::|INVALID-FUNCTION-tester|) 28) (system::putprop (lisp::quote serror::invalid-function) (lisp::quote (lisp::deftype serror::invalid-function lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|INVALID-FUNCTION-tester|))))) #6#) (system::mf (lisp::quote #20=#:g1045) 29) (system::putprop (lisp::quote serror::invalid-function) (lisp::symbol-function (lisp::quote #20#)) #8#) (system::putprop (lisp::quote serror::invalid-function) lisp::nil #9#) (system::mm (lisp::quote serror::condition-case) 30)))) |
(t 0))" #4#) (system::putprop (lisp::quote serror::cond-any-error) (lisp::quote 2) #5#) (system::mm (lisp::quote serror::cond-any-error) 2) (system::mfvfun (lisp::quote system::universal-error-handler) 3 16384) (system::mf (lisp::quote serror::inf-signal) 4) (system::putprop (lisp::quote serror::def-error-type) (lisp::quote 2) #5#) (system::mm (lisp::quote serror::def-error-type) 5) (system::mf (lisp::quote serror::|WTA-tester|) 6) (system::putprop (lisp::quote serror::wta) (lisp::quote (lisp::deftype serror::wta lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|WTA-tester|))))) #6=(lisp::quote system::deftype-form)) (system::mf (lisp::quote #7=#:g1034) 7) (system::putprop (lisp::quote serror::wta) (lisp::symbol-function (lisp::quote #7#)) #8=(lisp::quote system::deftype-definition)) (system::putprop (lisp::quote serror::wta) lisp::nil #9=(lisp::quote system::type-documentation)) (system::mf (lisp::quote serror::|SUBSCRIPT-OUT-OF-BOUNDS-tester|) 8) (system::putprop (lisp::quote serror::subscript-out-of-bounds) (lisp::quote (lisp::deftype serror::subscript-out-of-bounds lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|SUBSCRIPT-OUT-OF-BOUNDS-tester|))))) #6#) (system::mf (lisp::quote #10=#:g1035) 9) (system::putprop (lisp::quote serror::subscript-out-of-bounds) (lisp::symbol-function (lisp::quote #10#)) #8#) (system::putprop (lisp::quote serror::subscript-out-of-bounds) lisp::nil #9#) (system::mf (lisp::quote serror::|ERROR-tester|) 10) (system::putprop (lisp::quote lisp::error) (lisp::quote (lisp::deftype lisp::error lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|ERROR-tester|))))) #6#) (system::mf (lisp::quote #11=#:g1036) 11) (system::putprop (lisp::quote lisp::error) (lisp::symbol-function (lisp::quote #11#)) #8#) (system::putprop (lisp::quote lisp::error) lisp::nil #9#) (system::mf (lisp::quote serror::|WRONG-TYPE-ARGUMENT-tester|) 12) (system::putprop (lisp::quote serror::wrong-type-argument) (lisp::quote (lisp::deftype serror::wrong-type-argument lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|WRONG-TYPE-ARGUMENT-tester|))))) #6#) (system::mf (lisp::quote #12=#:g1037) 13) (system::putprop (lisp::quote serror::wrong-type-argument) (lisp::symbol-function (lisp::quote #12#)) #8#) (system::putprop (lisp::quote serror::wrong-type-argument) lisp::nil #9#) (system::mf (lisp::quote serror::|TOO-FEW-ARGUMENTS-tester|) 14) (system::putprop (lisp::quote serror::too-few-arguments) (lisp::quote (lisp::deftype serror::too-few-arguments lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|TOO-FEW-ARGUMENTS-tester|))))) #6#) (system::mf (lisp::quote #13=#:g1038) 15) (system::putprop (lisp::quote serror::too-few-arguments) (lisp::symbol-function (lisp::quote #13#)) #8#) (system::putprop (lisp::quote serror::too-few-arguments) lisp::nil #9#) (system::mf (lisp::quote serror::|TOO-MANY-ARGUMENTS-tester|) 16) (system::putprop (lisp::quote serror::too-many-arguments) (lisp::quote (lisp::deftype serror::too-many-arguments lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|TOO-MANY-ARGUMENTS-tester|))))) #6#) (system::mf (lisp::quote #14=#:g1039) 17) (system::putprop (lisp::quote serror::too-many-arguments) (lisp::symbol-function (lisp::quote #14#)) #8#) (system::putprop (lisp::quote serror::too-many-arguments) lisp::nil #9#) (system::mf (lisp::quote serror::|UNEXPECTED-KEYWORD-tester|) 18) (system::putprop (lisp::quote serror::unexpected-keyword) (lisp::quote (lisp::deftype serror::unexpected-keyword lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|UNEXPECTED-KEYWORD-tester|))))) #6#) (system::mf (lisp::quote #15=#:g1040) 19) (system::putprop (lisp::quote serror::unexpected-keyword) (lisp::symbol-function (lisp::quote #15#)) #8#) (system::putprop (lisp::quote serror::unexpected-keyword) lisp::nil #9#) (system::mf (lisp::quote serror::|INVALID-FORM-tester|) 20) (system::putprop (lisp::quote serror::invalid-form) (lisp::quote (lisp::deftype serror::invalid-form lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|INVALID-FORM-tester|))))) #6#) (system::mf (lisp::quote #16=#:g1041) 21) (system::putprop (lisp::quote serror::invalid-form) (lisp::symbol-function (lisp::quote #16#)) #8#) (system::putprop (lisp::quote serror::invalid-form) lisp::nil #9#) (system::mf (lisp::quote serror::|UNBOUND-VARIABLE-tester|) 22) (system::putprop (lisp::quote lisp::unbound-variable) (lisp::quote (lisp::deftype lisp::unbound-variable lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|UNBOUND-VARIABLE-tester|))))) #6#) (system::mf (lisp::quote #17=#:g1042) 23) (system::putprop (lisp::quote lisp::unbound-variable) (lisp::symbol-function (lisp::quote #17#)) #8#) (system::putprop (lisp::quote lisp::unbound-variable) lisp::nil #9#) (system::mf (lisp::quote serror::|INVALID-VARIABLE-tester|) 24) (system::putprop (lisp::quote serror::invalid-variable) (lisp::quote (lisp::deftype serror::invalid-variable lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|INVALID-VARIABLE-tester|))))) #6#) (system::mf (lisp::quote #18=#:g1043) 25) (system::putprop (lisp::quote serror::invalid-variable) (lisp::symbol-function (lisp::quote #18#)) #8#) (system::putprop (lisp::quote serror::invalid-variable) lisp::nil #9#) (system::mf (lisp::quote serror::|UNDEFINED-FUNCTION-tester|) 26) (system::putprop (lisp::quote lisp::undefined-function) (lisp::quote (lisp::deftype lisp::undefined-function lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|UNDEFINED-FUNCTION-tester|))))) #6#) (system::mf (lisp::quote #19=#:g1044) 27) (system::putprop (lisp::quote lisp::undefined-function) (lisp::symbol-function (lisp::quote #19#)) #8#) (system::putprop (lisp::quote lisp::undefined-function) lisp::nil #9#) (system::mf (lisp::quote serror::|INVALID-FUNCTION-tester|) 28) (system::putprop (lisp::quote serror::invalid-function) (lisp::quote (lisp::deftype serror::invalid-function lisp::nil (lisp::list #0# #1# (lisp::list #2# (lisp::quote serror::|INVALID-FUNCTION-tester|))))) #6#) (system::mf (lisp::quote #20=#:g1045) 29) (system::putprop (lisp::quote serror::invalid-function) (lisp::symbol-function (lisp::quote #20#)) #8#) (system::putprop (lisp::quote serror::invalid-function) lisp::nil #9#) (system::mm (lisp::quote serror::condition-case) 30)))) |