(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "XCL" (USE)))

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


; Copyright (c) 1986, 1988, 1990 by Venue & Xerox Corporation.  All rights reserved.

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

(IL:RPAQQ IL:CONDITION-HIERARCHY-POST-SICOMS
 ((IL:STRUCTURES CONTROL-E-INTERRUPT)
                                                  (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT)
                                                         IL:CONDITION-HIERARCHY-POST-SI)))

(DEFINE-CONDITION CONTROL-E-INTERRUPT
 (SI::INTERRUPT)
   NIL
   (:REPORT "CONTROL E"))

(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))
(IL:DECLARE\: IL:DONTCOPY
  (IL:FILEMAP (NIL)))
IL:STOP