‘XCL Compiler output for source file {DSK}sources>ERROR-RUNTIME-AFTER-FASL.;1 Source file created Wednesday, 16 May 1990, 16:14:06. FASL file created Sunday, 25 January 1998, 13:18:10. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜ŒPACKAGE˜Œ INTERLISP˜Œ READTABLE˜ŒXCL˜ŒBASE ˜Œ{Null}˜–,ggo ¿o¿o ˜Œ3 top-level forms™˜“€&˜•ŒPUTPROPS˜•ŒPUTPROP˜•ŒERROR-RUNTIME-AFTER-FASLCOMS˜•Œ FILEDATES˜•ŒERROR-RUNTIME-AFTER-FASL!˜“™˜•ŒFILETYPE˜Œ COMPILE-FILE˜“˜“˜•ŒPROP™™˜“˜•Œ*˜•Œ;;;˜Œ$These functions must be PavCompiled.˜“˜•Œ FUNCTIONS˜’ŒCREATE-CONDITION-CASE-LITERALS˜‘˜ŒSYSTEM˜“™™˜Œ9These don't need to be, but depend on the previous stuff.˜“™!˜’ŒABORT˜‘˜ŒXEROX-COMMON-LISP˜’ŒCONTINUE˜‘˜Œ CONDITIONS˜’ŒMUFFLE-WARNING™,˜’Œ USE-VALUE™)˜’Œ STORE-VALUE™) ˜“˜”˜Œ16-May-90 16:26:16•Œ@{DSK}local>lde>lispcore>sources>ERROR-RUNTIME-AFTER-FASL.;2œ™$˜–"nX¿hhdHý¿@noH™$™˜“˜“˜Œ TYPE-LIST˜– HÉ@ ˜Œ(lambda in CREATE-CONDITION-CASE-LITERALS˜ŒCLOSURE˜“˜“˜Œ CONDITION˜’ŒINTERNAL-THROW™#˜•ŒCOMPILED-CLOSURE˜•Œ \PTRHUNK2˜–'ggh ¿ggo ˜ŒDEFINE-PROCEED-FUNCTION ABORT™˜“€!™ ™˜•Œ%DEFAULT-PROCEED-REPORT™*˜•Œ%DEFAULT-PROCEED-TEST™*˜ŒAbortœ™*˜–2emÿó“ekó—jk ¿ejð£ka¸R¸g Y—IH h˜’Œ*CURRENT-CONDITION*™)™*‚ÿÿÿÿ™˜“˜“˜Œ &OPTIONAL˜Œ CONDITION*˜’ŒINVOKE-RESTART™,!˜’Œ FIND-RESTART™, ˜’ŒARGUMENT-ERROR™#™*œ™-˜–g X–H h™-™˜“€™O™P™-œ™.˜–g X–H h™.™˜“€™O™P™.˜–'ggh ¿ggo ˜Œ!DEFINE-PROCEED-FUNCTION USE-VALUE™˜“€!™ ™™F™/™G™/˜ŒUse a different valueœ™/˜–g X—H@ h™/™˜“˜“™K˜ŒVALUE™O™P™/˜–'ggh ¿ggo ˜Œ#DEFINE-PROCEED-FUNCTION STORE-VALUE™˜“€!™ ™™F™0™G™0˜ŒStore a new value and use itœ™0˜–g X—H@ h™0™˜“˜“™K˜ŒVALUE™O™P™0˜– o ˜Œ1 top-level form™˜“€™˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚ÂÄ‚Æšnÿÿ