(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE (DEFPACKAGE "CONDITIONS"))(IL:FILECREATED "25-Jan-98 11:53:22" ("compiled on " IL:{DSK}<lispcore>sources>CONDITION-PACKAGE.;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:08:25" IL:{DSK}<usr>local>lde>lispcore>sources>CONDITION-PACKAGE.;2 5040 IL:changes IL:to%: (IL:VARS IL:CONDITION-PACKAGECOMS) IL:previous IL:date%: "31-Dec-00 16:49:37" IL:{DSK}<usr>local>lde>lispcore>sources>CONDITION-PACKAGE.;1)(IL:RPAQQ IL:CONDITION-PACKAGECOMS ((IL:FUNCTIONS CL::NATURALIZE DEFECT-FROM-XCL-TO-CONDITIONS) (IL:VARIABLES *FUTURE-CITIZENS-OF-CONDITIONS*) (IL:DECLARE%: IL:DONTEVAL@LOAD IL:DOCOPY (IL:P (XCL:DEFPACKAGE "CONDITIONS" (:EXPORT *BREAK-ON-SIGNALS* HANDLER-CASE WITH-SIMPLE-RESTART RESTART-CASE RESTART-BIND COMPUTE-RESTARTS RESTART-NAME FIND-RESTART INVOKE-RESTART INVOKE-RESTART-INTERACTIVELY CONTINUE MUFFLE-WARNING INVOKE-DEBUGGER RESTART TYPE-ERROR-DATUM PROGRAM-ERROR FILE-ERROR FILE-ERROR-PATHNAME DIVISION-BY-ZERO FLOATING-POINT-OVERFLOW FLOATING-POINT-UNDERFLOW)) (MAPC (FUNCTION DEFECT-FROM-XCL-TO-CONDITIONS) *FUTURE-CITIZENS-OF-CONDITIONS*))) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:CONDITION-PACKAGE)))CL::NATURALIZE :D8(IL:L (2 CL::DESTINATION 1 CL::SOURCE 0 CL::NAME))   @ H	    ²pA HÃ    ²|B HÃ    ¢± ‡@A
    	    aH¾H½@B
    	    \»LºM¢± ŽJ²mNKð³ho    @A	    B	        ¿± žig    Hg    h    b ±ÿpig    Hg    h    b±ÿdig    Hg    h    b±ÿXM²NB
    ¿NB
    ¿NB
    ¿°5J²KA
    ¿KB
    ¿KB
    ¿°@B
    YA
    ¿IB
    i (276 EXPORT 268 IMPORT 261 INTERN 251 IL:SETF-SYMBOL-PACKAGE 243 EXPORT 235 IMPORT 222 IL:SETF-SYMBOL-PACKAGE 214 EXPORT 206 IMPORT 190 IL:CHECK-TYPE-FAIL 165 IL:CHECK-TYPE-FAIL 140 IL:CHECK-TYPE-FAIL 117 ERROR 112 PACKAGE-NAME 106 PACKAGE-NAME 74 IL:\MVLIST 69 FIND-SYMBOL 52 IL:\MVLIST 47 FIND-SYMBOL 9 STRINGP)(183 PACKAGE 177 CL::DESTINATION 158 PACKAGE 152 CL::SOURCE 133 STRING 127 CL::NAME 35 PACKAGE 22 PACKAGE)( 99 "Can't naturalize ~s because name exists in ~s and ~s")(IL:SET-DOCUMENTATION (QUOTE CL::NATURALIZE) (QUOTE FUNCTION) "Make a symbol, possibly in source, be in source and citizen and export of destination.")DEFECT-FROM-XCL-TO-CONDITIONS :D8(IL:L (0 NAME))     @o    	    o    	         (25 CL::NATURALIZE 20 FIND-PACKAGE 10 FIND-PACKAGE)NIL( 15 "CONDITIONS" 5 "XCL")(PROCLAIM (QUOTE (XCL:GLOBAL *FUTURE-CITIZENS-OF-CONDITIONS*)))(IL:SETQ *FUTURE-CITIZENS-OF-CONDITIONS* (QUOTE ("SIGNAL" "IGNORE-ERRORS" "HANDLER-BIND" "DEFINE-CONDITION" "MAKE-CONDITION" "ABORT" "STORE-VALUE" "USE-VALUE" "CONDITION" "WARNING" "SERIOUS-CONDITION" "SIMPLE-CONDITION" "SIMPLE-WARNING" "SIMPLE-ERROR" "SIMPLE-CONDITION-FORMAT-STRING" "SIMPLE-CONDITION-FORMAT-ARGUMENTS" "STORAGE-CONDITION" "CONTROL-ERROR" "STREAM-ERROR" "STREAM-ERROR-STREAM" "END-OF-FILE" "CELL-ERROR" "CELL-ERROR-NAME" "UNBOUND-VARIABLE" "UNDEFINED-FUNCTION" "ARITHMETIC-ERROR" "ARITHMETIC-ERROR-OPERATION" "ARITHMETIC-ERROR-OPERANDS" "SIMPLE-TYPE-ERROR" "TYPE-ERROR" "TYPE-ERROR-EXPECTED-TYPE")))(IL:SET-DOCUMENTATION (QUOTE *FUTURE-CITIZENS-OF-CONDITIONS*) (QUOTE VARIABLE) "Current citizens of XCL that should be in CONDITIONS: do not change this list!!!")(XCL:DEFPACKAGE "CONDITIONS" (:EXPORT *BREAK-ON-SIGNALS* HANDLER-CASE WITH-SIMPLE-RESTART RESTART-CASE RESTART-BIND COMPUTE-RESTARTS RESTART-NAME FIND-RESTART INVOKE-RESTART INVOKE-RESTART-INTERACTIVELY CONTINUE MUFFLE-WARNING INVOKE-DEBUGGER RESTART TYPE-ERROR-DATUM PROGRAM-ERROR FILE-ERROR FILE-ERROR-PATHNAME DIVISION-BY-ZERO FLOATING-POINT-OVERFLOW FLOATING-POINT-UNDERFLOW))(MAPC (FUNCTION DEFECT-FROM-XCL-TO-CONDITIONS) *FUTURE-CITIZENS-OF-CONDITIONS*)(IL:PUTPROPS IL:CONDITION-PACKAGE IL:FILETYPE IL:COMPILE-FILE)(IL:PUTPROPS IL:CONDITION-PACKAGE IL:MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE (XCL:DEFPACKAGE "CONDITIONS")))(IL:PUTPROPS IL:CONDITION-PACKAGE IL:COPYRIGHT ("Venue & Xerox Corporation" 1987 1988 1900 1990))NIL