(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "XCL" (USE))) (IL:FILECREATED "25-Jan-98 11:52:26" ("compiled on " IL:|{DSK}sources>CONDITION-HIERARCHY-POST-SI.;1|) "30-Mar-95 20:33:04" "COMPILE-FILEd" IL:|in| "Medley 14-Aug-95 ..." IL:|dated| "14-Aug-95 15:27:48") (IL:FILECREATED "16-May-90 15:05:05" IL:|{DSK}local>lde>lispcore>sources>CONDITION-HIERARCHY-POST-SI.;2| 1508 IL:|changes| IL:|to:| ( IL:VARS IL:CONDITION-HIERARCHY-POST-SICOMS) IL:|previous| IL:|date:| "11-Jan-88 19:32:28" IL:|{DSK}local>lde>lispcore>sources>CONDITION-HIERARCHY-POST-SI.;1|) (IL:RPAQQ IL:CONDITION-HIERARCHY-POST-SICOMS ((IL:STRUCTURES CONTROL-E-INTERRUPT) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:CONDITION-HIERARCHY-POST-SI))) (CL::SET-PARSED-STRUCTURE (QUOTE CONTROL-E-INTERRUPT) T (QUOTE (CL::PS CONTROL-E-INTERRUPT |CONTROL-E-INTERRUPT constructor| (SI::--STRUCTURE-DUMMY-SLOT-- FUNCTION) CL::DATATYPE NIL SI::INTERRUPT "CONTROL-E-INTERRUPT-" (|CONTROL-E-INTERRUPT constructor|) NIL IL:%PRINT-CONDITION NIL NIL 0 NIL (( SI::--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (CONTROL-E-INTERRUPT 0 IL:XPOINTER) NIL) (FUNCTION NIL T T (CONTROL-E-INTERRUPT 2 IL:POINTER) CONTROL-E-INTERRUPT-FUNCTION)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE CONTROL-E-INTERRUPT) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE ( (CONTROL-E-INTERRUPT 0 IL:XPOINTER) (CONTROL-E-INTERRUPT 2 IL:POINTER))) 4 (QUOTE SI::INTERRUPT)) (IL:PUTPROP (QUOTE CONTROL-E-INTERRUPT) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) CONTROL-E-INTERRUPT-FUNCTION :D8 (IL:L (0 CONTROL-E-INTERRUPT)) @ÉNIL (5 CONTROL-E-INTERRUPT) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE CONTROL-E-INTERRUPT)) |CONTROL-E-INTERRUPT constructor| :D8 (IL:L (0 IL:|-args-|) IL:P 6 IL:\\INTERRUPTABLE) XeiAHk»ºKJó²3hY¼`½MdÈnðåhÒnÿåäÍ¿MjkØÐhÓÍI“MLMKdagð¥lÔ[°½kØa°¾NIL (73 :FUNCTION 24 |CONTROL-E-INTERRUPTTYPE#|) () (IL:PUTPROP (QUOTE CONTROL-E-INTERRUPT) (QUOTE IL:%CONDITION-REPORTER) "CONTROL E") (IL:PUTPROP (QUOTE CONTROL-E-INTERRUPT) (QUOTE IL:%CONDITION-HANDLER) NIL) (IL:PUTPROPS IL:CONDITION-HIERARCHY-POST-SI IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:CONDITION-HIERARCHY-POST-SI IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE ( DEFPACKAGE "XCL" (:USE)))) (IL:PUTPROPS IL:CONDITION-HIERARCHY-POST-SI IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1988 1990)) NIL