(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "SYSTEM") (IL:FILECREATED "25-Jan-98 11:52:40" ("compiled on " IL:{DSK}sources>CONDITION-HIERARCHY-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:52" IL:{DSK}local>lde>lispcore>sources>CONDITION-HIERARCHY-SI.;2 2452 IL:changes IL:to%: (IL:VARS IL:CONDITION-HIERARCHY-SICOMS) IL:previous IL:date%: "11-Jan-88 18:43:35" IL:{DSK}local>lde>lispcore>sources>CONDITION-HIERARCHY-SI.;1) (IL:RPAQQ IL:CONDITION-HIERARCHY-SICOMS ((IL:STRUCTURES DEBUGGER-EVAL-ABORTED) (IL:STRUCTURES NO-PROCEED-TEST) (IL:STRUCTURES BREAKPOINT INTERRUPT REVERT) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:CONDITION-HIERARCHY-SI))) (CL::SET-PARSED-STRUCTURE (QUOTE DEBUGGER-EVAL-ABORTED) T (QUOTE (CL::PS DEBUGGER-EVAL-ABORTED DEBUGGER-EVAL-ABORTED% constructor (--STRUCTURE-DUMMY-SLOT-- CONDITION) CL::DATATYPE NIL XCL:CONDITION "DEBUGGER-EVAL-ABORTED-" (DEBUGGER-EVAL-ABORTED% constructor) NIL IL:%%PRINT-CONDITION NIL NIL 0 NIL ((--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (DEBUGGER-EVAL-ABORTED 0 IL:XPOINTER) NIL) (CONDITION NIL T T (DEBUGGER-EVAL-ABORTED 2 IL:POINTER) DEBUGGER-EVAL-ABORTED-CONDITION)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (%%STRUCTURE-DECLARE-DATATYPE (QUOTE DEBUGGER-EVAL-ABORTED) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE (( DEBUGGER-EVAL-ABORTED 0 IL:XPOINTER) (DEBUGGER-EVAL-ABORTED 2 IL:POINTER))) 4 (QUOTE XCL:CONDITION)) (IL:PUTPROP (QUOTE DEBUGGER-EVAL-ABORTED) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) DEBUGGER-EVAL-ABORTED-CONDITION :D8 (IL:L (0 DEBUGGER-EVAL-ABORTED)) @ÉNIL (5 DEBUGGER-EVAL-ABORTED) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE DEBUGGER-EVAL-ABORTED)) DEBUGGER-EVAL-ABORTED% 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 :CONDITION 24 |DEBUGGER-EVAL-ABORTEDTYPE#|) () (IL:PUTPROP (QUOTE DEBUGGER-EVAL-ABORTED) (QUOTE IL:%%CONDITION-REPORTER) "DEBUGGER-EVAL was aborted." ) (IL:PUTPROP (QUOTE DEBUGGER-EVAL-ABORTED) (QUOTE IL:%%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE NO-PROCEED-TEST) T (QUOTE (CL::PS NO-PROCEED-TEST NO-PROCEED-TEST% constructor (--STRUCTURE-DUMMY-SLOT-- XCL::NAME) CL::DATATYPE NIL XCL:UNDEFINED-FUNCTION "NO-PROCEED-TEST-" (NO-PROCEED-TEST% constructor) NIL IL:%%PRINT-CONDITION NIL NIL 0 NIL (( --STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (NO-PROCEED-TEST 0 IL:XPOINTER) NIL) (XCL::NAME NIL T T ( NO-PROCEED-TEST 2 IL:POINTER) NO-PROCEED-TEST-NAME)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (%%STRUCTURE-DECLARE-DATATYPE (QUOTE NO-PROCEED-TEST) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE (( NO-PROCEED-TEST 0 IL:XPOINTER) (NO-PROCEED-TEST 2 IL:POINTER))) 4 (QUOTE XCL:UNDEFINED-FUNCTION)) (IL:PUTPROP (QUOTE NO-PROCEED-TEST) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) NO-PROCEED-TEST-NAME :D8 (IL:L (0 NO-PROCEED-TEST)) @ÉNIL (5 NO-PROCEED-TEST) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE NO-PROCEED-TEST)) NO-PROCEED-TEST% 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 :NAME 24 |NO-PROCEED-TESTTYPE#|) () |NO-PROCEED-TEST report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT* IL:F 0 NAME) ioP(11 FORMAT) NIL ( 5 "No test specified for proceed case: ~S.") (IL:PUTPROP (QUOTE NO-PROCEED-TEST) (QUOTE IL:%%CONDITION-REPORTER) (FUNCTION |NO-PROCEED-TEST report method|)) (IL:PUTPROP (QUOTE NO-PROCEED-TEST) (QUOTE IL:%%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE BREAKPOINT) T (QUOTE (CL::PS BREAKPOINT BREAKPOINT% constructor ( --STRUCTURE-DUMMY-SLOT-- FUNCTION) CL::DATATYPE NIL XCL:SERIOUS-CONDITION "BREAKPOINT-" ( BREAKPOINT% constructor) NIL IL:%%PRINT-CONDITION NIL NIL 0 NIL ((--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (BREAKPOINT 0 IL:XPOINTER) NIL) (FUNCTION NIL T T (BREAKPOINT 2 IL:POINTER) BREAKPOINT-FUNCTION)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (%%STRUCTURE-DECLARE-DATATYPE (QUOTE BREAKPOINT) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE ((BREAKPOINT 0 IL:XPOINTER) (BREAKPOINT 2 IL:POINTER))) 4 (QUOTE XCL:SERIOUS-CONDITION)) (IL:PUTPROP (QUOTE BREAKPOINT) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) BREAKPOINT-FUNCTION :D8 (IL:L (0 BREAKPOINT)) @ÉNIL (5 BREAKPOINT) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE BREAKPOINT)) BREAKPOINT% 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 |BREAKPOINTTYPE#|) () |BREAKPOINT report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) @@É²"io@É@Éio@É(61 FORMAT 41 FORMAT) (54 BREAKPOINT 31 BREAKPOINT 22 BREAKPOINT 5 BREAKPOINT) ( 48 "Breakpoint at ~S." 16 "Breakpoint at ~S, called from ~S.") (IL:PUTPROP (QUOTE BREAKPOINT) (QUOTE IL:%%CONDITION-REPORTER) (FUNCTION |BREAKPOINT report method|)) (IL:PUTPROP (QUOTE BREAKPOINT) (QUOTE IL:%%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE INTERRUPT) T (QUOTE (CL::PS INTERRUPT INTERRUPT% constructor ( --STRUCTURE-DUMMY-SLOT-- FUNCTION) CL::DATATYPE NIL BREAKPOINT "INTERRUPT-" (INTERRUPT% constructor) NIL IL:%%PRINT-CONDITION NIL NIL 0 NIL ((--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (INTERRUPT 0 IL:XPOINTER) NIL) (FUNCTION NIL T T (INTERRUPT 2 IL:POINTER) INTERRUPT-FUNCTION)) NIL NIL (IL:XPOINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))) (%%STRUCTURE-DECLARE-DATATYPE (QUOTE INTERRUPT) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE ((INTERRUPT 0 IL:XPOINTER) (INTERRUPT 2 IL:POINTER))) 4 (QUOTE BREAKPOINT)) (IL:PUTPROP (QUOTE INTERRUPT) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) INTERRUPT-FUNCTION :D8 (IL:L (0 INTERRUPT)) @ÉNIL (5 INTERRUPT) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE INTERRUPT)) 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 |INTERRUPTTYPE#|) () |INTERRUPT report method| :D8 (IL:L (0 CONDITION) IL:I 1 *STANDARD-OUTPUT*) io@É(18 FORMAT) (11 INTERRUPT) ( 5 "Interrupt below ~S.") (IL:PUTPROP (QUOTE INTERRUPT) (QUOTE IL:%%CONDITION-REPORTER) (FUNCTION |INTERRUPT report method|)) (IL:PUTPROP (QUOTE INTERRUPT) (QUOTE IL:%%CONDITION-HANDLER) NIL) (CL::SET-PARSED-STRUCTURE (QUOTE REVERT) T (QUOTE (CL::PS REVERT REVERT% constructor ( --STRUCTURE-DUMMY-SLOT-- FUNCTION) CL::DATATYPE NIL BREAKPOINT "REVERT-" (REVERT% constructor) NIL IL:%%PRINT-CONDITION NIL NIL 0 NIL ((--STRUCTURE-DUMMY-SLOT-- NIL IL:XPOINTER T (REVERT 0 IL:XPOINTER) NIL) (FUNCTION NIL T T (REVERT 2 IL:POINTER) REVERT-FUNCTION)) NIL NIL (IL:XPOINTER IL:POINTER) NIL ( :ACCESSOR :PREDICATE) NIL NIL NIL))) (%%STRUCTURE-DECLARE-DATATYPE (QUOTE REVERT) (QUOTE (IL:XPOINTER IL:POINTER)) (QUOTE ((REVERT 0 IL:XPOINTER) (REVERT 2 IL:POINTER))) 4 (QUOTE BREAKPOINT)) (IL:PUTPROP (QUOTE REVERT) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) REVERT-FUNCTION :D8 (IL:L (0 REVERT)) @ÉNIL (5 REVERT) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE REVERT)) REVERT% 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 |REVERTTYPE#|) () (IL:PUTPROP (QUOTE REVERT) (QUOTE IL:%%CONDITION-REPORTER) NIL) (IL:PUTPROP (QUOTE REVERT) (QUOTE IL:%%CONDITION-HANDLER) NIL) (IL:PUTPROPS IL:CONDITION-HIERARCHY-SI IL:FILETYPE IL:COMPILE-FILE) (IL:PUTPROPS IL:CONDITION-HIERARCHY-SI IL:MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "SYSTEM")) (IL:PUTPROPS IL:CONDITION-HIERARCHY-SI IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990)) NIL