(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "XCL" (USE))) (IL:FILECREATED " 4-Nov-93 10:59:28" ("compiled on " IL:|{DSK}export>lispcore>sources>CLTL2>CONDITION-HIERARCHY.;1|) "19-Feb-93 17:03:08" "COMPILE-FILEd" IL:|in| "Medley 19-Feb-93 ..." IL:|dated| "19-Feb-93 18:20:42") (IL:FILECREATED "25-Oct-91 16:28:50" IL:|{DSK}local>lde>lispcore>sources>CONDITION-HIERARCHY.;3| 12064 IL:|changes| IL:|to:| (IL:VARS IL:CONDITION-HIERARCHYCOMS) IL:|previous| IL:|date:| "30-Jul-91 15:14:18" IL:|{DSK}local>lde>lispcore>sources>CONDITION-HIERARCHY.;2|) (IL:RPAQQ IL:CONDITION-HIERARCHYCOMS ((IL:STRUCTURES CONDITION SIMPLE-CONDITION WARNING SIMPLE-WARNING SERIOUS-CONDITION ERROR SIMPLE-ERROR ASSERTION-FAILED HASH-TABLE-FULL) (IL:STRUCTURES CELL-ERROR UNBOUND-VARIABLE UNDEFINED-FUNCTION ATTEMPT-TO-CHANGE-CONSTANT ATTEMPT-TO-RPLAC-NIL) (IL:FILES IL:CONDITION-HIERARCHY-SI IL:CONDITION-HIERARCHY-POST-SI) (IL:COMS (IL:FUNCTIONS IL:PRETTY-TYPE-NAME) (IL:STRUCTURES TYPE-ERROR SIMPLE-TYPE-ERROR TYPE-MISMATCH SYMBOL-AS-PATHNAME)) (IL:STRUCTURES CONTROL-ERROR PROGRAM-ERROR ILLEGAL-GO ILLEGAL-RETURN ILLEGAL-THROW BAD-PROCEED-CASE) (IL:STRUCTURES STREAM-ERROR STREAM-NOT-OPEN READ-ERROR SYMBOL-NAME-TOO-LONG END-OF-FILE) (IL:STRUCTURES STORAGE-CONDITION STACK-OVERFLOW CRITICAL-STORAGE-CONDITION STORAGE-EXHAUSTED SYMBOL-HT-FULL ARRAY-SPACE-FULL DATA-TYPES-EXHAUSTED) (IL:STRUCTURES DEVICE-ERROR SIMPLE-DEVICE-ERROR) (IL:STRUCTURES FILE-ERROR FILE-WONT-OPEN FS-RESOURCES-EXCEEDED FS-PROTECTION-VIOLATION FS-RENAMEFILE-SOURCE-COULDNT-DELETE) (IL:STRUCTURES ARITHMETIC-ERROR DIVISION-BY-ZERO FLOATING-POINT-OVERFLOW FLOATING-POINT-UNDERFLOW) (IL:STRUCTURES PATHNAME-ERROR FILE-NOT-FOUND INVALID-PATHNAME) (IL:STRUCTURES CL::PRINT-NOT-READABLE) (IL:FUNCTIONS SIMPLE-CONDITION-FORMAT-ARGUMENTS SIMPLE-CONDITION-FORMAT-STRING) (IL:FILES IL:CONDITION-HIERARCHY-IL) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:CONDITION-HIERARCHY))) (CL::SET-PARSED-STRUCTURE (QUOTE CONDITION) T (QUOTE (CL::PS CONDITION |CONDITION constructor| ( SI::--STRUCTURE-DUMMY-SLOT--) CL::DATATYPE NIL NIL "CONDITION-" (|CONDITION constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (CONDITION 0 IL:XPOINTER) NIL)) NIL NIL (IL:XPOINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE CONDITION) (QUOTE (IL:XPOINTER)) (QUOTE ((CONDITION 0 IL:XPOINTER))) 2 (QUOTE CL::STRUCTURE-OBJECT)) (IL:PUTPROP (QUOTE CONDITION) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE CONDITION)) |CONDITION constructor| :D8 (IL:P 1 IL:\\INTERRUPTABLE) *`HdnhnHjkhHNIL (4 |CONDITIONTYPE#|) () |CONDITION report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) io@ (11 FORMAT) NIL ( 5 "Condition ~S occurred.") (IL:PUTPROP (QUOTE CONDITION) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |CONDITION report method|)) (IL:PUTPROP (QUOTE CONDITION) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE SIMPLE-CONDITION) T (QUOTE (CL::PS SIMPLE-CONDITION |SIMPLE-CONDITION constructor| (SI::--STRUCTURE-DUMMY-SLOT-- FORMAT-STRING FORMAT-ARGUMENTS) CL::DATATYPE NIL CONDITION "%SIMPLE-CONDITION-" (|SIMPLE-CONDITION constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (SIMPLE-CONDITION 0 IL:XPOINTER) NIL) (FORMAT-STRING NIL T T (SIMPLE-CONDITION 2 IL:POINTER) %SIMPLE-CONDITION-FORMAT-STRING) ( FORMAT-ARGUMENTS NIL T T (SIMPLE-CONDITION 4 IL:POINTER) %SIMPLE-CONDITION-FORMAT-ARGUMENTS)) NIL NIL (IL:XPOINTER IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE SIMPLE-CONDITION) (QUOTE (IL:XPOINTER IL:POINTER IL:POINTER)) (QUOTE ((SIMPLE-CONDITION 0 IL:XPOINTER) (SIMPLE-CONDITION 2 IL:POINTER) (SIMPLE-CONDITION 4 IL:POINTER ))) 6 (QUOTE CONDITION)) (IL:PUTPROP (QUOTE SIMPLE-CONDITION) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) %SIMPLE-CONDITION-FORMAT-STRING :D8 (IL:L (0 SIMPLE-CONDITION)) @NIL (5 SIMPLE-CONDITION) () %SIMPLE-CONDITION-FORMAT-ARGUMENTS :D8 (IL:L (0 SIMPLE-CONDITION)) @NIL (5 SIMPLE-CONDITION) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE SIMPLE-CONDITION)) |SIMPLE-CONDITION constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 10 IL:\\INTERRUPTABLE) ei HkKJWhYiHk_OdNZh]_`_ OdnhnOjkhIOLMOOOKdagl[kaagOkaOl_NIL (128 :FORMAT-ARGUMENTS 109 :FORMAT-STRING 45 |SIMPLE-CONDITIONTYPE#|) () |SIMPLE-CONDITION report method| :D8 (IL:L (1 STREAM 0 CONDITION)) :glA@@dnIkYhl4 IH(49 IL:\\LISPERROR) (24 SIMPLE-CONDITION 16 SIMPLE-CONDITION 4 FORMAT) () (IL:PUTPROP (QUOTE SIMPLE-CONDITION) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |SIMPLE-CONDITION report method|)) (IL:PUTPROP (QUOTE SIMPLE-CONDITION) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE WARNING) T (QUOTE (CL::PS WARNING |WARNING constructor| ( SI::--STRUCTURE-DUMMY-SLOT-- CONDITION) CL::DATATYPE NIL CONDITION "WARNING-" (|WARNING constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (WARNING 0 IL:XPOINTER) NIL) (CONDITION NIL T T (WARNING 2 IL:POINTER) WARNING-CONDITION)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE WARNING) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE ((WARNING 0 IL:XPOINTER) (WARNING 2 IL:POINTER))) 4 (QUOTE CONDITION)) (IL:PUTPROP (QUOTE WARNING) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) WARNING-CONDITION :D8 (IL:L (0 WARNING)) @NIL (5 WARNING) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE WARNING)) |WARNING constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :CONDITION 24 |WARNINGTYPE#|) () |WARNING report method| :D8 (IL:L (1 S 0 C)) AoA (18 FORMAT) (11 WARNING) ( 5 "Warning: ~A") (IL:PUTPROP (QUOTE WARNING) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |WARNING report method|)) (IL:PUTPROP (QUOTE WARNING) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE SIMPLE-WARNING) T (QUOTE (CL::PS SIMPLE-WARNING |SIMPLE-WARNING constructor| (SI::--STRUCTURE-DUMMY-SLOT-- CONDITION FORMAT-STRING FORMAT-ARGUMENTS) CL::DATATYPE NIL WARNING "%SIMPLE-WARNING-" (|SIMPLE-WARNING constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (SIMPLE-WARNING 0 IL:XPOINTER) NIL) ( CONDITION NIL T T (SIMPLE-WARNING 2 IL:POINTER) %SIMPLE-WARNING-CONDITION) (FORMAT-STRING NIL T T ( SIMPLE-WARNING 4 IL:POINTER) %SIMPLE-WARNING-FORMAT-STRING) (FORMAT-ARGUMENTS NIL T T (SIMPLE-WARNING 6 IL:POINTER) %SIMPLE-WARNING-FORMAT-ARGUMENTS)) NIL NIL (IL:XPOINTER IL:POINTER IL:POINTER IL:POINTER ) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE SIMPLE-WARNING) (QUOTE (IL:XPOINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((SIMPLE-WARNING 0 IL:XPOINTER) (SIMPLE-WARNING 2 IL:POINTER) (SIMPLE-WARNING 4 IL:POINTER) (SIMPLE-WARNING 6 IL:POINTER))) 8 (QUOTE WARNING)) (IL:PUTPROP (QUOTE SIMPLE-WARNING) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) %SIMPLE-WARNING-CONDITION :D8 (IL:L (0 SIMPLE-WARNING)) @NIL (5 SIMPLE-WARNING) () %SIMPLE-WARNING-FORMAT-STRING :D8 (IL:L (0 SIMPLE-WARNING)) @NIL (5 SIMPLE-WARNING) () %SIMPLE-WARNING-FORMAT-ARGUMENTS :D8 (IL:L (0 SIMPLE-WARNING)) @NIL (5 SIMPLE-WARNING) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE SIMPLE-WARNING)) |SIMPLE-WARNING constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 14 IL:\\INTERRUPTABLE) ei HkKJhYiHk_OdNh]_i_Hk__OdOh__`_OdnhnOjkhIOLMOOOOOOKdagl[nkapagOkauOl_aagOkaxOl_bNIL (199 :FORMAT-ARGUMENTS 173 :FORMAT-STRING 152 :CONDITION 78 |SIMPLE-WARNINGTYPE#|) () |SIMPLE-WARNING report method| :D8 (IL:L (1 STREAM 0 CONDITION)) :glA@@dnIkYhl4 IH(49 IL:\\LISPERROR) (24 SIMPLE-WARNING 16 SIMPLE-WARNING 4 FORMAT) () (IL:PUTPROP (QUOTE SIMPLE-WARNING) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |SIMPLE-WARNING report method|)) (IL:PUTPROP (QUOTE SIMPLE-WARNING) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE SERIOUS-CONDITION) T (QUOTE (CL::PS SERIOUS-CONDITION |SERIOUS-CONDITION constructor| (SI::--STRUCTURE-DUMMY-SLOT--) CL::DATATYPE NIL CONDITION "SERIOUS-CONDITION-" (|SERIOUS-CONDITION constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (SERIOUS-CONDITION 0 IL:XPOINTER) NIL)) NIL NIL ( IL:XPOINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE SERIOUS-CONDITION) (QUOTE (IL:XPOINTER)) (QUOTE (( SERIOUS-CONDITION 0 IL:XPOINTER))) 2 (QUOTE CONDITION)) (IL:PUTPROP (QUOTE SERIOUS-CONDITION) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE SERIOUS-CONDITION)) |SERIOUS-CONDITION constructor| :D8 (IL:P 1 IL:\\INTERRUPTABLE) *`HdnhnHjkhHNIL (4 |SERIOUS-CONDITIONTYPE#|) () |SERIOUS-CONDITION report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) io@ (16 FORMAT 11 TYPE-OF) NIL ( 5 "Serious condition ~S occurred.") (IL:PUTPROP (QUOTE SERIOUS-CONDITION) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |SERIOUS-CONDITION report method|)) (IL:PUTPROP (QUOTE SERIOUS-CONDITION) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE ERROR) T (QUOTE (CL::PS ERROR CL::|ERROR constructor| ( SI::--STRUCTURE-DUMMY-SLOT--) CL::DATATYPE NIL SERIOUS-CONDITION "ERROR-" (CL::|ERROR constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (ERROR 0 IL:XPOINTER) NIL)) NIL NIL (IL:XPOINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE ERROR) (QUOTE (IL:XPOINTER)) (QUOTE ((ERROR 0 IL:XPOINTER))) 2 (QUOTE SERIOUS-CONDITION)) (IL:PUTPROP (QUOTE ERROR) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE ERROR)) CL::|ERROR constructor| :D8 (IL:P 1 IL:\\INTERRUPTABLE) *`HdnhnHjkhHNIL (4 CL::|ERRORTYPE#|) () (IL:PUTPROP (QUOTE ERROR) (QUOTE IL:%CONDITION-REPORTER) NIL) (IL:PUTPROP (QUOTE ERROR) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE SIMPLE-ERROR) T (QUOTE (CL::PS SIMPLE-ERROR |SIMPLE-ERROR constructor| (SI::--STRUCTURE-DUMMY-SLOT-- FORMAT-STRING FORMAT-ARGUMENTS) CL::DATATYPE NIL ERROR "%SIMPLE-ERROR-" (|SIMPLE-ERROR constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (SIMPLE-ERROR 0 IL:XPOINTER) NIL) (FORMAT-STRING NIL T T (SIMPLE-ERROR 2 IL:POINTER) %SIMPLE-ERROR-FORMAT-STRING) (FORMAT-ARGUMENTS NIL T T (SIMPLE-ERROR 4 IL:POINTER) %SIMPLE-ERROR-FORMAT-ARGUMENTS)) NIL NIL (IL:XPOINTER IL:POINTER IL:POINTER) NIL ( :ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE SIMPLE-ERROR) (QUOTE (IL:XPOINTER IL:POINTER IL:POINTER)) ( QUOTE ((SIMPLE-ERROR 0 IL:XPOINTER) (SIMPLE-ERROR 2 IL:POINTER) (SIMPLE-ERROR 4 IL:POINTER))) 6 (QUOTE ERROR)) (IL:PUTPROP (QUOTE SIMPLE-ERROR) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) %SIMPLE-ERROR-FORMAT-STRING :D8 (IL:L (0 SIMPLE-ERROR)) @NIL (5 SIMPLE-ERROR) () %SIMPLE-ERROR-FORMAT-ARGUMENTS :D8 (IL:L (0 SIMPLE-ERROR)) @NIL (5 SIMPLE-ERROR) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE SIMPLE-ERROR)) |SIMPLE-ERROR constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 10 IL:\\INTERRUPTABLE) ei HkKJWhYiHk_OdNZh]_`_ OdnhnOjkhIOLMOOOKdagl[kaagOkaOl_NIL (128 :FORMAT-ARGUMENTS 109 :FORMAT-STRING 45 |SIMPLE-ERRORTYPE#|) () |SIMPLE-ERROR report method| :D8 (IL:L (1 STREAM 0 CONDITION)) :glA@@dnIkYhl4 IH(49 IL:\\LISPERROR) (24 SIMPLE-ERROR 16 SIMPLE-ERROR 4 FORMAT) () (IL:PUTPROP (QUOTE SIMPLE-ERROR) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |SIMPLE-ERROR report method| )) (IL:PUTPROP (QUOTE SIMPLE-ERROR) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE ASSERTION-FAILED) T (QUOTE (CL::PS ASSERTION-FAILED |ASSERTION-FAILED constructor| (SI::--STRUCTURE-DUMMY-SLOT-- FORMAT-STRING FORMAT-ARGUMENTS) CL::DATATYPE NIL SIMPLE-ERROR "ASSERTION-FAILED-" (|ASSERTION-FAILED constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (ASSERTION-FAILED 0 IL:XPOINTER) NIL) (FORMAT-STRING NIL T T (ASSERTION-FAILED 2 IL:POINTER) ASSERTION-FAILED-FORMAT-STRING) (FORMAT-ARGUMENTS NIL T T (ASSERTION-FAILED 4 IL:POINTER) ASSERTION-FAILED-FORMAT-ARGUMENTS)) NIL NIL (IL:XPOINTER IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE ASSERTION-FAILED) (QUOTE (IL:XPOINTER IL:POINTER IL:POINTER)) (QUOTE ((ASSERTION-FAILED 0 IL:XPOINTER) (ASSERTION-FAILED 2 IL:POINTER) (ASSERTION-FAILED 4 IL:POINTER ))) 6 (QUOTE SIMPLE-ERROR)) (IL:PUTPROP (QUOTE ASSERTION-FAILED) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) ASSERTION-FAILED-FORMAT-STRING :D8 (IL:L (0 ASSERTION-FAILED)) @NIL (5 ASSERTION-FAILED) () ASSERTION-FAILED-FORMAT-ARGUMENTS :D8 (IL:L (0 ASSERTION-FAILED)) @NIL (5 ASSERTION-FAILED) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE ASSERTION-FAILED)) |ASSERTION-FAILED constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 10 IL:\\INTERRUPTABLE) ei HkKJWhYiHk_OdNZh]_`_ OdnhnOjkhIOLMOOOKdagl[kaagOkaOl_NIL (128 :FORMAT-ARGUMENTS 109 :FORMAT-STRING 45 |ASSERTION-FAILEDTYPE#|) () |ASSERTION-FAILED report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) Agli@o@dnIkYhl4 IH(56 IL:\\LISPERROR) (31 ASSERTION-FAILED 16 ASSERTION-FAILED 4 FORMAT) ( 25 "Assertion failed.") (IL:PUTPROP (QUOTE ASSERTION-FAILED) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |ASSERTION-FAILED report method|)) (IL:PUTPROP (QUOTE ASSERTION-FAILED) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE HASH-TABLE-FULL) T (QUOTE (CL::PS HASH-TABLE-FULL |HASH-TABLE-FULL constructor| (SI::--STRUCTURE-DUMMY-SLOT-- TABLE) CL::DATATYPE NIL ERROR "HASH-TABLE-FULL-" (|HASH-TABLE-FULL constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (HASH-TABLE-FULL 0 IL:XPOINTER) NIL) (TABLE NIL T T ( HASH-TABLE-FULL 2 IL:POINTER) HASH-TABLE-FULL-TABLE)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE HASH-TABLE-FULL) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE (( HASH-TABLE-FULL 0 IL:XPOINTER) (HASH-TABLE-FULL 2 IL:POINTER))) 4 (QUOTE ERROR)) (IL:PUTPROP (QUOTE HASH-TABLE-FULL) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) HASH-TABLE-FULL-TABLE :D8 (IL:L (0 HASH-TABLE-FULL)) @NIL (5 HASH-TABLE-FULL) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE HASH-TABLE-FULL)) |HASH-TABLE-FULL constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :TABLE 24 |HASH-TABLE-FULLTYPE#|) () |HASH-TABLE-FULL report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) io@ (18 FORMAT) (11 HASH-TABLE-FULL) ( 5 "Hash table full: ~S") (IL:PUTPROP (QUOTE HASH-TABLE-FULL) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |HASH-TABLE-FULL report method|)) (IL:PUTPROP (QUOTE HASH-TABLE-FULL) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE CELL-ERROR) T (QUOTE (CL::PS CELL-ERROR |CELL-ERROR constructor| ( SI::--STRUCTURE-DUMMY-SLOT-- NAME) CL::DATATYPE NIL ERROR "CELL-ERROR-" (|CELL-ERROR constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (CELL-ERROR 0 IL:XPOINTER) NIL) (NAME NIL T T (CELL-ERROR 2 IL:POINTER) CELL-ERROR-NAME)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE CELL-ERROR) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE (( CELL-ERROR 0 IL:XPOINTER) (CELL-ERROR 2 IL:POINTER))) 4 (QUOTE ERROR)) (IL:PUTPROP (QUOTE CELL-ERROR) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) CELL-ERROR-NAME :D8 (IL:L (0 CELL-ERROR)) @NIL (5 CELL-ERROR) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE CELL-ERROR)) |CELL-ERROR constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :NAME 24 |CELL-ERRORTYPE#|) () (IL:PUTPROP (QUOTE CELL-ERROR) (QUOTE IL:%CONDITION-REPORTER) NIL) (IL:PUTPROP (QUOTE CELL-ERROR) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE UNBOUND-VARIABLE) T (QUOTE (CL::PS UNBOUND-VARIABLE |UNBOUND-VARIABLE constructor| (SI::--STRUCTURE-DUMMY-SLOT-- NAME) CL::DATATYPE NIL CELL-ERROR "UNBOUND-VARIABLE-" (|UNBOUND-VARIABLE constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (UNBOUND-VARIABLE 0 IL:XPOINTER) NIL) (NAME NIL T T ( UNBOUND-VARIABLE 2 IL:POINTER) UNBOUND-VARIABLE-NAME)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE UNBOUND-VARIABLE) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE (( UNBOUND-VARIABLE 0 IL:XPOINTER) (UNBOUND-VARIABLE 2 IL:POINTER))) 4 (QUOTE CELL-ERROR)) (IL:PUTPROP (QUOTE UNBOUND-VARIABLE) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) UNBOUND-VARIABLE-NAME :D8 (IL:L (0 UNBOUND-VARIABLE)) @NIL (5 UNBOUND-VARIABLE) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE UNBOUND-VARIABLE)) |UNBOUND-VARIABLE constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :NAME 24 |UNBOUND-VARIABLETYPE#|) () |UNBOUND-VARIABLE report method| :D8 (IL:L (1 S 0 C)) Ao@ (18 FORMAT) (11 UNBOUND-VARIABLE) ( 5 "~S is an unbound variable.") (IL:PUTPROP (QUOTE UNBOUND-VARIABLE) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |UNBOUND-VARIABLE report method|)) (IL:PUTPROP (QUOTE UNBOUND-VARIABLE) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE UNDEFINED-FUNCTION) T (QUOTE (CL::PS UNDEFINED-FUNCTION |UNDEFINED-FUNCTION constructor| (SI::--STRUCTURE-DUMMY-SLOT-- NAME) CL::DATATYPE NIL CELL-ERROR "UNDEFINED-FUNCTION-" (|UNDEFINED-FUNCTION constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (UNDEFINED-FUNCTION 0 IL:XPOINTER) NIL) (NAME NIL T T ( UNDEFINED-FUNCTION 2 IL:POINTER) UNDEFINED-FUNCTION-NAME)) NIL NIL (IL:XPOINTER IL:POINTER) NIL ( :ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE UNDEFINED-FUNCTION) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE (( UNDEFINED-FUNCTION 0 IL:XPOINTER) (UNDEFINED-FUNCTION 2 IL:POINTER))) 4 (QUOTE CELL-ERROR)) (IL:PUTPROP (QUOTE UNDEFINED-FUNCTION) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) UNDEFINED-FUNCTION-NAME :D8 (IL:L (0 UNDEFINED-FUNCTION)) @NIL (5 UNDEFINED-FUNCTION) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE UNDEFINED-FUNCTION)) |UNDEFINED-FUNCTION constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :NAME 24 |UNDEFINED-FUNCTIONTYPE#|) () |UNDEFINED-FUNCTION report method| :D8 (IL:L (1 S 0 C)) Ao@ (18 FORMAT) (11 UNDEFINED-FUNCTION) ( 5 "~S is an undefined function.") (IL:PUTPROP (QUOTE UNDEFINED-FUNCTION) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |UNDEFINED-FUNCTION report method|)) (IL:PUTPROP (QUOTE UNDEFINED-FUNCTION) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE ATTEMPT-TO-CHANGE-CONSTANT) T (QUOTE (CL::PS ATTEMPT-TO-CHANGE-CONSTANT |ATTEMPT-TO-CHANGE-CONSTANT constructor| (SI::--STRUCTURE-DUMMY-SLOT-- NAME ) CL::DATATYPE NIL CELL-ERROR "ATTEMPT-TO-CHANGE-CONSTANT-" (|ATTEMPT-TO-CHANGE-CONSTANT constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T ( ATTEMPT-TO-CHANGE-CONSTANT 0 IL:XPOINTER) NIL) (NAME NIL T T (ATTEMPT-TO-CHANGE-CONSTANT 2 IL:POINTER) ATTEMPT-TO-CHANGE-CONSTANT-NAME)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE ATTEMPT-TO-CHANGE-CONSTANT) (QUOTE (IL:XPOINTER IL:POINTER)) ( QUOTE ((ATTEMPT-TO-CHANGE-CONSTANT 0 IL:XPOINTER) (ATTEMPT-TO-CHANGE-CONSTANT 2 IL:POINTER))) 4 (QUOTE CELL-ERROR)) (IL:PUTPROP (QUOTE ATTEMPT-TO-CHANGE-CONSTANT) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE )) ATTEMPT-TO-CHANGE-CONSTANT-NAME :D8 (IL:L (0 ATTEMPT-TO-CHANGE-CONSTANT)) @NIL (5 ATTEMPT-TO-CHANGE-CONSTANT) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE ATTEMPT-TO-CHANGE-CONSTANT)) |ATTEMPT-TO-CHANGE-CONSTANT constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :NAME 24 |ATTEMPT-TO-CHANGE-CONSTANTTYPE#|) () (IL:PUTPROP (QUOTE ATTEMPT-TO-CHANGE-CONSTANT) (QUOTE IL:%CONDITION-REPORTER) NIL) (IL:PUTPROP (QUOTE ATTEMPT-TO-CHANGE-CONSTANT) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE ATTEMPT-TO-RPLAC-NIL) T (QUOTE (CL::PS ATTEMPT-TO-RPLAC-NIL |ATTEMPT-TO-RPLAC-NIL constructor| (SI::--STRUCTURE-DUMMY-SLOT-- NAME) CL::DATATYPE NIL ATTEMPT-TO-CHANGE-CONSTANT "ATTEMPT-TO-RPLAC-NIL-" (|ATTEMPT-TO-RPLAC-NIL constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T ( ATTEMPT-TO-RPLAC-NIL 0 IL:XPOINTER) NIL) (NAME NIL T T (ATTEMPT-TO-RPLAC-NIL 2 IL:POINTER) ATTEMPT-TO-RPLAC-NIL-NAME)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE ATTEMPT-TO-RPLAC-NIL) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE ((ATTEMPT-TO-RPLAC-NIL 0 IL:XPOINTER) (ATTEMPT-TO-RPLAC-NIL 2 IL:POINTER))) 4 (QUOTE ATTEMPT-TO-CHANGE-CONSTANT)) (IL:PUTPROP (QUOTE ATTEMPT-TO-RPLAC-NIL) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) ATTEMPT-TO-RPLAC-NIL-NAME :D8 (IL:L (0 ATTEMPT-TO-RPLAC-NIL)) @NIL (5 ATTEMPT-TO-RPLAC-NIL) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE ATTEMPT-TO-RPLAC-NIL)) |ATTEMPT-TO-RPLAC-NIL constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :NAME 24 |ATTEMPT-TO-RPLAC-NILTYPE#|) () |ATTEMPT-TO-RPLAC-NIL report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) io@ (18 FORMAT) (11 ATTEMPT-TO-RPLAC-NIL) ( 5 "Attempt to rplac NIL with ~S") (IL:PUTPROP (QUOTE ATTEMPT-TO-RPLAC-NIL) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |ATTEMPT-TO-RPLAC-NIL report method|)) (IL:PUTPROP (QUOTE ATTEMPT-TO-RPLAC-NIL) (QUOTE IL:%CONDITION-HANDLER) NIL) (IL:FILESLOAD IL:CONDITION-HIERARCHY-SI IL:CONDITION-HIERARCHY-POST-SI) IL:PRETTY-TYPE-NAME :D8 (IL:L (0 IL:TYPESPEC)) @dgP@)d@d[LLK hdIHhZH&JH oo0HdoI hZKJ\[L  [Jd3@@g o@ (172 IL:CONCAT 159 DOCUMENTATION 138 LAST 132 IL:CONCATLIST 107 IL:PRETTY-TYPE-NAME 74 IL:SORT 38 SUBTYPEP) (154 TYPE 8 OR) ( 166 "a " 101 " or " 86 "a number" 79 (COMPLEX FLOAT INTEGER RATIO)) (CL::SET-PARSED-STRUCTURE (QUOTE TYPE-ERROR) T (QUOTE (CL::PS TYPE-ERROR CONDITIONS::|TYPE-ERROR constructor| (SI::--STRUCTURE-DUMMY-SLOT-- EXPECTED-TYPE DATUM) CL::DATATYPE NIL ERROR "TYPE-ERROR-" ( CONDITIONS::|TYPE-ERROR constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (TYPE-ERROR 0 IL:XPOINTER) NIL) (EXPECTED-TYPE NIL T T (TYPE-ERROR 2 IL:POINTER) TYPE-ERROR-EXPECTED-TYPE) (DATUM NIL T T (TYPE-ERROR 4 IL:POINTER) TYPE-ERROR-DATUM)) NIL NIL (IL:XPOINTER IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL) )) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE TYPE-ERROR) (QUOTE (IL:XPOINTER IL:POINTER IL:POINTER)) (QUOTE ((TYPE-ERROR 0 IL:XPOINTER) (TYPE-ERROR 2 IL:POINTER) (TYPE-ERROR 4 IL:POINTER))) 6 (QUOTE ERROR)) (IL:PUTPROP (QUOTE TYPE-ERROR) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) TYPE-ERROR-EXPECTED-TYPE :D8 (IL:L (0 TYPE-ERROR)) @NIL (5 TYPE-ERROR) () TYPE-ERROR-DATUM :D8 (IL:L (0 TYPE-ERROR)) @NIL (5 TYPE-ERROR) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE TYPE-ERROR)) CONDITIONS::|TYPE-ERROR constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 10 IL:\\INTERRUPTABLE) ei HkKJWhYiHk_OdNZh]_`_ OdnhnOjkhIOLMOOOKdagl[kaagOkaOl_NIL (128 :DATUM 109 :EXPECTED-TYPE 45 CONDITIONS::|TYPE-ERRORTYPE#|) () CONDITIONS::|TYPE-ERROR report method| :D8 (IL:L (1 S 0 C)) "Ao@ @ (31 FORMAT 18 IL:PRETTY-TYPE-NAME) (24 TYPE-ERROR 11 TYPE-ERROR) ( 5 "Arg not ~A~&~S") (IL:PUTPROP (QUOTE TYPE-ERROR) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION CONDITIONS::|TYPE-ERROR report method| )) (IL:PUTPROP (QUOTE TYPE-ERROR) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE SIMPLE-TYPE-ERROR) T (QUOTE (CL::PS SIMPLE-TYPE-ERROR CONDITIONS::|SIMPLE-TYPE-ERROR constructor| (SI::--STRUCTURE-DUMMY-SLOT-- EXPECTED-TYPE DATUM FORMAT-STRING FORMAT-ARGUMENTS) CL::DATATYPE NIL TYPE-ERROR "%SIMPLE-TYPE-ERROR-" ( CONDITIONS::|SIMPLE-TYPE-ERROR constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (SIMPLE-TYPE-ERROR 0 IL:XPOINTER) NIL) (EXPECTED-TYPE NIL T T (SIMPLE-TYPE-ERROR 2 IL:POINTER) %SIMPLE-TYPE-ERROR-EXPECTED-TYPE) (DATUM NIL T T ( SIMPLE-TYPE-ERROR 4 IL:POINTER) %SIMPLE-TYPE-ERROR-DATUM) (FORMAT-STRING NIL T T (SIMPLE-TYPE-ERROR 6 IL:POINTER) %SIMPLE-TYPE-ERROR-FORMAT-STRING) (FORMAT-ARGUMENTS NIL T T (SIMPLE-TYPE-ERROR 8 IL:POINTER ) %SIMPLE-TYPE-ERROR-FORMAT-ARGUMENTS)) NIL NIL (IL:XPOINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER ) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE SIMPLE-TYPE-ERROR) (QUOTE (IL:XPOINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((SIMPLE-TYPE-ERROR 0 IL:XPOINTER) (SIMPLE-TYPE-ERROR 2 IL:POINTER) ( SIMPLE-TYPE-ERROR 4 IL:POINTER) (SIMPLE-TYPE-ERROR 6 IL:POINTER) (SIMPLE-TYPE-ERROR 8 IL:POINTER))) 10 (QUOTE TYPE-ERROR)) (IL:PUTPROP (QUOTE SIMPLE-TYPE-ERROR) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) %SIMPLE-TYPE-ERROR-EXPECTED-TYPE :D8 (IL:L (0 SIMPLE-TYPE-ERROR)) @NIL (5 SIMPLE-TYPE-ERROR) () %SIMPLE-TYPE-ERROR-DATUM :D8 (IL:L (0 SIMPLE-TYPE-ERROR)) @NIL (5 SIMPLE-TYPE-ERROR) () %SIMPLE-TYPE-ERROR-FORMAT-STRING :D8 (IL:L (0 SIMPLE-TYPE-ERROR)) @NIL (5 SIMPLE-TYPE-ERROR) () %SIMPLE-TYPE-ERROR-FORMAT-ARGUMENTS :D8 (IL:L (0 SIMPLE-TYPE-ERROR)) @NIL (5 SIMPLE-TYPE-ERROR) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE SIMPLE-TYPE-ERROR)) CONDITIONS::|SIMPLE-TYPE-ERROR constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 18 IL:\\INTERRUPTABLE) !eiHkKJhYiHk_OdNh]_i_Hk__OdOh__i_Hk__OdOh__ `_"O"dnhnO"jkhIO"LMO"OOO"OOO"O O"Kdagl[GkaIagOkaNOl_:agOkaQOl_;agOkaTOl_>NIL (267 :FORMAT-ARGUMENTS 241 :FORMAT-STRING 215 :DATUM 194 :EXPECTED-TYPE 110 CONDITIONS::|SIMPLE-TYPE-ERRORTYPE#|) () CONDITIONS::|SIMPLE-TYPE-ERROR report method| :D8 (IL:L (1 S 0 C)) :glA@@dnIkYhl4 IH(49 IL:\\LISPERROR) (24 SIMPLE-TYPE-ERROR 16 SIMPLE-TYPE-ERROR 4 FORMAT) () (IL:PUTPROP (QUOTE SIMPLE-TYPE-ERROR) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION CONDITIONS::|SIMPLE-TYPE-ERROR report method|)) (IL:PUTPROP (QUOTE SIMPLE-TYPE-ERROR) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE TYPE-MISMATCH) T (QUOTE (CL::PS TYPE-MISMATCH |TYPE-MISMATCH constructor| (SI::--STRUCTURE-DUMMY-SLOT-- EXPECTED-TYPE DATUM NAME VALUE MESSAGE) CL::DATATYPE NIL TYPE-ERROR "TYPE-MISMATCH-" (|TYPE-MISMATCH constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (TYPE-MISMATCH 0 IL:XPOINTER) NIL) ( EXPECTED-TYPE NIL T T (TYPE-MISMATCH 2 IL:POINTER) TYPE-MISMATCH-EXPECTED-TYPE) (DATUM NIL T T ( TYPE-MISMATCH 4 IL:POINTER) TYPE-MISMATCH-DATUM) (NAME NIL T T (TYPE-MISMATCH 6 IL:POINTER) TYPE-MISMATCH-NAME) (VALUE NIL T T (TYPE-MISMATCH 8 IL:POINTER) TYPE-MISMATCH-VALUE) (MESSAGE NIL T T (TYPE-MISMATCH 10 IL:POINTER) TYPE-MISMATCH-MESSAGE)) NIL NIL (IL:XPOINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE TYPE-MISMATCH) (QUOTE (IL:XPOINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((TYPE-MISMATCH 0 IL:XPOINTER) (TYPE-MISMATCH 2 IL:POINTER) (TYPE-MISMATCH 4 IL:POINTER) (TYPE-MISMATCH 6 IL:POINTER) (TYPE-MISMATCH 8 IL:POINTER) (TYPE-MISMATCH 10 IL:POINTER))) 12 (QUOTE TYPE-ERROR)) (IL:PUTPROP (QUOTE TYPE-MISMATCH) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) TYPE-MISMATCH-EXPECTED-TYPE :D8 (IL:L (0 TYPE-MISMATCH)) @NIL (5 TYPE-MISMATCH) () TYPE-MISMATCH-DATUM :D8 (IL:L (0 TYPE-MISMATCH)) @NIL (5 TYPE-MISMATCH) () TYPE-MISMATCH-NAME :D8 (IL:L (0 TYPE-MISMATCH)) @NIL (5 TYPE-MISMATCH) () TYPE-MISMATCH-VALUE :D8 (IL:L (0 TYPE-MISMATCH)) @NIL (5 TYPE-MISMATCH) () TYPE-MISMATCH-MESSAGE :D8 (IL:L (0 TYPE-MISMATCH)) @ NIL (5 TYPE-MISMATCH) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE TYPE-MISMATCH)) |TYPE-MISMATCH constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 22 IL:\\INTERRUPTABLE) beiPHkKJhYiHk_OdNҿh]_i_Hk__OdOпh__i_Hk__OdOͿh__ i_"Hk_&_$O&dO$ʿh_"_(`_*O*dnhnO*jkhIO*LMO*OOO*OOO*O O"O*O( O*Kdagl[ ka"agOka'Ol_agOka*Ol_agOka-Ol_agO&ka0O&l_&NIL (332 :MESSAGE 306 :VALUE 280 :NAME 254 :DATUM 233 :EXPECTED-TYPE 139 |TYPE-MISMATCHTYPE#|) () |TYPE-MISMATCH report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) s@@:-io@@ @ io@@@ @ (112 FORMAT 106 IL:PRETTY-TYPE-NAME 60 FORMAT 55 IL:PRETTY-TYPE-NAME) (99 TYPE-MISMATCH 89 TYPE-MISMATCH 81 TYPE-MISMATCH 73 TYPE-MISMATCH 48 TYPE-MISMATCH 38 TYPE-MISMATCH 30 TYPE-MISMATCH 13 TYPE-MISMATCH 5 TYPE-MISMATCH) ( 67 "The value of ~S, ~S, is not ~A." 24 "~S is not ~A.") (IL:PUTPROP (QUOTE TYPE-MISMATCH) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |TYPE-MISMATCH report method|)) (IL:PUTPROP (QUOTE TYPE-MISMATCH) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE SYMBOL-AS-PATHNAME) T (QUOTE (CL::PS SYMBOL-AS-PATHNAME |SYMBOL-AS-PATHNAME constructor| (SI::--STRUCTURE-DUMMY-SLOT-- EXPECTED-TYPE DATUM SYMBOL WHERE MESSAGE) CL::DATATYPE NIL TYPE-ERROR "SYMBOL-AS-PATHNAME-" (|SYMBOL-AS-PATHNAME constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (SYMBOL-AS-PATHNAME 0 IL:XPOINTER) NIL) (EXPECTED-TYPE NIL T T (SYMBOL-AS-PATHNAME 2 IL:POINTER) SYMBOL-AS-PATHNAME-EXPECTED-TYPE) (DATUM NIL T T (SYMBOL-AS-PATHNAME 4 IL:POINTER) SYMBOL-AS-PATHNAME-DATUM) (SYMBOL NIL T T (SYMBOL-AS-PATHNAME 6 IL:POINTER) SYMBOL-AS-PATHNAME-SYMBOL) (WHERE NIL T T (SYMBOL-AS-PATHNAME 8 IL:POINTER) SYMBOL-AS-PATHNAME-WHERE) (MESSAGE NIL T T ( SYMBOL-AS-PATHNAME 10 IL:POINTER) SYMBOL-AS-PATHNAME-MESSAGE)) NIL NIL (IL:XPOINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE SYMBOL-AS-PATHNAME) (QUOTE (IL:XPOINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((SYMBOL-AS-PATHNAME 0 IL:XPOINTER) (SYMBOL-AS-PATHNAME 2 IL:POINTER) (SYMBOL-AS-PATHNAME 4 IL:POINTER) (SYMBOL-AS-PATHNAME 6 IL:POINTER) (SYMBOL-AS-PATHNAME 8 IL:POINTER) (SYMBOL-AS-PATHNAME 10 IL:POINTER))) 12 (QUOTE TYPE-ERROR)) (IL:PUTPROP (QUOTE SYMBOL-AS-PATHNAME) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) SYMBOL-AS-PATHNAME-EXPECTED-TYPE :D8 (IL:L (0 SYMBOL-AS-PATHNAME)) @NIL (5 SYMBOL-AS-PATHNAME) () SYMBOL-AS-PATHNAME-DATUM :D8 (IL:L (0 SYMBOL-AS-PATHNAME)) @NIL (5 SYMBOL-AS-PATHNAME) () SYMBOL-AS-PATHNAME-SYMBOL :D8 (IL:L (0 SYMBOL-AS-PATHNAME)) @NIL (5 SYMBOL-AS-PATHNAME) () SYMBOL-AS-PATHNAME-WHERE :D8 (IL:L (0 SYMBOL-AS-PATHNAME)) @NIL (5 SYMBOL-AS-PATHNAME) () SYMBOL-AS-PATHNAME-MESSAGE :D8 (IL:L (0 SYMBOL-AS-PATHNAME)) @ NIL (5 SYMBOL-AS-PATHNAME) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE SYMBOL-AS-PATHNAME)) |SYMBOL-AS-PATHNAME constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 22 IL:\\INTERRUPTABLE) beiPHkKJhYiHk_OdNҿh]_i_Hk__OdOпh__i_Hk__OdOͿh__ i_"Hk_&_$O&dO$ʿh_"_(`_*O*dnhnO*jkhIO*LMO*OOO*OOO*O O"O*O( O*Kdagl[ ka"agOka'Ol_agOka*Ol_agOka-Ol_agO&ka0O&l_&NIL (332 :MESSAGE 306 :WHERE 280 :SYMBOL 254 :DATUM 233 :EXPECTED-TYPE 139 |SYMBOL-AS-PATHNAMETYPE#|) () |SYMBOL-AS-PATHNAME report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) >@ i@ @ io@@ (59 FORMAT 31 FORMAT) (52 SYMBOL-AS-PATHNAME 44 SYMBOL-AS-PATHNAME 24 SYMBOL-AS-PATHNAME 16 SYMBOL-AS-PATHNAME 5 SYMBOL-AS-PATHNAME) ( 38 "~a: symbol ~s used as pathname") (IL:PUTPROP (QUOTE SYMBOL-AS-PATHNAME) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |SYMBOL-AS-PATHNAME report method|)) (IL:PUTPROP (QUOTE SYMBOL-AS-PATHNAME) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE CONTROL-ERROR) T (QUOTE (CL::PS CONTROL-ERROR |CONTROL-ERROR constructor| (SI::--STRUCTURE-DUMMY-SLOT--) CL::DATATYPE NIL ERROR "CONTROL-ERROR-" ( |CONTROL-ERROR constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (CONTROL-ERROR 0 IL:XPOINTER) NIL)) NIL NIL (IL:XPOINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE CONTROL-ERROR) (QUOTE (IL:XPOINTER)) (QUOTE ((CONTROL-ERROR 0 IL:XPOINTER))) 2 (QUOTE ERROR)) (IL:PUTPROP (QUOTE CONTROL-ERROR) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE CONTROL-ERROR)) |CONTROL-ERROR constructor| :D8 (IL:P 1 IL:\\INTERRUPTABLE) *`HdnhnHjkhHNIL (4 |CONTROL-ERRORTYPE#|) () (IL:PUTPROP (QUOTE CONTROL-ERROR) (QUOTE IL:%CONDITION-REPORTER) NIL) (IL:PUTPROP (QUOTE CONTROL-ERROR) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE PROGRAM-ERROR) T (QUOTE (CL::PS PROGRAM-ERROR CONDITIONS::|PROGRAM-ERROR constructor| (SI::--STRUCTURE-DUMMY-SLOT--) CL::DATATYPE NIL ERROR "PROGRAM-ERROR-" (CONDITIONS::|PROGRAM-ERROR constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (PROGRAM-ERROR 0 IL:XPOINTER) NIL)) NIL NIL (IL:XPOINTER ) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE PROGRAM-ERROR) (QUOTE (IL:XPOINTER)) (QUOTE ((PROGRAM-ERROR 0 IL:XPOINTER))) 2 (QUOTE ERROR)) (IL:PUTPROP (QUOTE PROGRAM-ERROR) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE PROGRAM-ERROR)) CONDITIONS::|PROGRAM-ERROR constructor| :D8 (IL:P 1 IL:\\INTERRUPTABLE) *`HdnhnHjkhHNIL (4 CONDITIONS::|PROGRAM-ERRORTYPE#|) () (IL:PUTPROP (QUOTE PROGRAM-ERROR) (QUOTE IL:%CONDITION-REPORTER) NIL) (IL:PUTPROP (QUOTE PROGRAM-ERROR) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE ILLEGAL-GO) T (QUOTE (CL::PS ILLEGAL-GO |ILLEGAL-GO constructor| ( SI::--STRUCTURE-DUMMY-SLOT-- TAG) CL::DATATYPE NIL PROGRAM-ERROR "ILLEGAL-GO-" ( |ILLEGAL-GO constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (ILLEGAL-GO 0 IL:XPOINTER) NIL) (TAG NIL T T (ILLEGAL-GO 2 IL:POINTER) ILLEGAL-GO-TAG)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE ILLEGAL-GO) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE (( ILLEGAL-GO 0 IL:XPOINTER) (ILLEGAL-GO 2 IL:POINTER))) 4 (QUOTE PROGRAM-ERROR)) (IL:PUTPROP (QUOTE ILLEGAL-GO) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) ILLEGAL-GO-TAG :D8 (IL:L (0 ILLEGAL-GO)) @NIL (5 ILLEGAL-GO) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE ILLEGAL-GO)) |ILLEGAL-GO constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :TAG 24 |ILLEGAL-GOTYPE#|) () |ILLEGAL-GO report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) io@ (18 FORMAT) (11 ILLEGAL-GO) ( 5 "GO to a nonexistent tag: ~S.") (IL:PUTPROP (QUOTE ILLEGAL-GO) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |ILLEGAL-GO report method|)) (IL:PUTPROP (QUOTE ILLEGAL-GO) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE ILLEGAL-RETURN) T (QUOTE (CL::PS ILLEGAL-RETURN |ILLEGAL-RETURN constructor| (SI::--STRUCTURE-DUMMY-SLOT-- TAG) CL::DATATYPE NIL PROGRAM-ERROR "ILLEGAL-RETURN-" (|ILLEGAL-RETURN constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (ILLEGAL-RETURN 0 IL:XPOINTER) NIL) (TAG NIL T T ( ILLEGAL-RETURN 2 IL:POINTER) ILLEGAL-RETURN-TAG)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE ILLEGAL-RETURN) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE (( ILLEGAL-RETURN 0 IL:XPOINTER) (ILLEGAL-RETURN 2 IL:POINTER))) 4 (QUOTE PROGRAM-ERROR)) (IL:PUTPROP (QUOTE ILLEGAL-RETURN) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) ILLEGAL-RETURN-TAG :D8 (IL:L (0 ILLEGAL-RETURN)) @NIL (5 ILLEGAL-RETURN) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE ILLEGAL-RETURN)) |ILLEGAL-RETURN constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :TAG 24 |ILLEGAL-RETURNTYPE#|) () |ILLEGAL-RETURN report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) io@ (18 FORMAT) (11 ILLEGAL-RETURN) ( 5 "RETURN to nonexistent block: ~S.") (IL:PUTPROP (QUOTE ILLEGAL-RETURN) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |ILLEGAL-RETURN report method|)) (IL:PUTPROP (QUOTE ILLEGAL-RETURN) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE ILLEGAL-THROW) T (QUOTE (CL::PS ILLEGAL-THROW |ILLEGAL-THROW constructor| (SI::--STRUCTURE-DUMMY-SLOT-- TAG) CL::DATATYPE NIL CONTROL-ERROR "ILLEGAL-THROW-" (|ILLEGAL-THROW constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (ILLEGAL-THROW 0 IL:XPOINTER) NIL) (TAG NIL T T ( ILLEGAL-THROW 2 IL:POINTER) ILLEGAL-THROW-TAG)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE ILLEGAL-THROW) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE (( ILLEGAL-THROW 0 IL:XPOINTER) (ILLEGAL-THROW 2 IL:POINTER))) 4 (QUOTE CONTROL-ERROR)) (IL:PUTPROP (QUOTE ILLEGAL-THROW) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) ILLEGAL-THROW-TAG :D8 (IL:L (0 ILLEGAL-THROW)) @NIL (5 ILLEGAL-THROW) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE ILLEGAL-THROW)) |ILLEGAL-THROW constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :TAG 24 |ILLEGAL-THROWTYPE#|) () |ILLEGAL-THROW report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) io@ (18 FORMAT) (11 ILLEGAL-THROW) ( 5 "Tag for THROW not found: ~S.") (IL:PUTPROP (QUOTE ILLEGAL-THROW) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |ILLEGAL-THROW report method|)) (IL:PUTPROP (QUOTE ILLEGAL-THROW) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE BAD-PROCEED-CASE) T (QUOTE (CL::PS BAD-PROCEED-CASE |BAD-PROCEED-CASE constructor| (SI::--STRUCTURE-DUMMY-SLOT-- NAME) CL::DATATYPE NIL CONTROL-ERROR "BAD-PROCEED-CASE-" (|BAD-PROCEED-CASE constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (BAD-PROCEED-CASE 0 IL:XPOINTER) NIL) (NAME NIL T T ( BAD-PROCEED-CASE 2 IL:POINTER) BAD-PROCEED-CASE-NAME)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE BAD-PROCEED-CASE) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE (( BAD-PROCEED-CASE 0 IL:XPOINTER) (BAD-PROCEED-CASE 2 IL:POINTER))) 4 (QUOTE CONTROL-ERROR)) (IL:PUTPROP (QUOTE BAD-PROCEED-CASE) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) BAD-PROCEED-CASE-NAME :D8 (IL:L (0 BAD-PROCEED-CASE)) @NIL (5 BAD-PROCEED-CASE) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE BAD-PROCEED-CASE)) |BAD-PROCEED-CASE constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :NAME 24 |BAD-PROCEED-CASETYPE#|) () |BAD-PROCEED-CASE report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) io@ (18 FORMAT) (11 BAD-PROCEED-CASE) ( 5 "Proceed case ~S is not currently active.") (IL:PUTPROP (QUOTE BAD-PROCEED-CASE) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |BAD-PROCEED-CASE report method|)) (IL:PUTPROP (QUOTE BAD-PROCEED-CASE) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE STREAM-ERROR) T (QUOTE (CL::PS STREAM-ERROR |STREAM-ERROR constructor| (SI::--STRUCTURE-DUMMY-SLOT-- STREAM) CL::DATATYPE NIL ERROR "STREAM-ERROR-" (|STREAM-ERROR constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (STREAM-ERROR 0 IL:XPOINTER) NIL) (STREAM NIL T T ( STREAM-ERROR 2 IL:POINTER) STREAM-ERROR-STREAM)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE STREAM-ERROR) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE (( STREAM-ERROR 0 IL:XPOINTER) (STREAM-ERROR 2 IL:POINTER))) 4 (QUOTE ERROR)) (IL:PUTPROP (QUOTE STREAM-ERROR) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) STREAM-ERROR-STREAM :D8 (IL:L (0 STREAM-ERROR)) @NIL (5 STREAM-ERROR) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE STREAM-ERROR)) |STREAM-ERROR constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :STREAM 24 |STREAM-ERRORTYPE#|) () |STREAM-ERROR report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) io@ (18 FORMAT) (11 STREAM-ERROR) ( 5 "Stream error on ~S.") (IL:PUTPROP (QUOTE STREAM-ERROR) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |STREAM-ERROR report method| )) (IL:PUTPROP (QUOTE STREAM-ERROR) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE STREAM-NOT-OPEN) T (QUOTE (CL::PS STREAM-NOT-OPEN |STREAM-NOT-OPEN constructor| (SI::--STRUCTURE-DUMMY-SLOT-- STREAM) CL::DATATYPE NIL STREAM-ERROR "STREAM-NOT-OPEN-" (|STREAM-NOT-OPEN constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (STREAM-NOT-OPEN 0 IL:XPOINTER) NIL) (STREAM NIL T T ( STREAM-NOT-OPEN 2 IL:POINTER) STREAM-NOT-OPEN-STREAM)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE STREAM-NOT-OPEN) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE (( STREAM-NOT-OPEN 0 IL:XPOINTER) (STREAM-NOT-OPEN 2 IL:POINTER))) 4 (QUOTE STREAM-ERROR)) (IL:PUTPROP (QUOTE STREAM-NOT-OPEN) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) STREAM-NOT-OPEN-STREAM :D8 (IL:L (0 STREAM-NOT-OPEN)) @NIL (5 STREAM-NOT-OPEN) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE STREAM-NOT-OPEN)) |STREAM-NOT-OPEN constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :STREAM 24 |STREAM-NOT-OPENTYPE#|) () |STREAM-NOT-OPEN report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) io@ (18 FORMAT) (11 STREAM-NOT-OPEN) ( 5 "Stream not open: ~S") (IL:PUTPROP (QUOTE STREAM-NOT-OPEN) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |STREAM-NOT-OPEN report method|)) (IL:PUTPROP (QUOTE STREAM-NOT-OPEN) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE READ-ERROR) T (QUOTE (CL::PS READ-ERROR |READ-ERROR constructor| ( SI::--STRUCTURE-DUMMY-SLOT--) CL::DATATYPE NIL ERROR "READ-ERROR-" (|READ-ERROR constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (READ-ERROR 0 IL:XPOINTER) NIL)) NIL NIL (IL:XPOINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE READ-ERROR) (QUOTE (IL:XPOINTER)) (QUOTE ((READ-ERROR 0 IL:XPOINTER))) 2 (QUOTE ERROR)) (IL:PUTPROP (QUOTE READ-ERROR) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE READ-ERROR)) |READ-ERROR constructor| :D8 (IL:P 1 IL:\\INTERRUPTABLE) *`HdnhnHjkhHNIL (4 |READ-ERRORTYPE#|) () (IL:PUTPROP (QUOTE READ-ERROR) (QUOTE IL:%CONDITION-REPORTER) NIL) (IL:PUTPROP (QUOTE READ-ERROR) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE SYMBOL-NAME-TOO-LONG) T (QUOTE (CL::PS SYMBOL-NAME-TOO-LONG |SYMBOL-NAME-TOO-LONG constructor| (SI::--STRUCTURE-DUMMY-SLOT--) CL::DATATYPE NIL READ-ERROR "SYMBOL-NAME-TOO-LONG-" (|SYMBOL-NAME-TOO-LONG constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (SYMBOL-NAME-TOO-LONG 0 IL:XPOINTER) NIL)) NIL NIL ( IL:XPOINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE SYMBOL-NAME-TOO-LONG) (QUOTE (IL:XPOINTER)) (QUOTE (( SYMBOL-NAME-TOO-LONG 0 IL:XPOINTER))) 2 (QUOTE READ-ERROR)) (IL:PUTPROP (QUOTE SYMBOL-NAME-TOO-LONG) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE SYMBOL-NAME-TOO-LONG)) |SYMBOL-NAME-TOO-LONG constructor| :D8 (IL:P 1 IL:\\INTERRUPTABLE) *`HdnhnHjkhHNIL (4 |SYMBOL-NAME-TOO-LONGTYPE#|) () (IL:PUTPROP (QUOTE SYMBOL-NAME-TOO-LONG) (QUOTE IL:%CONDITION-REPORTER) "Symbol name too long") (IL:PUTPROP (QUOTE SYMBOL-NAME-TOO-LONG) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE END-OF-FILE) T (QUOTE (CL::PS END-OF-FILE |END-OF-FILE constructor| ( SI::--STRUCTURE-DUMMY-SLOT-- STREAM) CL::DATATYPE NIL STREAM-ERROR "END-OF-FILE-" ( |END-OF-FILE constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (END-OF-FILE 0 IL:XPOINTER) NIL) (STREAM NIL T T (END-OF-FILE 2 IL:POINTER) END-OF-FILE-STREAM)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE END-OF-FILE) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE (( END-OF-FILE 0 IL:XPOINTER) (END-OF-FILE 2 IL:POINTER))) 4 (QUOTE STREAM-ERROR)) (IL:PUTPROP (QUOTE END-OF-FILE) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) END-OF-FILE-STREAM :D8 (IL:L (0 END-OF-FILE)) @NIL (5 END-OF-FILE) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE END-OF-FILE)) |END-OF-FILE constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :STREAM 24 |END-OF-FILETYPE#|) () |END-OF-FILE report method| :D8 (IL:L (1 STREAM 0 CONDITION)) Ao@ (18 FORMAT) (11 END-OF-FILE) ( 5 "End of file ~S") (IL:PUTPROP (QUOTE END-OF-FILE) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |END-OF-FILE report method|)) (IL:PUTPROP (QUOTE END-OF-FILE) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE STORAGE-CONDITION) T (QUOTE (CL::PS STORAGE-CONDITION |STORAGE-CONDITION constructor| (SI::--STRUCTURE-DUMMY-SLOT--) CL::DATATYPE NIL SERIOUS-CONDITION "STORAGE-CONDITION-" (|STORAGE-CONDITION constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (STORAGE-CONDITION 0 IL:XPOINTER) NIL)) NIL NIL ( IL:XPOINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE STORAGE-CONDITION) (QUOTE (IL:XPOINTER)) (QUOTE (( STORAGE-CONDITION 0 IL:XPOINTER))) 2 (QUOTE SERIOUS-CONDITION)) (IL:PUTPROP (QUOTE STORAGE-CONDITION) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE STORAGE-CONDITION)) |STORAGE-CONDITION constructor| :D8 (IL:P 1 IL:\\INTERRUPTABLE) *`HdnhnHjkhHNIL (4 |STORAGE-CONDITIONTYPE#|) () (IL:PUTPROP (QUOTE STORAGE-CONDITION) (QUOTE IL:%CONDITION-REPORTER) NIL) (IL:PUTPROP (QUOTE STORAGE-CONDITION) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE STACK-OVERFLOW) T (QUOTE (CL::PS STACK-OVERFLOW |STACK-OVERFLOW constructor| (SI::--STRUCTURE-DUMMY-SLOT--) CL::DATATYPE NIL STORAGE-CONDITION "STACK-OVERFLOW-" (|STACK-OVERFLOW constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (STACK-OVERFLOW 0 IL:XPOINTER) NIL)) NIL NIL (IL:XPOINTER ) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE STACK-OVERFLOW) (QUOTE (IL:XPOINTER)) (QUOTE ((STACK-OVERFLOW 0 IL:XPOINTER))) 2 (QUOTE STORAGE-CONDITION)) (IL:PUTPROP (QUOTE STACK-OVERFLOW) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE STACK-OVERFLOW)) |STACK-OVERFLOW constructor| :D8 (IL:P 1 IL:\\INTERRUPTABLE) *`HdnhnHjkhHNIL (4 |STACK-OVERFLOWTYPE#|) () (IL:PUTPROP (QUOTE STACK-OVERFLOW) (QUOTE IL:%CONDITION-REPORTER) "Stack overflow") (IL:PUTPROP (QUOTE STACK-OVERFLOW) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE CRITICAL-STORAGE-CONDITION) T (QUOTE (CL::PS CRITICAL-STORAGE-CONDITION |CRITICAL-STORAGE-CONDITION constructor| (SI::--STRUCTURE-DUMMY-SLOT--) CL::DATATYPE NIL STORAGE-CONDITION "CRITICAL-STORAGE-CONDITION-" ( |CRITICAL-STORAGE-CONDITION constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (CRITICAL-STORAGE-CONDITION 0 IL:XPOINTER) NIL)) NIL NIL (IL:XPOINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE CRITICAL-STORAGE-CONDITION) (QUOTE (IL:XPOINTER)) (QUOTE (( CRITICAL-STORAGE-CONDITION 0 IL:XPOINTER))) 2 (QUOTE STORAGE-CONDITION)) (IL:PUTPROP (QUOTE CRITICAL-STORAGE-CONDITION) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE )) (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE CRITICAL-STORAGE-CONDITION)) |CRITICAL-STORAGE-CONDITION constructor| :D8 (IL:P 1 IL:\\INTERRUPTABLE) *`HdnhnHjkhHNIL (4 |CRITICAL-STORAGE-CONDITIONTYPE#|) () (IL:PUTPROP (QUOTE CRITICAL-STORAGE-CONDITION) (QUOTE IL:%CONDITION-REPORTER) NIL) (IL:PUTPROP (QUOTE CRITICAL-STORAGE-CONDITION) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE STORAGE-EXHAUSTED) T (QUOTE (CL::PS STORAGE-EXHAUSTED |STORAGE-EXHAUSTED constructor| (SI::--STRUCTURE-DUMMY-SLOT--) CL::DATATYPE NIL CRITICAL-STORAGE-CONDITION "STORAGE-EXHAUSTED-" (|STORAGE-EXHAUSTED constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (STORAGE-EXHAUSTED 0 IL:XPOINTER) NIL)) NIL NIL (IL:XPOINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE STORAGE-EXHAUSTED) (QUOTE (IL:XPOINTER)) (QUOTE (( STORAGE-EXHAUSTED 0 IL:XPOINTER))) 2 (QUOTE CRITICAL-STORAGE-CONDITION)) (IL:PUTPROP (QUOTE STORAGE-EXHAUSTED) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE STORAGE-EXHAUSTED)) |STORAGE-EXHAUSTED constructor| :D8 (IL:P 1 IL:\\INTERRUPTABLE) *`HdnhnHjkhHNIL (4 |STORAGE-EXHAUSTEDTYPE#|) () (IL:PUTPROP (QUOTE STORAGE-EXHAUSTED) (QUOTE IL:%CONDITION-REPORTER) NIL) (IL:PUTPROP (QUOTE STORAGE-EXHAUSTED) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE SYMBOL-HT-FULL) T (QUOTE (CL::PS SYMBOL-HT-FULL |SYMBOL-HT-FULL constructor| (SI::--STRUCTURE-DUMMY-SLOT--) CL::DATATYPE NIL CRITICAL-STORAGE-CONDITION "SYMBOL-HT-FULL-" (|SYMBOL-HT-FULL constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (SYMBOL-HT-FULL 0 IL:XPOINTER) NIL)) NIL NIL (IL:XPOINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE SYMBOL-HT-FULL) (QUOTE (IL:XPOINTER)) (QUOTE ((SYMBOL-HT-FULL 0 IL:XPOINTER))) 2 (QUOTE CRITICAL-STORAGE-CONDITION)) (IL:PUTPROP (QUOTE SYMBOL-HT-FULL) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE SYMBOL-HT-FULL)) |SYMBOL-HT-FULL constructor| :D8 (IL:P 1 IL:\\INTERRUPTABLE) *`HdnhnHjkhHNIL (4 |SYMBOL-HT-FULLTYPE#|) () (IL:PUTPROP (QUOTE SYMBOL-HT-FULL) (QUOTE IL:%CONDITION-REPORTER) "Symbol hash table full") (IL:PUTPROP (QUOTE SYMBOL-HT-FULL) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE ARRAY-SPACE-FULL) T (QUOTE (CL::PS ARRAY-SPACE-FULL |ARRAY-SPACE-FULL constructor| (SI::--STRUCTURE-DUMMY-SLOT--) CL::DATATYPE NIL CRITICAL-STORAGE-CONDITION "ARRAY-SPACE-FULL-" (|ARRAY-SPACE-FULL constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (ARRAY-SPACE-FULL 0 IL:XPOINTER) NIL)) NIL NIL (IL:XPOINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE ARRAY-SPACE-FULL) (QUOTE (IL:XPOINTER)) (QUOTE (( ARRAY-SPACE-FULL 0 IL:XPOINTER))) 2 (QUOTE CRITICAL-STORAGE-CONDITION)) (IL:PUTPROP (QUOTE ARRAY-SPACE-FULL) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE ARRAY-SPACE-FULL)) |ARRAY-SPACE-FULL constructor| :D8 (IL:P 1 IL:\\INTERRUPTABLE) *`HdnhnHjkhHNIL (4 |ARRAY-SPACE-FULLTYPE#|) () (IL:PUTPROP (QUOTE ARRAY-SPACE-FULL) (QUOTE IL:%CONDITION-REPORTER) "Array space full") (IL:PUTPROP (QUOTE ARRAY-SPACE-FULL) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE DATA-TYPES-EXHAUSTED) T (QUOTE (CL::PS DATA-TYPES-EXHAUSTED |DATA-TYPES-EXHAUSTED constructor| (SI::--STRUCTURE-DUMMY-SLOT--) CL::DATATYPE NIL CRITICAL-STORAGE-CONDITION "DATA-TYPES-EXHAUSTED-" (|DATA-TYPES-EXHAUSTED constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T ( DATA-TYPES-EXHAUSTED 0 IL:XPOINTER) NIL)) NIL NIL (IL:XPOINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL ))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE DATA-TYPES-EXHAUSTED) (QUOTE (IL:XPOINTER)) (QUOTE (( DATA-TYPES-EXHAUSTED 0 IL:XPOINTER))) 2 (QUOTE CRITICAL-STORAGE-CONDITION)) (IL:PUTPROP (QUOTE DATA-TYPES-EXHAUSTED) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE DATA-TYPES-EXHAUSTED)) |DATA-TYPES-EXHAUSTED constructor| :D8 (IL:P 1 IL:\\INTERRUPTABLE) *`HdnhnHjkhHNIL (4 |DATA-TYPES-EXHAUSTEDTYPE#|) () (IL:PUTPROP (QUOTE DATA-TYPES-EXHAUSTED) (QUOTE IL:%CONDITION-REPORTER) "No more data types available" ) (IL:PUTPROP (QUOTE DATA-TYPES-EXHAUSTED) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE DEVICE-ERROR) T (QUOTE (CL::PS DEVICE-ERROR |DEVICE-ERROR constructor| (SI::--STRUCTURE-DUMMY-SLOT-- DEVICE) CL::DATATYPE NIL SERIOUS-CONDITION "DEVICE-ERROR-" (|DEVICE-ERROR constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (DEVICE-ERROR 0 IL:XPOINTER) NIL) (DEVICE NIL T T ( DEVICE-ERROR 2 IL:POINTER) DEVICE-ERROR-DEVICE)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE DEVICE-ERROR) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE (( DEVICE-ERROR 0 IL:XPOINTER) (DEVICE-ERROR 2 IL:POINTER))) 4 (QUOTE SERIOUS-CONDITION)) (IL:PUTPROP (QUOTE DEVICE-ERROR) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) DEVICE-ERROR-DEVICE :D8 (IL:L (0 DEVICE-ERROR)) @NIL (5 DEVICE-ERROR) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE DEVICE-ERROR)) |DEVICE-ERROR constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :DEVICE 24 |DEVICE-ERRORTYPE#|) () (IL:PUTPROP (QUOTE DEVICE-ERROR) (QUOTE IL:%CONDITION-REPORTER) NIL) (IL:PUTPROP (QUOTE DEVICE-ERROR) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE SIMPLE-DEVICE-ERROR) T (QUOTE (CL::PS SIMPLE-DEVICE-ERROR |SIMPLE-DEVICE-ERROR constructor| (SI::--STRUCTURE-DUMMY-SLOT-- DEVICE MESSAGE) CL::DATATYPE NIL DEVICE-ERROR "SIMPLE-DEVICE-ERROR-" (|SIMPLE-DEVICE-ERROR constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (SIMPLE-DEVICE-ERROR 0 IL:XPOINTER) NIL) ( DEVICE NIL T T (SIMPLE-DEVICE-ERROR 2 IL:POINTER) SIMPLE-DEVICE-ERROR-DEVICE) (MESSAGE NIL T T ( SIMPLE-DEVICE-ERROR 4 IL:POINTER) SIMPLE-DEVICE-ERROR-MESSAGE)) NIL NIL (IL:XPOINTER IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE SIMPLE-DEVICE-ERROR) (QUOTE (IL:XPOINTER IL:POINTER IL:POINTER )) (QUOTE ((SIMPLE-DEVICE-ERROR 0 IL:XPOINTER) (SIMPLE-DEVICE-ERROR 2 IL:POINTER) (SIMPLE-DEVICE-ERROR 4 IL:POINTER))) 6 (QUOTE DEVICE-ERROR)) (IL:PUTPROP (QUOTE SIMPLE-DEVICE-ERROR) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) SIMPLE-DEVICE-ERROR-DEVICE :D8 (IL:L (0 SIMPLE-DEVICE-ERROR)) @NIL (5 SIMPLE-DEVICE-ERROR) () SIMPLE-DEVICE-ERROR-MESSAGE :D8 (IL:L (0 SIMPLE-DEVICE-ERROR)) @NIL (5 SIMPLE-DEVICE-ERROR) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE SIMPLE-DEVICE-ERROR)) |SIMPLE-DEVICE-ERROR constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 10 IL:\\INTERRUPTABLE) ei HkKJWhYiHk_OdNZh]_`_ OdnhnOjkhIOLMOOOKdagl[kaagOkaOl_NIL (128 :MESSAGE 109 :DEVICE 45 |SIMPLE-DEVICE-ERRORTYPE#|) () |SIMPLE-DEVICE-ERROR report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) io@ (18 FORMAT) (11 SIMPLE-DEVICE-ERROR) ( 5 "Device error: ~A") (IL:PUTPROP (QUOTE SIMPLE-DEVICE-ERROR) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |SIMPLE-DEVICE-ERROR report method|)) (IL:PUTPROP (QUOTE SIMPLE-DEVICE-ERROR) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE FILE-ERROR) T (QUOTE (CL::PS FILE-ERROR CONDITIONS::|FILE-ERROR constructor| (SI::--STRUCTURE-DUMMY-SLOT-- PATHNAME) CL::DATATYPE NIL ERROR "FILE-ERROR-" ( CONDITIONS::|FILE-ERROR constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (FILE-ERROR 0 IL:XPOINTER) NIL) (PATHNAME NIL T T ( FILE-ERROR 2 IL:POINTER) FILE-ERROR-PATHNAME)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE FILE-ERROR) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE (( FILE-ERROR 0 IL:XPOINTER) (FILE-ERROR 2 IL:POINTER))) 4 (QUOTE ERROR)) (IL:PUTPROP (QUOTE FILE-ERROR) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) FILE-ERROR-PATHNAME :D8 (IL:L (0 FILE-ERROR)) @NIL (5 FILE-ERROR) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE FILE-ERROR)) CONDITIONS::|FILE-ERROR constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :PATHNAME 24 CONDITIONS::|FILE-ERRORTYPE#|) () (IL:PUTPROP (QUOTE FILE-ERROR) (QUOTE IL:%CONDITION-REPORTER) NIL) (IL:PUTPROP (QUOTE FILE-ERROR) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE FILE-WONT-OPEN) T (QUOTE (CL::PS FILE-WONT-OPEN |FILE-WONT-OPEN constructor| (SI::--STRUCTURE-DUMMY-SLOT-- PATHNAME) CL::DATATYPE NIL FILE-ERROR "FILE-WONT-OPEN-" (|FILE-WONT-OPEN constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (FILE-WONT-OPEN 0 IL:XPOINTER) NIL) (PATHNAME NIL T T ( FILE-WONT-OPEN 2 IL:POINTER) FILE-WONT-OPEN-PATHNAME)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE FILE-WONT-OPEN) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE (( FILE-WONT-OPEN 0 IL:XPOINTER) (FILE-WONT-OPEN 2 IL:POINTER))) 4 (QUOTE FILE-ERROR)) (IL:PUTPROP (QUOTE FILE-WONT-OPEN) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) FILE-WONT-OPEN-PATHNAME :D8 (IL:L (0 FILE-WONT-OPEN)) @NIL (5 FILE-WONT-OPEN) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE FILE-WONT-OPEN)) |FILE-WONT-OPEN constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :PATHNAME 24 |FILE-WONT-OPENTYPE#|) () |FILE-WONT-OPEN report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) io@ (18 FORMAT) (11 FILE-WONT-OPEN) ( 5 "File won't open: ~A") (IL:PUTPROP (QUOTE FILE-WONT-OPEN) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |FILE-WONT-OPEN report method|)) (IL:PUTPROP (QUOTE FILE-WONT-OPEN) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE FS-RESOURCES-EXCEEDED) T (QUOTE (CL::PS FS-RESOURCES-EXCEEDED |FS-RESOURCES-EXCEEDED constructor| (SI::--STRUCTURE-DUMMY-SLOT-- PATHNAME) CL::DATATYPE NIL FILE-ERROR "FS-RESOURCES-EXCEEDED-" (|FS-RESOURCES-EXCEEDED constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (FS-RESOURCES-EXCEEDED 0 IL:XPOINTER) NIL) (PATHNAME NIL T T (FS-RESOURCES-EXCEEDED 2 IL:POINTER) FS-RESOURCES-EXCEEDED-PATHNAME)) NIL NIL ( IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE FS-RESOURCES-EXCEEDED) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE ((FS-RESOURCES-EXCEEDED 0 IL:XPOINTER) (FS-RESOURCES-EXCEEDED 2 IL:POINTER))) 4 (QUOTE FILE-ERROR)) (IL:PUTPROP (QUOTE FS-RESOURCES-EXCEEDED) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) FS-RESOURCES-EXCEEDED-PATHNAME :D8 (IL:L (0 FS-RESOURCES-EXCEEDED)) @NIL (5 FS-RESOURCES-EXCEEDED) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE FS-RESOURCES-EXCEEDED)) |FS-RESOURCES-EXCEEDED constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :PATHNAME 24 |FS-RESOURCES-EXCEEDEDTYPE#|) () |FS-RESOURCES-EXCEEDED report method| :D8 (IL:L (1 S 0 C)) Ao@ (18 FORMAT) (11 FS-RESOURCES-EXCEEDED) ( 5 "File system resources exceeded: ~A") (IL:PUTPROP (QUOTE FS-RESOURCES-EXCEEDED) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |FS-RESOURCES-EXCEEDED report method|)) (IL:PUTPROP (QUOTE FS-RESOURCES-EXCEEDED) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE FS-PROTECTION-VIOLATION) T (QUOTE (CL::PS FS-PROTECTION-VIOLATION |FS-PROTECTION-VIOLATION constructor| (SI::--STRUCTURE-DUMMY-SLOT-- PATHNAME) CL::DATATYPE NIL FILE-ERROR "FS-PROTECTION-VIOLATION-" (|FS-PROTECTION-VIOLATION constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (FS-PROTECTION-VIOLATION 0 IL:XPOINTER) NIL) (PATHNAME NIL T T (FS-PROTECTION-VIOLATION 2 IL:POINTER) FS-PROTECTION-VIOLATION-PATHNAME)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE FS-PROTECTION-VIOLATION) (QUOTE (IL:XPOINTER IL:POINTER)) ( QUOTE ((FS-PROTECTION-VIOLATION 0 IL:XPOINTER) (FS-PROTECTION-VIOLATION 2 IL:POINTER))) 4 (QUOTE FILE-ERROR)) (IL:PUTPROP (QUOTE FS-PROTECTION-VIOLATION) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) FS-PROTECTION-VIOLATION-PATHNAME :D8 (IL:L (0 FS-PROTECTION-VIOLATION)) @NIL (5 FS-PROTECTION-VIOLATION) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE FS-PROTECTION-VIOLATION)) |FS-PROTECTION-VIOLATION constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :PATHNAME 24 |FS-PROTECTION-VIOLATIONTYPE#|) () |FS-PROTECTION-VIOLATION report method| :D8 (IL:L (1 S 0 C)) Ao@ (18 FORMAT) (11 FILE-ERROR) ( 5 "Protection violation: ~A") (IL:PUTPROP (QUOTE FS-PROTECTION-VIOLATION) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |FS-PROTECTION-VIOLATION report method|)) (IL:PUTPROP (QUOTE FS-PROTECTION-VIOLATION) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE FS-RENAMEFILE-SOURCE-COULDNT-DELETE) T (QUOTE (CL::PS FS-RENAMEFILE-SOURCE-COULDNT-DELETE |FS-RENAMEFILE-SOURCE-COULDNT-DELETE constructor| ( SI::--STRUCTURE-DUMMY-SLOT-- PATHNAME) CL::DATATYPE NIL FILE-ERROR "FS-RENAMEFILE-SOURCE-COULDNT-DELETE-" (|FS-RENAMEFILE-SOURCE-COULDNT-DELETE constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T ( FS-RENAMEFILE-SOURCE-COULDNT-DELETE 0 IL:XPOINTER) NIL) (PATHNAME NIL T T ( FS-RENAMEFILE-SOURCE-COULDNT-DELETE 2 IL:POINTER) FS-RENAMEFILE-SOURCE-COULDNT-DELETE-PATHNAME)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE FS-RENAMEFILE-SOURCE-COULDNT-DELETE) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE ((FS-RENAMEFILE-SOURCE-COULDNT-DELETE 0 IL:XPOINTER) ( FS-RENAMEFILE-SOURCE-COULDNT-DELETE 2 IL:POINTER))) 4 (QUOTE FILE-ERROR)) (IL:PUTPROP (QUOTE FS-RENAMEFILE-SOURCE-COULDNT-DELETE) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) FS-RENAMEFILE-SOURCE-COULDNT-DELETE-PATHNAME :D8 (IL:L (0 FS-RENAMEFILE-SOURCE-COULDNT-DELETE)) @NIL (5 FS-RENAMEFILE-SOURCE-COULDNT-DELETE) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE FS-RENAMEFILE-SOURCE-COULDNT-DELETE)) |FS-RENAMEFILE-SOURCE-COULDNT-DELETE constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :PATHNAME 24 |FS-RENAMEFILE-SOURCE-COULDNT-DELETETYPE#|) () |FS-RENAMEFILE-SOURCE-COULDNT-DELETE report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) io@ (18 FORMAT) (11 FS-RENAMEFILE-SOURCE-COULDNT-DELETE) ( 5 "Couldn't delete the source file: ~A") (IL:PUTPROP (QUOTE FS-RENAMEFILE-SOURCE-COULDNT-DELETE) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |FS-RENAMEFILE-SOURCE-COULDNT-DELETE report method|)) (IL:PUTPROP (QUOTE FS-RENAMEFILE-SOURCE-COULDNT-DELETE) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE ARITHMETIC-ERROR) T (QUOTE (CL::PS ARITHMETIC-ERROR CONDITIONS::|ARITHMETIC-ERROR constructor| (SI::--STRUCTURE-DUMMY-SLOT-- OPERATION OPERANDS) CL::DATATYPE NIL ERROR "ARITHMETIC-ERROR-" (CONDITIONS::|ARITHMETIC-ERROR constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (ARITHMETIC-ERROR 0 IL:XPOINTER) NIL) (OPERATION NIL T T (ARITHMETIC-ERROR 2 IL:POINTER) ARITHMETIC-ERROR-OPERATION) ( OPERANDS NIL T T (ARITHMETIC-ERROR 4 IL:POINTER) ARITHMETIC-ERROR-OPERANDS)) NIL NIL (IL:XPOINTER IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE ARITHMETIC-ERROR) (QUOTE (IL:XPOINTER IL:POINTER IL:POINTER)) (QUOTE ((ARITHMETIC-ERROR 0 IL:XPOINTER) (ARITHMETIC-ERROR 2 IL:POINTER) (ARITHMETIC-ERROR 4 IL:POINTER ))) 6 (QUOTE ERROR)) (IL:PUTPROP (QUOTE ARITHMETIC-ERROR) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) ARITHMETIC-ERROR-OPERATION :D8 (IL:L (0 ARITHMETIC-ERROR)) @NIL (5 ARITHMETIC-ERROR) () ARITHMETIC-ERROR-OPERANDS :D8 (IL:L (0 ARITHMETIC-ERROR)) @NIL (5 ARITHMETIC-ERROR) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE ARITHMETIC-ERROR)) CONDITIONS::|ARITHMETIC-ERROR constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 10 IL:\\INTERRUPTABLE) ei HkKJWhYiHk_OdNZh]_`_ OdnhnOjkhIOLMOOOKdagl[kaagOkaOl_NIL (128 :OPERANDS 109 :OPERATION 45 CONDITIONS::|ARITHMETIC-ERRORTYPE#|) () CONDITIONS::|ARITHMETIC-ERROR report method| :D8 (IL:L (1 S 0 C)) Ao@@ (26 FORMAT) (19 ARITHMETIC-ERROR 11 ARITHMETIC-ERROR) ( 5 "Arithmetic error during (~S~{ ~S~})") (IL:PUTPROP (QUOTE ARITHMETIC-ERROR) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION CONDITIONS::|ARITHMETIC-ERROR report method|)) (IL:PUTPROP (QUOTE ARITHMETIC-ERROR) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE DIVISION-BY-ZERO) T (QUOTE (CL::PS DIVISION-BY-ZERO CONDITIONS::|DIVISION-BY-ZERO constructor| (SI::--STRUCTURE-DUMMY-SLOT-- OPERATION OPERANDS) CL::DATATYPE NIL ARITHMETIC-ERROR "DIVISION-BY-ZERO-" (CONDITIONS::|DIVISION-BY-ZERO constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (DIVISION-BY-ZERO 0 IL:XPOINTER) NIL) (OPERATION NIL T T (DIVISION-BY-ZERO 2 IL:POINTER) DIVISION-BY-ZERO-OPERATION) ( OPERANDS NIL T T (DIVISION-BY-ZERO 4 IL:POINTER) DIVISION-BY-ZERO-OPERANDS)) NIL NIL (IL:XPOINTER IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE DIVISION-BY-ZERO) (QUOTE (IL:XPOINTER IL:POINTER IL:POINTER)) (QUOTE ((DIVISION-BY-ZERO 0 IL:XPOINTER) (DIVISION-BY-ZERO 2 IL:POINTER) (DIVISION-BY-ZERO 4 IL:POINTER ))) 6 (QUOTE ARITHMETIC-ERROR)) (IL:PUTPROP (QUOTE DIVISION-BY-ZERO) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) DIVISION-BY-ZERO-OPERATION :D8 (IL:L (0 DIVISION-BY-ZERO)) @NIL (5 DIVISION-BY-ZERO) () DIVISION-BY-ZERO-OPERANDS :D8 (IL:L (0 DIVISION-BY-ZERO)) @NIL (5 DIVISION-BY-ZERO) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE DIVISION-BY-ZERO)) CONDITIONS::|DIVISION-BY-ZERO constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 10 IL:\\INTERRUPTABLE) ei HkKJWhYiHk_OdNZh]_`_ OdnhnOjkhIOLMOOOKdagl[kaagOkaOl_NIL (128 :OPERANDS 109 :OPERATION 45 CONDITIONS::|DIVISION-BY-ZEROTYPE#|) () (IL:PUTPROP (QUOTE DIVISION-BY-ZERO) (QUOTE IL:%CONDITION-REPORTER) "Attempt to divide by zero.") (IL:PUTPROP (QUOTE DIVISION-BY-ZERO) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE FLOATING-POINT-OVERFLOW) T (QUOTE (CL::PS FLOATING-POINT-OVERFLOW CONDITIONS::|FLOATING-POINT-OVERFLOW constructor| (SI::--STRUCTURE-DUMMY-SLOT-- OPERATION OPERANDS) CL::DATATYPE NIL ARITHMETIC-ERROR "FLOATING-POINT-OVERFLOW-" (CONDITIONS::|FLOATING-POINT-OVERFLOW constructor| ) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL ((SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T ( FLOATING-POINT-OVERFLOW 0 IL:XPOINTER) NIL) (OPERATION NIL T T (FLOATING-POINT-OVERFLOW 2 IL:POINTER) FLOATING-POINT-OVERFLOW-OPERATION) (OPERANDS NIL T T (FLOATING-POINT-OVERFLOW 4 IL:POINTER) FLOATING-POINT-OVERFLOW-OPERANDS)) NIL NIL (IL:XPOINTER IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE FLOATING-POINT-OVERFLOW) (QUOTE (IL:XPOINTER IL:POINTER IL:POINTER)) (QUOTE ((FLOATING-POINT-OVERFLOW 0 IL:XPOINTER) (FLOATING-POINT-OVERFLOW 2 IL:POINTER) ( FLOATING-POINT-OVERFLOW 4 IL:POINTER))) 6 (QUOTE ARITHMETIC-ERROR)) (IL:PUTPROP (QUOTE FLOATING-POINT-OVERFLOW) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) FLOATING-POINT-OVERFLOW-OPERATION :D8 (IL:L (0 FLOATING-POINT-OVERFLOW)) @NIL (5 FLOATING-POINT-OVERFLOW) () FLOATING-POINT-OVERFLOW-OPERANDS :D8 (IL:L (0 FLOATING-POINT-OVERFLOW)) @NIL (5 FLOATING-POINT-OVERFLOW) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE FLOATING-POINT-OVERFLOW)) CONDITIONS::|FLOATING-POINT-OVERFLOW constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 10 IL:\\INTERRUPTABLE) ei HkKJWhYiHk_OdNZh]_`_ OdnhnOjkhIOLMOOOKdagl[kaagOkaOl_NIL (128 :OPERANDS 109 :OPERATION 45 CONDITIONS::|FLOATING-POINT-OVERFLOWTYPE#|) () (IL:PUTPROP (QUOTE FLOATING-POINT-OVERFLOW) (QUOTE IL:%CONDITION-REPORTER) "Floating point overflow.") (IL:PUTPROP (QUOTE FLOATING-POINT-OVERFLOW) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE FLOATING-POINT-UNDERFLOW) T (QUOTE (CL::PS FLOATING-POINT-UNDERFLOW CONDITIONS::|FLOATING-POINT-UNDERFLOW constructor| (SI::--STRUCTURE-DUMMY-SLOT-- OPERATION OPERANDS) CL::DATATYPE NIL ARITHMETIC-ERROR "FLOATING-POINT-UNDERFLOW-" ( CONDITIONS::|FLOATING-POINT-UNDERFLOW constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (FLOATING-POINT-UNDERFLOW 0 IL:XPOINTER) NIL) ( OPERATION NIL T T (FLOATING-POINT-UNDERFLOW 2 IL:POINTER) FLOATING-POINT-UNDERFLOW-OPERATION) ( OPERANDS NIL T T (FLOATING-POINT-UNDERFLOW 4 IL:POINTER) FLOATING-POINT-UNDERFLOW-OPERANDS)) NIL NIL ( IL:XPOINTER IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE FLOATING-POINT-UNDERFLOW) (QUOTE (IL:XPOINTER IL:POINTER IL:POINTER)) (QUOTE ((FLOATING-POINT-UNDERFLOW 0 IL:XPOINTER) (FLOATING-POINT-UNDERFLOW 2 IL:POINTER) (FLOATING-POINT-UNDERFLOW 4 IL:POINTER))) 6 (QUOTE ARITHMETIC-ERROR)) (IL:PUTPROP (QUOTE FLOATING-POINT-UNDERFLOW) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) FLOATING-POINT-UNDERFLOW-OPERATION :D8 (IL:L (0 FLOATING-POINT-UNDERFLOW)) @NIL (5 FLOATING-POINT-UNDERFLOW) () FLOATING-POINT-UNDERFLOW-OPERANDS :D8 (IL:L (0 FLOATING-POINT-UNDERFLOW)) @NIL (5 FLOATING-POINT-UNDERFLOW) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE FLOATING-POINT-UNDERFLOW)) CONDITIONS::|FLOATING-POINT-UNDERFLOW constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 10 IL:\\INTERRUPTABLE) ei HkKJWhYiHk_OdNZh]_`_ OdnhnOjkhIOLMOOOKdagl[kaagOkaOl_NIL (128 :OPERANDS 109 :OPERATION 45 CONDITIONS::|FLOATING-POINT-UNDERFLOWTYPE#|) () (IL:PUTPROP (QUOTE FLOATING-POINT-UNDERFLOW) (QUOTE IL:%CONDITION-REPORTER) "Floating point underflow.") (IL:PUTPROP (QUOTE FLOATING-POINT-UNDERFLOW) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE PATHNAME-ERROR) T (QUOTE (CL::PS PATHNAME-ERROR |PATHNAME-ERROR constructor| (SI::--STRUCTURE-DUMMY-SLOT-- PATHNAME) CL::DATATYPE NIL ERROR "PATHNAME-ERROR-" (|PATHNAME-ERROR constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (PATHNAME-ERROR 0 IL:XPOINTER) NIL) (PATHNAME NIL T T ( PATHNAME-ERROR 2 IL:POINTER) PATHNAME-ERROR-PATHNAME)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE PATHNAME-ERROR) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE (( PATHNAME-ERROR 0 IL:XPOINTER) (PATHNAME-ERROR 2 IL:POINTER))) 4 (QUOTE ERROR)) (IL:PUTPROP (QUOTE PATHNAME-ERROR) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) PATHNAME-ERROR-PATHNAME :D8 (IL:L (0 PATHNAME-ERROR)) @NIL (5 PATHNAME-ERROR) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE PATHNAME-ERROR)) |PATHNAME-ERROR constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :PATHNAME 24 |PATHNAME-ERRORTYPE#|) () (IL:PUTPROP (QUOTE PATHNAME-ERROR) (QUOTE IL:%CONDITION-REPORTER) NIL) (IL:PUTPROP (QUOTE PATHNAME-ERROR) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE FILE-NOT-FOUND) T (QUOTE (CL::PS FILE-NOT-FOUND |FILE-NOT-FOUND constructor| (SI::--STRUCTURE-DUMMY-SLOT-- PATHNAME) CL::DATATYPE NIL FILE-ERROR "FILE-NOT-FOUND-" (|FILE-NOT-FOUND constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (FILE-NOT-FOUND 0 IL:XPOINTER) NIL) (PATHNAME NIL T T ( FILE-NOT-FOUND 2 IL:POINTER) FILE-NOT-FOUND-PATHNAME)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE FILE-NOT-FOUND) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE (( FILE-NOT-FOUND 0 IL:XPOINTER) (FILE-NOT-FOUND 2 IL:POINTER))) 4 (QUOTE FILE-ERROR)) (IL:PUTPROP (QUOTE FILE-NOT-FOUND) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) FILE-NOT-FOUND-PATHNAME :D8 (IL:L (0 FILE-NOT-FOUND)) @NIL (5 FILE-NOT-FOUND) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE FILE-NOT-FOUND)) |FILE-NOT-FOUND constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :PATHNAME 24 |FILE-NOT-FOUNDTYPE#|) () |FILE-NOT-FOUND report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) io@ (18 FORMAT) (11 FILE-NOT-FOUND) ( 5 "File not found: ~A") (IL:PUTPROP (QUOTE FILE-NOT-FOUND) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |FILE-NOT-FOUND report method|)) |FILE-NOT-FOUND default handler| :D8 (IL:L (0 CONDITION) IL:F 6 IL:ERRORPOS IL:F 7 IL:NOFILESPELLFLG) g Q@ hW QH6V H@V h[LK mVd Vid ]dM KJI&IhZL\(107 NAMESTRING 90 IL:ENVAPPLY 81 IL:STKNTH 72 IL:SUBST 59 IL:STKARGS 44 IL:STKNAME 32 IL:SPELLFILE 24 IL:ROOTFILENAME 9 BOUNDP) (99 PATHNAME 51 FILE-NOT-FOUND 17 FILE-NOT-FOUND 4 IL:ERRORPOS) () (IL:PUTPROP (QUOTE FILE-NOT-FOUND) (QUOTE IL:%CONDITION-HANDLER) (FUNCTION |FILE-NOT-FOUND default handler|)) (CL::SET-PARSED-STRUCTURE (QUOTE INVALID-PATHNAME) T (QUOTE (CL::PS INVALID-PATHNAME |INVALID-PATHNAME constructor| (SI::--STRUCTURE-DUMMY-SLOT-- PATHNAME) CL::DATATYPE NIL PATHNAME-ERROR "INVALID-PATHNAME-" (|INVALID-PATHNAME constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (INVALID-PATHNAME 0 IL:XPOINTER) NIL) (PATHNAME NIL T T (INVALID-PATHNAME 2 IL:POINTER) INVALID-PATHNAME-PATHNAME)) NIL NIL (IL:XPOINTER IL:POINTER) NIL ( :ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE INVALID-PATHNAME) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE (( INVALID-PATHNAME 0 IL:XPOINTER) (INVALID-PATHNAME 2 IL:POINTER))) 4 (QUOTE PATHNAME-ERROR)) (IL:PUTPROP (QUOTE INVALID-PATHNAME) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) INVALID-PATHNAME-PATHNAME :D8 (IL:L (0 INVALID-PATHNAME)) @NIL (5 INVALID-PATHNAME) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE INVALID-PATHNAME)) |INVALID-PATHNAME constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHkKJ3hY`MdnhnMjkhIMLMKdagl[kaNIL (73 :PATHNAME 24 |INVALID-PATHNAMETYPE#|) () |INVALID-PATHNAME report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) io@ (18 FORMAT) (11 INVALID-PATHNAME) ( 5 "Invalid pathname: ~A") (IL:PUTPROP (QUOTE INVALID-PATHNAME) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION |INVALID-PATHNAME report method|)) (IL:PUTPROP (QUOTE INVALID-PATHNAME) (QUOTE IL:%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE CL::PRINT-NOT-READABLE) T (QUOTE (CL::PS CL::PRINT-NOT-READABLE CL::|PRINT-NOT-READABLE constructor| (SI::--STRUCTURE-DUMMY-SLOT-- THING WHERE) CL::DATATYPE NIL ERROR "PRINT-NOT-READABLE-" (CL::|PRINT-NOT-READABLE constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (CL::PRINT-NOT-READABLE 0 IL:XPOINTER) NIL) (THING NIL T T (CL::PRINT-NOT-READABLE 2 IL:POINTER) PRINT-NOT-READABLE-THING) (WHERE NIL T T ( CL::PRINT-NOT-READABLE 4 IL:POINTER) PRINT-NOT-READABLE-WHERE)) NIL NIL (IL:XPOINTER IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE CL::PRINT-NOT-READABLE) (QUOTE (IL:XPOINTER IL:POINTER IL:POINTER)) (QUOTE ((CL::PRINT-NOT-READABLE 0 IL:XPOINTER) (CL::PRINT-NOT-READABLE 2 IL:POINTER) ( CL::PRINT-NOT-READABLE 4 IL:POINTER))) 6 (QUOTE ERROR)) (IL:PUTPROP (QUOTE CL::PRINT-NOT-READABLE) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) PRINT-NOT-READABLE-THING :D8 (IL:L (0 CL::PRINT-NOT-READABLE)) @NIL (5 CL::PRINT-NOT-READABLE) () PRINT-NOT-READABLE-WHERE :D8 (IL:L (0 CL::PRINT-NOT-READABLE)) @NIL (5 CL::PRINT-NOT-READABLE) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE CL::PRINT-NOT-READABLE)) CL::|PRINT-NOT-READABLE constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 10 IL:\\INTERRUPTABLE) ei HkKJWhYiHk_OdNZh]_`_ OdnhnOjkhIOLMOOOKdagl[kaagOkaOl_NIL (128 :WHERE 109 :THING 45 CL::|PRINT-NOT-READABLETYPE#|) () CL::|PRINT-NOT-READABLE report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) io@ @ (22 FORMAT 17 CL::PRINT-NOT-READABLE-WHERE 11 CL::PRINT-NOT-READABLE-THING) NIL ( 5 "~S cannot be printed readably~@[ by ~S~]") (IL:PUTPROP (QUOTE CL::PRINT-NOT-READABLE) (QUOTE IL:%CONDITION-REPORTER) (FUNCTION CL::|PRINT-NOT-READABLE report method|)) (IL:PUTPROP (QUOTE CL::PRINT-NOT-READABLE) (QUOTE IL:%CONDITION-HANDLER) NIL) SIMPLE-CONDITION-FORMAT-ARGUMENTS :D8 (IL:L (0 CONDITION)) \@HYd@d@@I @gHoh (89 IL:CHECK-TYPE-FAIL) (76 CONDITION 68 SIMPLE-WARNING 60 SIMPLE-WARNING 51 SIMPLE-CONDITION 44 SIMPLE-CONDITION 36 SIMPLE-TYPE-ERROR 28 SIMPLE-TYPE-ERROR 19 SIMPLE-ERROR 11 SIMPLE-ERROR) ( 82 (OR SIMPLE-ERROR SIMPLE-TYPE-ERROR SIMPLE-CONDITION SIMPLE-WARNING)) SIMPLE-CONDITION-FORMAT-STRING :D8 (IL:L (0 CONDITION)) \@HYd@d@@I @gHoh (89 IL:CHECK-TYPE-FAIL) (76 CONDITION 68 SIMPLE-WARNING 60 SIMPLE-WARNING 51 SIMPLE-CONDITION 44 SIMPLE-CONDITION 36 SIMPLE-TYPE-ERROR 28 SIMPLE-TYPE-ERROR 19 SIMPLE-ERROR 11 SIMPLE-ERROR) ( 82 (OR SIMPLE-ERROR SIMPLE-TYPE-ERROR SIMPLE-CONDITION SIMPLE-WARNING)) (IL:FILESLOAD IL:CONDITION-HIERARCHY-IL) (IL:PUTPROPS IL:CONDITION-HIERARCHY IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:CONDITION-HIERARCHY IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (DEFPACKAGE "XCL" (:USE)))) (IL:PUTPROPS IL:CONDITION-HIERARCHY IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991 )) NIL