(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "25-Jan-98 11:50:25" ("compiled on " |{DSK}sources>CONDITION-HIERARCHY-IL.;1|) "30-Mar-95 20:33:04" "COMPILE-FILEd" |in| "Medley 14-Aug-95 ..." |dated| "14-Aug-95 15:27:48") (FILECREATED "16-May-90 15:04:10" |{DSK}local>lde>lispcore>sources>CONDITION-HIERARCHY-IL.;2| 5692 |changes| |to:| (VARS CONDITION-HIERARCHY-ILCOMS) |previous| |date:| "11-Jan-88 19:02:09" |{DSK}local>lde>lispcore>sources>CONDITION-HIERARCHY-IL.;1|) (RPAQQ CONDITION-HIERARCHY-ILCOMS ((STRUCTURES INTERLISP-ERROR DEFINER-MISMATCH NO-SUCH-DEFINITION STACK-POINTER-RELEASED UNDEFINED-FUNCTION-IN-APPLY INDEX-BOUNDS-ERROR UNDEFINED-CAR-OF-FORM ILLEGAL-STACK-ARG) (* |;;| "Should be in XCL") (STRUCTURES CALL-ERROR TOO-MANY-ARGUMENTS TOO-FEW-ARGUMENTS INVALID-ARGUMENT-LIST) (PROP FILETYPE CONDITION-HIERARCHY-IL))) (CL::SET-PARSED-STRUCTURE (QUOTE INTERLISP-ERROR) T (QUOTE (CL::PS INTERLISP-ERROR |INTERLISP-ERROR constructor| (SI::--STRUCTURE-DUMMY-SLOT-- MESSAGE) CL::DATATYPE NIL CL:ERROR "INTERLISP-ERROR-" (|INTERLISP-ERROR constructor|) NIL %PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL XPOINTER T (INTERLISP-ERROR 0 XPOINTER) NIL) (MESSAGE NIL T T ( INTERLISP-ERROR 2 POINTER) INTERLISP-ERROR-MESSAGE)) NIL NIL (XPOINTER POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE INTERLISP-ERROR) (QUOTE (XPOINTER POINTER)) (QUOTE (( INTERLISP-ERROR 0 XPOINTER) (INTERLISP-ERROR 2 POINTER))) 4 (QUOTE CL:ERROR)) (PUTPROP (QUOTE INTERLISP-ERROR) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) INTERLISP-ERROR-MESSAGE :D8 (L (0 INTERLISP-ERROR)) @NIL (5 INTERLISP-ERROR) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE INTERLISP-ERROR)) |INTERLISP-ERROR constructor| :D8 (L (0 |-args-|) P 6 \\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :MESSAGE 24 |INTERLISP-ERRORTYPE#|) () |INTERLISP-ERROR report method| :D8 (P 2 MESS2 P 1 MESS1 P 0 A6428 I 1 *STANDARD-OUTPUT* I 0 CONDITION) @!HHIJg (28 ERRORMESS1) (23 ERROR 5 INTERLISP-ERROR) () (PUTPROP (QUOTE INTERLISP-ERROR) (QUOTE %CONDITION-REPORTER) (CL:FUNCTION |INTERLISP-ERROR report method|)) (PUTPROP (QUOTE INTERLISP-ERROR) (QUOTE %CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE DEFINER-MISMATCH) T (QUOTE (CL::PS DEFINER-MISMATCH |DEFINER-MISMATCH constructor| (SI::--STRUCTURE-DUMMY-SLOT-- NAME TYPE DEFINITION) CL::DATATYPE NIL CONDITION "DEFINER-MISMATCH-" (|DEFINER-MISMATCH constructor|) NIL %PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL XPOINTER T (DEFINER-MISMATCH 0 XPOINTER) NIL) (NAME NIL T T ( DEFINER-MISMATCH 2 POINTER) DEFINER-MISMATCH-NAME) (TYPE NIL T T (DEFINER-MISMATCH 4 POINTER) DEFINER-MISMATCH-TYPE) (DEFINITION NIL T T (DEFINER-MISMATCH 6 POINTER) DEFINER-MISMATCH-DEFINITION)) NIL NIL (XPOINTER POINTER POINTER POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE DEFINER-MISMATCH) (QUOTE (XPOINTER POINTER POINTER POINTER)) ( QUOTE ((DEFINER-MISMATCH 0 XPOINTER) (DEFINER-MISMATCH 2 POINTER) (DEFINER-MISMATCH 4 POINTER) ( DEFINER-MISMATCH 6 POINTER))) 8 (QUOTE CONDITION)) (PUTPROP (QUOTE DEFINER-MISMATCH) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) DEFINER-MISMATCH-NAME :D8 (L (0 DEFINER-MISMATCH)) @NIL (5 DEFINER-MISMATCH) () DEFINER-MISMATCH-TYPE :D8 (L (0 DEFINER-MISMATCH)) @NIL (5 DEFINER-MISMATCH) () DEFINER-MISMATCH-DEFINITION :D8 (L (0 DEFINER-MISMATCH)) @NIL (5 DEFINER-MISMATCH) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE DEFINER-MISMATCH)) |DEFINER-MISMATCH constructor| :D8 (L (0 |-args-|) P 14 \\INTERRUPTABLE) ei HkKJhYiHk_OdNh]_i_Hk__OdOh__`_OdnhnOjkhIOLMOOOOOOKdagl[nkapagOkauOl_aagOkaxOl_bNIL (199 :DEFINITION 173 :TYPE 152 :NAME 78 |DEFINER-MISMATCHTYPE#|) () |DEFINER-MISMATCH report method| :D8 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) &io@@@ (35 CL:FORMAT) (27 DEFINER-MISMATCH 19 DEFINER-MISMATCH 11 DEFINER-MISMATCH) ( 5 "Definition ~S isn't a ~A definition for ~S.") (PUTPROP (QUOTE DEFINER-MISMATCH) (QUOTE %CONDITION-REPORTER) (CL:FUNCTION |DEFINER-MISMATCH report method|)) (PUTPROP (QUOTE DEFINER-MISMATCH) (QUOTE %CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE NO-SUCH-DEFINITION) T (QUOTE (CL::PS NO-SUCH-DEFINITION |NO-SUCH-DEFINITION constructor| (SI::--STRUCTURE-DUMMY-SLOT-- NAME TYPE) CL::DATATYPE NIL CL:ERROR "NO-SUCH-DEFINITION-" (|NO-SUCH-DEFINITION constructor|) NIL %PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL XPOINTER T (NO-SUCH-DEFINITION 0 XPOINTER) NIL) (NAME NIL T T ( NO-SUCH-DEFINITION 2 POINTER) NO-SUCH-DEFINITION-NAME) (TYPE NIL T T (NO-SUCH-DEFINITION 4 POINTER) NO-SUCH-DEFINITION-TYPE)) NIL NIL (XPOINTER POINTER POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE NO-SUCH-DEFINITION) (QUOTE (XPOINTER POINTER POINTER)) (QUOTE ((NO-SUCH-DEFINITION 0 XPOINTER) (NO-SUCH-DEFINITION 2 POINTER) (NO-SUCH-DEFINITION 4 POINTER))) 6 ( QUOTE CL:ERROR)) (PUTPROP (QUOTE NO-SUCH-DEFINITION) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) NO-SUCH-DEFINITION-NAME :D8 (L (0 NO-SUCH-DEFINITION)) @NIL (5 NO-SUCH-DEFINITION) () NO-SUCH-DEFINITION-TYPE :D8 (L (0 NO-SUCH-DEFINITION)) @NIL (5 NO-SUCH-DEFINITION) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE NO-SUCH-DEFINITION)) |NO-SUCH-DEFINITION constructor| :D8 (L (0 |-args-|) P 10 \\INTERRUPTABLE) ei HkKJWhYiHk_OdNZh]_`_ OdnhnOjkhIOLMOOOKdagl[kaagOkaOl_NIL (128 :TYPE 109 :NAME 45 |NO-SUCH-DEFINITIONTYPE#|) () |NO-SUCH-DEFINITION report method| :D8 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) io@@ (26 CL:FORMAT) (19 NO-SUCH-DEFINITION 11 NO-SUCH-DEFINITION) ( 5 "No ~A definition for ~S.") (PUTPROP (QUOTE NO-SUCH-DEFINITION) (QUOTE %CONDITION-REPORTER) (CL:FUNCTION |NO-SUCH-DEFINITION report method|)) (PUTPROP (QUOTE NO-SUCH-DEFINITION) (QUOTE %CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE STACK-POINTER-RELEASED) T (QUOTE (CL::PS STACK-POINTER-RELEASED |STACK-POINTER-RELEASED constructor| (SI::--STRUCTURE-DUMMY-SLOT-- XCL::NAME) CL::DATATYPE NIL CELL-ERROR "STACK-POINTER-RELEASED-" (|STACK-POINTER-RELEASED constructor|) NIL %PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL XPOINTER T (STACK-POINTER-RELEASED 0 XPOINTER) NIL) ( XCL::NAME NIL T T (STACK-POINTER-RELEASED 2 POINTER) STACK-POINTER-RELEASED-NAME)) NIL NIL (XPOINTER POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE STACK-POINTER-RELEASED) (QUOTE (XPOINTER POINTER)) (QUOTE (( STACK-POINTER-RELEASED 0 XPOINTER) (STACK-POINTER-RELEASED 2 POINTER))) 4 (QUOTE CELL-ERROR)) (PUTPROP (QUOTE STACK-POINTER-RELEASED) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) STACK-POINTER-RELEASED-NAME :D8 (L (0 STACK-POINTER-RELEASED)) @NIL (5 STACK-POINTER-RELEASED) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE STACK-POINTER-RELEASED)) |STACK-POINTER-RELEASED constructor| :D8 (L (0 |-args-|) P 6 \\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :NAME 24 |STACK-POINTER-RELEASEDTYPE#|) () |STACK-POINTER-RELEASED report method| :D8 (L (0 CONDITION) I 1 *STANDARD-OUTPUT* F 0 NAME) ioP (11 CL:FORMAT) NIL ( 5 "Stack ptr has been released~&~S") (PUTPROP (QUOTE STACK-POINTER-RELEASED) (QUOTE %CONDITION-REPORTER) (CL:FUNCTION |STACK-POINTER-RELEASED report method|)) (PUTPROP (QUOTE STACK-POINTER-RELEASED) (QUOTE %CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE UNDEFINED-FUNCTION-IN-APPLY) T (QUOTE (CL::PS UNDEFINED-FUNCTION-IN-APPLY |UNDEFINED-FUNCTION-IN-APPLY constructor| (SI::--STRUCTURE-DUMMY-SLOT-- XCL::NAME ARGUMENTS) CL::DATATYPE NIL UNDEFINED-FUNCTION "UNDEFINED-FUNCTION-IN-APPLY-" ( |UNDEFINED-FUNCTION-IN-APPLY constructor|) NIL %PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL XPOINTER T (UNDEFINED-FUNCTION-IN-APPLY 0 XPOINTER) NIL) (XCL::NAME NIL T T (UNDEFINED-FUNCTION-IN-APPLY 2 POINTER) UNDEFINED-FUNCTION-IN-APPLY-NAME) (ARGUMENTS NIL T T ( UNDEFINED-FUNCTION-IN-APPLY 4 POINTER) UNDEFINED-FUNCTION-IN-APPLY-ARGUMENTS)) NIL NIL (XPOINTER POINTER POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE UNDEFINED-FUNCTION-IN-APPLY) (QUOTE (XPOINTER POINTER POINTER) ) (QUOTE ((UNDEFINED-FUNCTION-IN-APPLY 0 XPOINTER) (UNDEFINED-FUNCTION-IN-APPLY 2 POINTER) ( UNDEFINED-FUNCTION-IN-APPLY 4 POINTER))) 6 (QUOTE UNDEFINED-FUNCTION)) (PUTPROP (QUOTE UNDEFINED-FUNCTION-IN-APPLY) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) UNDEFINED-FUNCTION-IN-APPLY-NAME :D8 (L (0 UNDEFINED-FUNCTION-IN-APPLY)) @NIL (5 UNDEFINED-FUNCTION-IN-APPLY) () UNDEFINED-FUNCTION-IN-APPLY-ARGUMENTS :D8 (L (0 UNDEFINED-FUNCTION-IN-APPLY)) @NIL (5 UNDEFINED-FUNCTION-IN-APPLY) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE UNDEFINED-FUNCTION-IN-APPLY)) |UNDEFINED-FUNCTION-IN-APPLY constructor| :D8 (L (0 |-args-|) P 10 \\INTERRUPTABLE) ei HkKJWhYiHk_OdNZh]_`_ OdnhnOjkhIOLMOOOKdagl[kaagOkaOl_NIL (128 :ARGUMENTS 109 :NAME 45 |UNDEFINED-FUNCTION-IN-APPLYTYPE#|) () (PUTPROP (QUOTE UNDEFINED-FUNCTION-IN-APPLY) (QUOTE %CONDITION-REPORTER) NIL) (PUTPROP (QUOTE UNDEFINED-FUNCTION-IN-APPLY) (QUOTE %CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE INDEX-BOUNDS-ERROR) T (QUOTE (CL::PS INDEX-BOUNDS-ERROR |INDEX-BOUNDS-ERROR constructor| (SI::--STRUCTURE-DUMMY-SLOT-- XCL::NAME INDEX) CL::DATATYPE NIL CELL-ERROR "INDEX-BOUNDS-ERROR-" (|INDEX-BOUNDS-ERROR constructor|) NIL %PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL XPOINTER T (INDEX-BOUNDS-ERROR 0 XPOINTER) NIL) (XCL::NAME NIL T T (INDEX-BOUNDS-ERROR 2 POINTER) INDEX-BOUNDS-ERROR-NAME) (INDEX NIL T T (INDEX-BOUNDS-ERROR 4 POINTER) INDEX-BOUNDS-ERROR-INDEX)) NIL NIL (XPOINTER POINTER POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL) )) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE INDEX-BOUNDS-ERROR) (QUOTE (XPOINTER POINTER POINTER)) (QUOTE ((INDEX-BOUNDS-ERROR 0 XPOINTER) (INDEX-BOUNDS-ERROR 2 POINTER) (INDEX-BOUNDS-ERROR 4 POINTER))) 6 ( QUOTE CELL-ERROR)) (PUTPROP (QUOTE INDEX-BOUNDS-ERROR) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) INDEX-BOUNDS-ERROR-NAME :D8 (L (0 INDEX-BOUNDS-ERROR)) @NIL (5 INDEX-BOUNDS-ERROR) () INDEX-BOUNDS-ERROR-INDEX :D8 (L (0 INDEX-BOUNDS-ERROR)) @NIL (5 INDEX-BOUNDS-ERROR) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE INDEX-BOUNDS-ERROR)) |INDEX-BOUNDS-ERROR constructor| :D8 (L (0 |-args-|) P 10 \\INTERRUPTABLE) ei HkKJWhYiHk_OdNZh]_`_ OdnhnOjkhIOLMOOOKdagl[kaagOkaOl_NIL (128 :INDEX 109 :NAME 45 |INDEX-BOUNDS-ERRORTYPE#|) () |INDEX-BOUNDS-ERROR report method| :D8 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) io@ (18 CL:FORMAT) (11 INDEX-BOUNDS-ERROR) ( 5 "Index out of bounds: ~D.") (PUTPROP (QUOTE INDEX-BOUNDS-ERROR) (QUOTE %CONDITION-REPORTER) (CL:FUNCTION |INDEX-BOUNDS-ERROR report method|)) (PUTPROP (QUOTE INDEX-BOUNDS-ERROR) (QUOTE %CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE UNDEFINED-CAR-OF-FORM) T (QUOTE (CL::PS UNDEFINED-CAR-OF-FORM |UNDEFINED-CAR-OF-FORM constructor| (SI::--STRUCTURE-DUMMY-SLOT-- FUNCTION) CL::DATATYPE NIL CONTROL-ERROR "UNDEFINED-CAR-OF-FORM-" (|UNDEFINED-CAR-OF-FORM constructor|) NIL %PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL XPOINTER T (UNDEFINED-CAR-OF-FORM 0 XPOINTER) NIL) ( FUNCTION NIL T T (UNDEFINED-CAR-OF-FORM 2 POINTER) UNDEFINED-CAR-OF-FORM-FUNCTION)) NIL NIL (XPOINTER POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE UNDEFINED-CAR-OF-FORM) (QUOTE (XPOINTER POINTER)) (QUOTE (( UNDEFINED-CAR-OF-FORM 0 XPOINTER) (UNDEFINED-CAR-OF-FORM 2 POINTER))) 4 (QUOTE CONTROL-ERROR)) (PUTPROP (QUOTE UNDEFINED-CAR-OF-FORM) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) UNDEFINED-CAR-OF-FORM-FUNCTION :D8 (L (0 UNDEFINED-CAR-OF-FORM)) @NIL (5 UNDEFINED-CAR-OF-FORM) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE UNDEFINED-CAR-OF-FORM)) |UNDEFINED-CAR-OF-FORM constructor| :D8 (L (0 |-args-|) P 6 \\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :FUNCTION 24 |UNDEFINED-CAR-OF-FORMTYPE#|) () (PUTPROP (QUOTE UNDEFINED-CAR-OF-FORM) (QUOTE %CONDITION-REPORTER) NIL) (PUTPROP (QUOTE UNDEFINED-CAR-OF-FORM) (QUOTE %CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE ILLEGAL-STACK-ARG) T (QUOTE (CL::PS ILLEGAL-STACK-ARG |ILLEGAL-STACK-ARG constructor| (SI::--STRUCTURE-DUMMY-SLOT-- ARG) CL::DATATYPE NIL CONTROL-ERROR "ILLEGAL-STACK-ARG-" (|ILLEGAL-STACK-ARG constructor|) NIL %PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL XPOINTER T (ILLEGAL-STACK-ARG 0 XPOINTER) NIL) (ARG NIL T T ( ILLEGAL-STACK-ARG 2 POINTER) ILLEGAL-STACK-ARG-ARG)) NIL NIL (XPOINTER POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE ILLEGAL-STACK-ARG) (QUOTE (XPOINTER POINTER)) (QUOTE (( ILLEGAL-STACK-ARG 0 XPOINTER) (ILLEGAL-STACK-ARG 2 POINTER))) 4 (QUOTE CONTROL-ERROR)) (PUTPROP (QUOTE ILLEGAL-STACK-ARG) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) ILLEGAL-STACK-ARG-ARG :D8 (L (0 ILLEGAL-STACK-ARG)) @NIL (5 ILLEGAL-STACK-ARG) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE ILLEGAL-STACK-ARG)) |ILLEGAL-STACK-ARG constructor| :D8 (L (0 |-args-|) P 6 \\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :ARG 24 |ILLEGAL-STACK-ARGTYPE#|) () |ILLEGAL-STACK-ARG report method| :D8 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) io@ (18 CL:FORMAT) (11 ILLEGAL-STACK-ARG) ( 5 "Illegal stack arg: ~S") (PUTPROP (QUOTE ILLEGAL-STACK-ARG) (QUOTE %CONDITION-REPORTER) (CL:FUNCTION |ILLEGAL-STACK-ARG report method|)) (PUTPROP (QUOTE ILLEGAL-STACK-ARG) (QUOTE %CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE CALL-ERROR) T (QUOTE (CL::PS CALL-ERROR |CALL-ERROR constructor| ( SI::--STRUCTURE-DUMMY-SLOT-- CALLEE) CL::DATATYPE NIL CONTROL-ERROR "CALL-ERROR-" ( |CALL-ERROR constructor|) NIL %PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL XPOINTER T (CALL-ERROR 0 XPOINTER) NIL) (CALLEE NIL T T (CALL-ERROR 2 POINTER) CALL-ERROR-CALLEE)) NIL NIL (XPOINTER POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE CALL-ERROR) (QUOTE (XPOINTER POINTER)) (QUOTE ((CALL-ERROR 0 XPOINTER) (CALL-ERROR 2 POINTER))) 4 (QUOTE CONTROL-ERROR)) (PUTPROP (QUOTE CALL-ERROR) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) CALL-ERROR-CALLEE :D8 (L (0 CALL-ERROR)) @NIL (5 CALL-ERROR) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE CALL-ERROR)) |CALL-ERROR constructor| :D8 (L (0 |-args-|) P 6 \\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :CALLEE 24 |CALL-ERRORTYPE#|) () (PUTPROP (QUOTE CALL-ERROR) (QUOTE %CONDITION-REPORTER) NIL) (PUTPROP (QUOTE CALL-ERROR) (QUOTE %CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE TOO-MANY-ARGUMENTS) T (QUOTE (CL::PS TOO-MANY-ARGUMENTS |TOO-MANY-ARGUMENTS constructor| (SI::--STRUCTURE-DUMMY-SLOT-- CALLEE MAXIMUM ACTUAL) CL::DATATYPE NIL CALL-ERROR "TOO-MANY-ARGUMENTS-" (|TOO-MANY-ARGUMENTS constructor|) NIL %PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL XPOINTER T (TOO-MANY-ARGUMENTS 0 XPOINTER) NIL) (CALLEE NIL T T (TOO-MANY-ARGUMENTS 2 POINTER) TOO-MANY-ARGUMENTS-CALLEE) (MAXIMUM NIL T T (TOO-MANY-ARGUMENTS 4 POINTER) TOO-MANY-ARGUMENTS-MAXIMUM) (ACTUAL NIL T T (TOO-MANY-ARGUMENTS 6 POINTER) TOO-MANY-ARGUMENTS-ACTUAL)) NIL NIL (XPOINTER POINTER POINTER POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE TOO-MANY-ARGUMENTS) (QUOTE (XPOINTER POINTER POINTER POINTER)) (QUOTE ((TOO-MANY-ARGUMENTS 0 XPOINTER) (TOO-MANY-ARGUMENTS 2 POINTER) (TOO-MANY-ARGUMENTS 4 POINTER) (TOO-MANY-ARGUMENTS 6 POINTER))) 8 (QUOTE CALL-ERROR)) (PUTPROP (QUOTE TOO-MANY-ARGUMENTS) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) TOO-MANY-ARGUMENTS-CALLEE :D8 (L (0 TOO-MANY-ARGUMENTS)) @NIL (5 TOO-MANY-ARGUMENTS) () TOO-MANY-ARGUMENTS-MAXIMUM :D8 (L (0 TOO-MANY-ARGUMENTS)) @NIL (5 TOO-MANY-ARGUMENTS) () TOO-MANY-ARGUMENTS-ACTUAL :D8 (L (0 TOO-MANY-ARGUMENTS)) @NIL (5 TOO-MANY-ARGUMENTS) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE TOO-MANY-ARGUMENTS)) |TOO-MANY-ARGUMENTS constructor| :D8 (L (0 |-args-|) P 14 \\INTERRUPTABLE) ei HkKJhYiHk_OdNh]_i_Hk__OdOh__`_OdnhnOjkhIOLMOOOOOOKdagl[nkapagOkauOl_aagOkaxOl_bNIL (199 :ACTUAL 173 :MAXIMUM 152 :CALLEE 78 |TOO-MANY-ARGUMENTSTYPE#|) () |TOO-MANY-ARGUMENTS report method| :D8 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) f@d4@d(io@@@ io@ o (99 CL:PRINC 88 CL:FORMAT 59 CL:FORMAT) (81 TOO-MANY-ARGUMENTS 65 TOO-MANY-ARGUMENTS 51 TOO-MANY-ARGUMENTS 43 TOO-MANY-ARGUMENTS 35 TOO-MANY-ARGUMENTS 18 TOO-MANY-ARGUMENTS 6 TOO-MANY-ARGUMENTS) ( 94 "Too many arguments" 75 "Too many arguments to ~A" 29 "Too many arguments to ~A:~% ~D ~:*~[were~;was~:;were~] given but at most ~D ~:*~[are~;is~:;are~] accepted") (PUTPROP (QUOTE TOO-MANY-ARGUMENTS) (QUOTE %CONDITION-REPORTER) (CL:FUNCTION |TOO-MANY-ARGUMENTS report method|)) (PUTPROP (QUOTE TOO-MANY-ARGUMENTS) (QUOTE %CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE TOO-FEW-ARGUMENTS) T (QUOTE (CL::PS TOO-FEW-ARGUMENTS |TOO-FEW-ARGUMENTS constructor| (SI::--STRUCTURE-DUMMY-SLOT-- CALLEE MINIMUM ACTUAL) CL::DATATYPE NIL CALL-ERROR "TOO-FEW-ARGUMENTS-" (|TOO-FEW-ARGUMENTS constructor|) NIL %PRINT-CONDITION NIL NIL 0 NIL ( (SI::--STRUCTURE-DUMMY-SLOT-- NIL XPOINTER T (TOO-FEW-ARGUMENTS 0 XPOINTER) NIL) (CALLEE NIL T T ( TOO-FEW-ARGUMENTS 2 POINTER) TOO-FEW-ARGUMENTS-CALLEE) (MINIMUM NIL T T (TOO-FEW-ARGUMENTS 4 POINTER) TOO-FEW-ARGUMENTS-MINIMUM) (ACTUAL NIL T T (TOO-FEW-ARGUMENTS 6 POINTER) TOO-FEW-ARGUMENTS-ACTUAL)) NIL NIL (XPOINTER POINTER POINTER POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE TOO-FEW-ARGUMENTS) (QUOTE (XPOINTER POINTER POINTER POINTER)) (QUOTE ((TOO-FEW-ARGUMENTS 0 XPOINTER) (TOO-FEW-ARGUMENTS 2 POINTER) (TOO-FEW-ARGUMENTS 4 POINTER) ( TOO-FEW-ARGUMENTS 6 POINTER))) 8 (QUOTE CALL-ERROR)) (PUTPROP (QUOTE TOO-FEW-ARGUMENTS) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) TOO-FEW-ARGUMENTS-CALLEE :D8 (L (0 TOO-FEW-ARGUMENTS)) @NIL (5 TOO-FEW-ARGUMENTS) () TOO-FEW-ARGUMENTS-MINIMUM :D8 (L (0 TOO-FEW-ARGUMENTS)) @NIL (5 TOO-FEW-ARGUMENTS) () TOO-FEW-ARGUMENTS-ACTUAL :D8 (L (0 TOO-FEW-ARGUMENTS)) @NIL (5 TOO-FEW-ARGUMENTS) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE TOO-FEW-ARGUMENTS)) |TOO-FEW-ARGUMENTS constructor| :D8 (L (0 |-args-|) P 14 \\INTERRUPTABLE) ei HkKJhYiHk_OdNh]_i_Hk__OdOh__`_OdnhnOjkhIOLMOOOOOOKdagl[nkapagOkauOl_aagOkaxOl_bNIL (199 :ACTUAL 173 :MINIMUM 152 :CALLEE 78 |TOO-FEW-ARGUMENTSTYPE#|) () |TOO-FEW-ARGUMENTS report method| :D8 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) N@1@'io@@@ io@ (75 CL:FORMAT 55 CL:FORMAT) (68 TOO-FEW-ARGUMENTS 47 TOO-FEW-ARGUMENTS 39 TOO-FEW-ARGUMENTS 31 TOO-FEW-ARGUMENTS 15 TOO-FEW-ARGUMENTS 5 TOO-FEW-ARGUMENTS) ( 62 "Too few arguments to ~A" 25 "Too few arguments to ~A:~% ~D ~:*~[were~;was~:;were~] given but at least ~D ~:*~[are~;is~:;are~] necessary") (PUTPROP (QUOTE TOO-FEW-ARGUMENTS) (QUOTE %CONDITION-REPORTER) (CL:FUNCTION |TOO-FEW-ARGUMENTS report method|)) (PUTPROP (QUOTE TOO-FEW-ARGUMENTS) (QUOTE %CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE INVALID-ARGUMENT-LIST) T (QUOTE (CL::PS INVALID-ARGUMENT-LIST |INVALID-ARGUMENT-LIST constructor| (SI::--STRUCTURE-DUMMY-SLOT-- CALLEE ARGUMENT) CL::DATATYPE NIL CALL-ERROR "INVALID-ARGUMENT-LIST-" (|INVALID-ARGUMENT-LIST constructor|) NIL %PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL XPOINTER T (INVALID-ARGUMENT-LIST 0 XPOINTER) NIL) (CALLEE NIL T T (INVALID-ARGUMENT-LIST 2 POINTER) INVALID-ARGUMENT-LIST-CALLEE) (ARGUMENT NIL T T ( INVALID-ARGUMENT-LIST 4 POINTER) INVALID-ARGUMENT-LIST-ARGUMENT)) NIL NIL (XPOINTER POINTER POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE INVALID-ARGUMENT-LIST) (QUOTE (XPOINTER POINTER POINTER)) ( QUOTE ((INVALID-ARGUMENT-LIST 0 XPOINTER) (INVALID-ARGUMENT-LIST 2 POINTER) (INVALID-ARGUMENT-LIST 4 POINTER))) 6 (QUOTE CALL-ERROR)) (PUTPROP (QUOTE INVALID-ARGUMENT-LIST) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) INVALID-ARGUMENT-LIST-CALLEE :D8 (L (0 INVALID-ARGUMENT-LIST)) @NIL (5 INVALID-ARGUMENT-LIST) () INVALID-ARGUMENT-LIST-ARGUMENT :D8 (L (0 INVALID-ARGUMENT-LIST)) @NIL (5 INVALID-ARGUMENT-LIST) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE INVALID-ARGUMENT-LIST)) |INVALID-ARGUMENT-LIST constructor| :D8 (L (0 |-args-|) P 10 \\INTERRUPTABLE) ei HkKJWhYiHk_OdNZh]_`_ OdnhnOjkhIOLMOOOKdagl[kaagOkaOl_NIL (128 :ARGUMENT 109 :CALLEE 45 |INVALID-ARGUMENT-LISTTYPE#|) () |INVALID-ARGUMENT-LIST report method| :D8 (L (0 CONDITION) I 1 *STANDARD-OUTPUT*) ;@io@ io@@ (56 CL:FORMAT 28 CL:FORMAT) (49 INVALID-ARGUMENT-LIST 41 INVALID-ARGUMENT-LIST 21 INVALID-ARGUMENT-LIST 5 INVALID-ARGUMENT-LIST) ( 35 "~S was given an invalid argument: ~S" 15 "Invalid argument: ~S") (PUTPROP (QUOTE INVALID-ARGUMENT-LIST) (QUOTE %CONDITION-REPORTER) (CL:FUNCTION |INVALID-ARGUMENT-LIST report method|)) (PUTPROP (QUOTE INVALID-ARGUMENT-LIST) (QUOTE %CONDITION-HANDLER) NIL) (PUTPROPS CONDITION-HIERARCHY-IL FILETYPE CL:COMPILE-FILE) (PUTPROPS CONDITION-HIERARCHY-IL COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990)) NIL