(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "SYSTEM")

(IL:FILECREATED "16-May-90 15:05:52" 
IL:{DSK}<usr>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}<usr>local>lde>lispcore>sources>CONDITION-HIERARCHY-SI.;1)


(IL:* ; "
Copyright (c) 1986, 1987, 1988, 1990 by Venue & Xerox Corporation.  All rights reserved.
")

(IL:PRETTYCOMPRINT IL:CONDITION-HIERARCHY-SICOMS)

(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)))

(XCL:DEFINE-CONDITION DEBUGGER-EVAL-ABORTED
 (XCL:CONDITION)
   (CONDITION)
   (:REPORT "DEBUGGER-EVAL was aborted."))

(XCL:DEFINE-CONDITION NO-PROCEED-TEST
 (XCL:UNDEFINED-FUNCTION)
   NIL
   (:REPORT (LAMBDA (CONDITION *STANDARD-OUTPUT*)
                   (FORMAT T "No test specified for proceed case: ~S." NAME))))

(XCL:DEFINE-CONDITION BREAKPOINT
 (XCL:SERIOUS-CONDITION)
   (FUNCTION)
   [:REPORT (LAMBDA (CONDITION *STANDARD-OUTPUT*)
                   (IF (CONSP (BREAKPOINT-FUNCTION CONDITION))
                       (FORMAT T "Breakpoint at ~S, called from ~S." (FIRST (BREAKPOINT-FUNCTION
                                                                             CONDITION))
                              (THIRD (BREAKPOINT-FUNCTION CONDITION)))
                       (FORMAT T "Breakpoint at ~S." (BREAKPOINT-FUNCTION CONDITION)))])

(XCL:DEFINE-CONDITION INTERRUPT
 (BREAKPOINT)
   NIL
   [:REPORT (LAMBDA (CONDITION *STANDARD-OUTPUT*)
                   (FORMAT T "Interrupt below ~S." (INTERRUPT-FUNCTION CONDITION])

(XCL:DEFINE-CONDITION REVERT
 (BREAKPOINT)
   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))
(IL:DECLARE%: IL:DONTCOPY
  (IL:FILEMAP (NIL)))
IL:STOP