‘XCL Compiler output for source file {DSK}sources>CL-ERROR.;1 Source file created Wednesday, 21 August 1991, 17:03:40. FASL file created Sunday, 25 January 1998, 9:28:09. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜ŒXCL˜Œ{Null}˜–!ggo ¿o˜Œ2 top-level forms™˜“€˜•ŒPUTPROP˜•Œ CL-ERRORCOMS˜•Œ FILEDATES˜•ŒCL-ERROR˜“˜“˜•ŒCOMS˜“˜•Œ*˜•Œ;;˜ŒInternal stuff. ˜“˜•Œ FUNCTIONS˜’ŒEXPAND-WITH-COLLECTION-SITES˜‘˜Œ CONDITIONS˜’ŒWITH-COLLECTION-SITES™˜“™˜’ŒDEFAULT-PROCEED-REPORT˜‘˜ŒXEROX-COMMON-LISP˜’ŒDEFAULT-RESTART-REPORT™˜“™˜•Œ WITH-GENSYMS˜•ŒWITH-ERR-LOOP-VARS˜•ŒSTRIP-KEYWORDS˜•ŒMAKE-REPORT-FUNCTION˜’ŒNORMALIZE-SLOT-DESCRIPTION™˜•ŒCHECK-*CASE-SELECTOR˜•ŒCOLLECT-CASE-SELECTORS˜•Œ%SUFFIX-SYMBOL˜•ŒPROCEED-ARG-COLLECTOR˜’ŒEXPAND-CONDITION-CASE˜‘˜ŒSYSTEM˜’ŒPROCESS-PROCEED-KEYWORDS™0˜’ŒSPLIT-PROCEED-CLAUSES™0˜’ŒEXPAND-PROCEED-CASE™0˜’ŒPARSE-RESTART-CASE™˜’ŒCONVERT-RESTART-CASES™˜’ŒEXPAND-RESTART-CASE™˜“˜’Œ OPTIMIZERS™"˜’ŒCONDITION-CASE™"˜’Œ CATCH-ABORT™"˜’Œ PROCEED-CASE™"˜’Œ RESTART-CASE™˜“™˜“™˜’ŒDEFINE-CONDITION™"˜Œ CHECK-TYPE˜Œ ETYPECASE˜Œ CTYPECASE˜ŒECASE˜ŒCCASE˜ŒASSERT˜’Œ HANDLER-BIND™"˜’ŒCONDITION-BIND™"™;˜’Œ HANDLER-CASE™˜’Œ IGNORE-ERRORS™"™=™>˜’Œ RESTART-BIND™˜’ŒWITH-SIMPLE-RESTART™˜’ŒDEFINE-PROCEED-FUNCTION™"™<˜“™™˜Œ-Conversion functions for translating old code˜“™˜’ŒCONVERT-CONDITION-CASE™˜’ŒCONVERT-OLD-DEFINE-CONDITION™˜“˜•ŒPROP˜“˜•ŒFILETYPE˜•ŒMAKEFILE-ENVIRONMENT™˜“˜•ŒDECLARE:˜•Œ DONTEVAL@LOAD˜•ŒDOEVAL@COMPILE˜•ŒDONTCOPY˜•Œ COMPILERVARS˜“˜•ŒADDVARS˜“˜•ŒNLAMA˜“˜•ŒNLAML˜“˜•ŒLAMA ˜“˜”˜Œ21-Aug-91 16:59:21•Œ,{PELE:MV:ENVOS}SOURCES>CL-ERROR.;3œ™˜–‚Ëg@¸h¹hºh»H¢I°FH¼BL'’h°BbgLBbhhh»J”JK¿K¹K‘i€h–K ºH¸°¹ggoggggBhhhgoggggBhohhohhAh™™˜“˜“˜Œ NEW-SITES˜ŒBODY˜Œ OLD-SITESL˜ŒLAST˜•ŒGENSYM ‚ ˜ŒQUOTE‚›˜ŒGETF‚–˜’ŒTAIL™‚‘˜ŒLET‚‡˜’Œ COLLECT-INTO™u™tp˜’ŒBODY™k˜’ŒSITES™f™\™W˜ŒMACROLET'™r™w‚µ˜“˜“˜ŒWHEN˜“˜ŒNULL™v˜“˜ŒERROR˜Œ~S is not a valid site for ~S.˜’ŒSITE™˜“™t™x˜“˜ŒLIST*˜“™t™w˜“˜ŒLIST˜“™‚‡˜“™t˜’Œ$WITH-COLLECTION-VALUE$™0˜’ŒFORM™˜“™‚‡˜“™t˜ŒIF™‚˜“™‚‡˜“™t˜ŒRPLACD™v˜“™‚…˜“™t˜ŒSETQ™v˜“™t˜“˜“™‚‡™‚ˆ˜“™‚‡˜“™t™‚‘™‚˜“™‚…˜“™t™‚‘™v˜“™t˜“˜“™‚‡™‚ˆ˜“™t˜“™‚ˆ‚©˜“™‚‚Œ˜“™‚™‚Ša˜“˜“˜Œ&REST™z˜Œ&BODY™yœ˜’Œexpand-WITH-COLLECTION-SITES™˜–@X¹HºIJh ™‚«™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™˜–&gg ¿ggo ˜Œ*DEFMACRO CONDITIONS::WITH-COLLECTION-SITES™˜“€ ™ ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES™™‚«™˜“˜Œ(&REST CONDITIONS::SITES)™‚¨˜ŒCONDITIONS::BODYœ˜’Œexpand-DEFAULT-PROCEED-REPORT™"˜–@X¹gIo™‚¹™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜ŒGET ˜“˜“™t˜•Œ%DEFAULT-PROCEED-REPORT˜“™t˜•ŒDEFAULT-PROCEED-REPORTER˜–&gg ¿ggo ˜ŒDEFMACRO DEFAULT-PROCEED-REPORT™˜“€ ™ ™‚³™‚´™#™‚¹™#˜“˜Œ PROCEED-TYPEœ˜’Œexpand-DEFAULT-RESTART-REPORT™˜–@X¹gIo™‚Ê™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚¾ ˜“˜“™t™‚¿˜–&gg ¿ggo ˜Œ+DEFMACRO CONDITIONS::DEFAULT-RESTART-REPORT™˜“€ ™ ™‚³™‚´™$™‚Ê™$˜“˜ŒCONDITIONS::RESTART-TYPEœ˜•Œexpand-WITH-GENSYMS˜–R@X¹HZ»J¼gI½h¾h_¿h_¿M¢N°,M_gKhh_¿N˜OO&_¿†Oh_¾M½°ÓL™‚× ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT(™s™w˜–&gg ¿ggo ˜ŒDEFMACRO IL:WITH-GENSYMS™˜“€ ™ ™‚³™‚´™&™‚×™&˜“˜ŒIL:VARS˜Œ IL:PREFIX™‚¨˜ŒIL:BODYœ˜•Œexpand-WITH-ERR-LOOP-VARS˜–@X¹HºgoIJ™‚䙘“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™&˜“˜•ŒVAL˜•Œ BLOCK-NAME˜•ŒAGAIN˜–&gg ¿ggo ˜ŒDEFMACRO IL:WITH-ERR-LOOP-VARS™˜“€ ™ ™‚³™‚´™'™‚ä™'˜“˜Œ IL:PREFIX™‚¨˜ŒIL:BODYœ™(˜–Fh¸h¹hº@b¿@‘h€i[‘KŠ@ ‘h€i‘°@@hºI”IJ&¹„JhY¸@b¿°ÍH@$™(™˜“˜“˜ŒARGS˜ŒKEYWORDPœ™)˜–S@¸@ ‘@@‘h€iY‘I…@ò$gAoBgBA@h€@hhgHoh ™)™˜“˜“˜ŒDATUM˜Œ BOUND-VAR˜Œ &OPTIONAL˜Œ TYPE-NAMEM˜•ŒCHECK-TYPE-FAIL˜ŒSTRINGP@˜•ŒDATUM+˜•ŒWITH˜ŒLAMBDA˜•ŒLISTPF˜“˜ŒOR˜ŒSTRING™‚‡#˜“˜Œ*STANDARD-OUTPUT*œ™*˜–<@¸@¹@Ãœ@@oI×@ohgHoh ™*™˜“˜“˜Œ SLOT-DESC6™‚ÿ)˜’Œ SLOT-DESC™˜•ŒLITATOM™‚/˜“™‚˜ŒCONS˜ŒSYMBOL!˜“€˜Œ READ-ONLY˜“™‚œ™+˜–@iðX‘H†@gðœo@A @™+™˜“˜“˜ŒSELECTOR˜ŒNAME™ ˜Œ OTHERWISE˜Œ~A not allowed in the ~A form.œ™,˜–P@¸h¹hºh»H¡IH\‘i€h—Ao€h—L ‰LA h»J”JK¿K¹K‘i€h–K ºH¸°»™,™˜“˜“˜ŒCLAUSES˜ŒNAMEE™r,™+#˜Œ COPY-LIST˜“™D™Eœ™-˜–g@ A B ™-™˜“˜“˜ŒSYMBOL˜ŒSUFFIX˜ŒPACKAGE˜ŒINTERN ˜Œ CONCATENATE˜Œ SYMBOL-NAME™‚œ˜•Œexpand-PROCEED-ARG-COLLECTOR˜–@X¹gIo™‚.™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚¾ ˜“˜“™t˜•Œ%PROCEED-ARG-COLLECTOR˜–;gg ¿ggo ¿ggo ˜Œ!DEFMACRO IL:PROCEED-ARG-COLLECTOR™˜“€5™ ˜•ŒSET-DOCUMENTATION ™‚³+™‚´&™.˜ŒFUNCTION™.™‚.™.0˜“˜ŒIL:NAME˜ŒgFunction that collects user-specified optional args (excluding the condition) for a named proceed case.œ™1—˜–‚ànX¿A¢±ÕW•„g¹gAdHý¿’h°DžCšCÉkð‚h€hºHÉ–A‘h‚i€h™@koH-gggggh»h¼A½h¾M‘M°&¾Ngð³N_¿K•LO&¼…Oh\»M½°ØK¼L—gLLhhhhIggogogIJ‘@ˆg@hhohhhogoHɲgIhkoH-ŒJ‘IˆgIhhA¼h»h¾h½L£K±‹L__¿O__¿O_¿Ogð’h°IgggOhhO²gOO’O„oohŠO’O„oh½N”NM¿M»M‘i€h–M ¾L¼±ÿuo h@ ˜•Œ*BYTECOMPILER-IS-EXPANDING*™1 ™˜“˜“˜ŒFORM˜ŒCLAUSES˜ŒENV˜ŒCTX˜Œ OPTIMIZE?‚јŒAPPEND‚À™r™s‚ƒ™‚‚q™t‚l˜’ŒCONDITION-CASE-SELECTOR™0‚g˜ŒTYPEP‚]˜ŒNO-ERROR‚*˜Œ VALUES-LIST‚™‚K‚˜ŒCOND‚à˜ŒMULTIPLE-VALUE-LIST‚Ö˜ŒSETF‚Ì™w‚˜ŒCATCH‚½™‚H‚¦™‚‚™‚Jj™te˜’ŒCREATE-CONDITION-CASE-LITERALS™0`˜•ŒLOADTIMECONSTANT[˜’ŒCONDITION-CASE-LITERALS™0V˜ŒLET*1˜’ŒCONTEXT˜‘˜ŒCOMPILER™‚J˜’ŒCONDITION-CASE-VALUES™0 ‚̘“˜“˜“˜’ŒCONDITION-CASE-ERROR™0™‚H˜“˜ŒCADR™‚R‚¦˜“€‚—˜“™‚H‚˜“€‚ ˜“˜ŒEQ™‚H˜ŒNORMAL‚˜“˜ŒDECLARE˜“˜•Œ LOCALVARS™‚H‚혓™‚b‚ј“˜“˜•Œ*CONDITION-HANDLER-BINDINGS*˜“™‚˜“˜ŒCDR™‚R™‚i‚ǘ“˜ŒCAR™‚R˜•Œ \PTRHUNK2™‚r‚˜–yHÉYºI»J²_J².@‘i€h˜@gð€hgJ@KgJ@KgJ@‘i€h˜@gð€h›g@h€@hKg@HɘŒCONSTRUCT-NO-ERROR-CODE˜ŒCLOSURE˜“˜“˜Œ VALUE-FORMk˜ŒPROGNW˜ŒFIRSTN™‚K>™w2˜ŒMULTIPLE-VALUE-BIND$˜’ŒDESTRUCTURING-BIND™"™‚K™‚rN™‚|œ™2˜–‚Sh¸h¹A Z»J¼K½M¢±1M^_¿N_¿Ogð²H›o@ ¿O¸±Ogð² H›o@ ¿ghOh¸±ØOgð²6H›o@ ¿ghgggOhhh¸±šOgð²I›o@ ¿O¹°|Ogð²_I›o@ ¿O_¿O “O°=O‘h€i_’O†OògoOh°hgOoh ¹°ooO@ ¿M½±þÐHIL$™2 ™˜“˜“˜ŒNAME˜ŒARG˜ŒPACKAGE ‚@˜ŒCERROR‚+™‚ÿ‚뙂‚Þ™‚Á™‚ƒ™[™=™ ˜•Œ\MVLIST™( ‚˜’ŒVALUE™0‚ ™‚‚™‚‚ΘŒREPORT‚±˜ŒREPORT-FUNCTION‚™™t‚”˜’Œ*CURRENT-CONDITION*™"‚™‚I‚‰™‚s˜Œ CONDITIONa™‚K˜ŒFILTER-˜ŒFILTER-FUNCTION ‚8˜Œ&Illegal keyword ~S in proceed case ~S.‚3˜ŒIgnore key/value pair‚$˜“™‚™‚™‚‡‚˜“™‚‚ؘŒ4Duplicate report form specified for proceed type ~S.‚»˜Œ4Duplicate report form specified for proceed type ~S.}˜Œ2Duplicate test form specified for proceed type ~S.U˜Œ/Duplicate filter specified for proceed type ~S.7˜Œ/Duplicate filter specified for proceed type ~S.œ™3—˜–‚Ûh¸h¹@ºh»j¼J]‘M‚±E[½K¾MKW __¿O__¿O_¿M®O«oK ¿B²pO‘h€i_“O°#Od3@ð²A‘h€i_’O‹AO ‘h€i€h²>O‘h€i_“O°0O _“O°"Od3@ð²A‘h€i_’OŠAh ‘h€i€h€h€h²$gMgLgOgO °YgggMhgLgOšgOh€hgO²O ’O‰gOh€hhH¸LNOI¹JºLkÔ¼±þ¸H kð›Hkoh-°hgH ²'H \Lið‘h†L3‘h€i€h™gLh€L°6gH ¼h»hºh½L¢K°Lkoh-½K”JM&º„MhZ»L¼°áI $˜Œ *PACKAGE*™3™˜“˜“˜ŒCLAUSES˜ŒENV˜Œ OPTIMIZE? ‚Ò˜ŒREVERSE‚£˜ŒNREVERSE‚y™‚œ‚q˜•Œ %EVERY-SINGLE‚W˜•ŒLENGTH‚!™‚‚☕ŒMAKE-PROCEED-CASE‚¶˜’Œ ENV-FBOUNDP™‚U‚•™‚y™‚ M™'™‚ƒ"™2‚™‚‡‚™t‚k˜•ŒPROCEED-CASE-P‚*™‚:‚™‚…‚ ™‚:‚˜ŒTEST‚ü˜ŒSELECTOR‚ó™t‚NAME‚陂Ÿ‚Ú™‚…‚Ó™‚¢‚Í™‚£‚Ç™‚¤G˜Œ3Unnamed proceed cases must have a report method: ~S™‚¦‚·˜–)@ò @@ið‘hˆ@3‘h‚i€h™g@h@@˜Œ MAYBE-QUOTE™‚t˜“˜“˜ŒX™t™=™‚¦‚b™‚«œ™4—˜–‚dW•„g¸DžCšCÉkð‚h€h¹ABD Z»J¼K¢±)gHggggKohhgggHI‘@ˆg@hhohhhgoI‘HˆgHhnoL ²EgoL½h¾h_¿h_¿M¢N°&Mkoh-_¿N˜OO&_¿†Oh_¾M½°Ù°WgoggL½h¾h_¿h_¿M¢N°&Mkoh-_¿N˜OO&_¿†Oh_¾M½°Ùhohh@ ™‚?™4 ™˜“˜“˜ŒFORM˜ŒCLAUSES˜ŒENV˜ŒCTX˜Œ OPTIMIZE?‚¹™‚+™‚ƒ&™3™s‚˜’ŒPROCEED-CASE-SELECTOR™0‚ ˜ŒCASE‚™‚‚À™‚´‚¤™‚K‚–™‚w™‚Mm™‚Nh˜•Œ*PROCEED-CASES*c™‚OQ™‚L™‚µG™wB˜’Œ PROCEED-CASE-SELECTOR-AND-VALUES™0<™‚S™‚V ˜’ŒPROCEED-CASE-NORMAL-VALUES™0‚R˜“˜“™‚o™‚¶˜“™‚j™‚¶‚˜“™‚³˜’ŒPROCEED-CASE-VALUES™0‚Ř“™‚o™‚¶‚±˜– @‘hi˜Œlambda in EXPAND-PROCEED-CASE™‚t˜“˜“˜ŒX‚›˜“™‚a™‚¶™‚b‚„˜“™‚bW˜“™‚µ‚­˜•ŒCOMPILED-CLOSURE™‚Ç‚+˜–-@¸@YºI»J²HggJgKhHK˜Œ CREATE-A-CASE™‚t˜“˜“˜ŒX™‚»™‚û™‚{™‚Ç‚Þ™‚Ìœ™5˜–‚ h¸h¹hºA ¢±‰A»Ab¿K»A¼Ab¿L¼Kgð–H³fL¸°bKgð²)H³VghgggLhhh¸°2Kgð–I³'L¹°#Kgð–J³Lº°ooK@ ¿±ÿrHIJA$™5™˜“˜“˜ŒNAME˜ŒCLAUSE‚™‚‚ ™‚÷u˜Œ INTERACTIVEf™‚…Q™tL™‚‡G™‚IA™‚6™‚ˆ'™‚‰‚ˆ˜Œ'Illegal keyword ~S in restart named ~S.‚ƒ˜ŒIgnore key/value pairœ™6˜–‚7h¸h¹hºi»H ¼I ½@¾h_¿h_¿j_¿N_’O‚±ê__¿O_¿O_¿O_¿O_¿O_‘iºOO __¿O__¿O_ _"¿O _$¿B¢±¥O‘h€i_&“O&°#Od3@ð²A‘h€i_(’O(AO ‘h‚i€h²rO‘h€i_&“O&°1O _(“O(°#Od3@ð²A‘h€i_*’O*AO ‘h‚i€h²2O"‘h€i_&“O&°*O"d3@ð²A‘h€i_(“O(°AO" ‘hˆi†h„h‚h€h²-gOgOgOgOgO" °sh»gggOhgOgOšgOh€hgO²O ’O‹gOh€hgO"šgO"h€hh_&¿H•LO&&¼…O&h\¸O²OgOgO$h„OO$_&¿I•MO&&½…O&h]¹N¾OkÔ_¿±þH²K™gHh‰gHHIJ$™6™˜“˜“˜ŒCLAUSES˜ŒENV˜Œ OPTIMIZE? ‚“™‚‚P˜’Œ MAKE-RESTART™‚™‚ ‚虂 ‚Æ™‚‚ª™‚ ^™‚ƒY™5™r ™r‚'™‚‡‚™t‚時»‚ß™‚{‚°™‚:‚¨˜ŒINTERACTIVE-FN‚œ™‚:‚ˆ™‚…‚|™‚:‚t™‚¢‚m™‚£‚c™t‚^™‚¤‚Y™‚Ú‚H™‚Û‚A™‚…‚:™‚¢‚3™‚£‚,™‚¤œ™7˜–‚íA¡@W•„g¸DžCšCÉkð‚h€h¹ABD Z»J\½L¾gHggggKohhgggHI‘@ˆg@hhohhhgoI‘HˆgHhN²$goggMhoŒgoMhh™‚?™7™˜“˜“˜ŒFORM˜ŒCLAUSES˜ŒENV˜ŒCTX˜Œ OPTIMIZE?/™‚ƒ*™6™s‚Ö™‚´‚Ù‚³‚¾™‚´‚´™‚‚¨™‚K‚š™‚{™‚Mq™‚Nl™‚µg™‚OU™‚P™‚µK™wF™‚¶@™‚S™‚V™‚·‚Û˜“™‚o™‚¶‚Ϙ“˜“™‚o™‚¶˜“™‚j™‚¶‚¹˜“™‚³™‚»‚Ÿ˜“™‚a™‚¶™‚b‚ˆ˜“™‚b[˜“™‚µœ˜’Œoptimize-CONDITION-CASE™"˜–@X¹HºIJABi ™‚환“˜“˜Œ$$WHOLE˜Œ$$ENV˜Œ$$CTX™1˜–2gggÁÉg'¸gH‘H†gH ˜ŒDEFOPTIMIZER CONDITION-CASE™˜“€,™%™‚홂혒ŒOPTIMIZER-LIST™‚U ™;™‚ö™;œ˜’Œoptimize-CATCH-ABORT™"˜–F@X¹HZ»BšBÉkð€h²(ggKghgIohg™‚ø™˜“˜“˜Œ$$WHOLE˜Œ$$ENV˜Œ$$CTX@˜’ŒPASS™‚U,™‚…&˜’ŒABORT™"™‚x™= ™‚V2˜“€˜–2gggÁÉg'¸gH‘H†gH ˜ŒDEFOPTIMIZER CATCH-ABORT™˜“€,™%™‚ø™‚ø™‚ö ™<™‚ö™<œ˜’Œoptimize-PROCEED-CASE™"˜–@X¹HºIJABi ™‚™˜“˜“˜Œ$$WHOLE˜Œ$$ENV˜Œ$$CTX™4˜–2gggÁÉg'¸gH‘H†gH ˜ŒDEFOPTIMIZER PROCEED-CASE™˜“€,™%™‚™‚™‚ö ™=™‚ö™=œ˜’Œoptimize-RESTART-CASE™˜–@X¹HºIJABi ™‚™˜“˜“˜Œ$$WHOLE˜Œ$$ENV˜Œ$$CTX™7˜–2gggÁÉg'¸gH‘H†gH ˜ŒDEFOPTIMIZER RESTART-CASE™˜“€,™%™‚™‚™‚ö ™>™‚ö™>˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜ŒDEFDEFINER DEFINE-CONDITION™˜“€A™™ :™@0™@)˜Œ DEFINED-BY ˜•Œ STRUCTURES™‚™‚ ™‚˜Œ DEFINER-FOR™@œ˜’Œ$definition-expander-DEFINE-CONDITION™"˜–‚0@X¹HZ[¼J]’M€h¾M__¿L—Li €h_¿h_¿h_¿h_¿h_¿h_¿h_¿h_ ¿h_"¿N_$¿h_&¿O$’O$°;_& _&¿O&O™O&O_¿°O ˜O"O&&_"¿ˆO&h_"_ ¿O$_$¿°ÁO _¿h_"¿h_ ¿O_&¿h_$¿O&’O&‚±Ø_$¿O$_(gð_*’O*‡O(gð²O"šO O$&_ ¿±¢O$h_ _"¿±–O(gðžO¢±‡O$_¿°}O(gð²,O²ooO$O$g ¿°RO$_¿°IO(gð²,O²ooO$O$g ¿°O$_¿°hoO(o ¿O&_&¿±ÿ%O"_¿ggIL²gLO h€hOogIoI ho OgoO²-gggIhogOhhh€hO‘i€h²HIoI _ ¿gggO hhgOhhh_"¿O _¿O"€hgggIhhO²O ’O‹gOh€hhO‘i€h²HIoI _ ¿gggO hhgOhhh_"¿O _¿O"€hgggIhhOšgOh€hhh  h™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚$™‚G‚™‚G‚¸™-‚³˜ŒSYMBOL-PACKAGE‚Š™‚‚3™-‚.™‚$‚Ú™‚G‚Õ˜•Œ\NCONC2‚Æ™-‚Á™‚$‚£™‚œ‚y˜•Œ ECASE-FAIL‚[™‚‚‚'™‚‚^™*!˜ŒSTRUCTURE-SLOT-NAMES ‚ ™‚:‚ý™t‚ø˜’ŒCONDITION-HANDLER™"‚ó™‚N‚×™‚:‚Ê™t‚ŘŒSYMBOL-FUNCTION‚À™‚N‚“™‚:‚x™t‚s˜’ŒCONDITION-REPORTER™"‚n™‚N‚R™‚:‚E™t‚@™‚)‚;™‚N‚ ™t‚ü™t‚÷˜Œ DOCUMENTATION‚ò™‚N‚䘌 EVAL-WHEN‚µ˜Œ CONSTRUCTOR‚›˜ŒINCLUDE‚’˜Œ DEFSTRUCT‚™‚x‚U™@‚:˜ŒHANDLE‚!™@‚™‚…‚ DOCUMENTATION‚ʘŒINLINE‚¼˜Œ CONC-NAME ‚­˜Œ default handler‚(˜Œ report method‚˜“˜“™t˜ŒTYPE‚阓˜ŒLOAD˜ŒEVAL‚Θ“˜“˜ŒCOPIER€˜“˜Œ PREDICATE€‚»˜Œ constructor‚°˜“˜ŒPRINT-FUNCTION˜•Œ%PRINT-CONDITION‚t˜“™‚3™‚2™‚1™‚…™‚0‚m˜“™‚y˜’ŒOPTION™‚K˜Œ#~S is a duplicate ~S option for ~S.‚F˜ŒIgnore the later ~*~S option‚™‚H‚™‚I˜–Cggg ¿ggg ¿oPgg c˜•ŒPRETTYPRINTMACROS™‚™˜“€;˜ŒADJOIN%™™6˜ŒEQUAL1™‚¢ ˜ŒSECOND˜ŒDEFINITION-NAME™@ ™‚˜ŒDEFINITION-EXPANDER™@+˜”™@’ŒPPRINT-DEFINER™"œ˜’Œexpand-DEFINE-CONDITION™"˜–ggg@Ah™‚T™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™@™‚˜’ŒDEFINER™"˜–&gg ¿ggo ™‚™˜“€ ™ ™‚³™‚´™@™‚T™@˜“˜Œ&WHOLE˜Œ DEFINITION˜Œ &ENVIRONMENT˜ŒENVœ˜Œexpand-CHECK-TYPE˜–‚½@X¹HZ»J\’L€h½o ¾o _¿o _¿gOgOgNIhhggNgKhhgOhhgIgigIhNgKhMhhgOhhhh™‚b ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT1™s$™s™s ‚¤˜ŒGO‚™t‚…™t™‚ÿy™‚Nk˜Œ RETURN-FROM^™tX™‚IS™|G™w@˜ŒTAGBODY9˜ŒBLOCK,˜Œ CHECK-TYPE™‚k™‚k˜–&gg ¿ggo ˜ŒDEFMACRO CHECK-TYPE™˜“€ ™ ™‚³™‚´™A™‚b™A˜“˜Œ CL::PLACE˜Œ CL::TYPESPEC™‚û˜ŒSTRINGœ˜Œexpand-ETYPECASE˜–o@X¹HZ»o ¼gKg ½gLIhhgLKighgIhLgMhohh h™‚t™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTc™‚G ™,™sK™tA™t;™‚ÿ3˜ŒTYPECASE'™w™B™‚T˜“€ ˜Œ ETYPECASE˜–&gg ¿ggo ˜ŒDEFMACRO ETYPECASE™˜“€ ™ ™‚³™‚´™B™‚t™B˜“˜Œ CL::KEYFORM™‚¨˜Œ CL::CLAUSESœ˜Œexpand-CTYPECASE˜–‚»@X¹HZ»gJg ¼o ½o ¾o _¿gNgOgMIhhgNgMKigIgigIhMgLhohgOhhh hhhh™‚ƒ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚£™‚G7™s,™s!™s™, ‚“™‚g|™tr™tl™‚ÿf™‚N^™‚yX™‚hL™wE™‚i?™‚j™C ™‚‚…˜“€2˜Œ CTYPECASE'™‚‰™‚‰˜–&gg ¿ggo ˜ŒDEFMACRO CTYPECASE™˜“€ ™ ™‚³™‚´™C™‚ƒ™C˜“˜Œ CL::KEYPLACE™‚¨˜Œ CL::CLAUSESœ˜Œ expand-ECASE˜–r@X¹HZ»o ¼Kg ]²FgLIhhgLKighgIhLgMhhhh ho ™‚‘™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTl™[™‚G™,™sG™t=™t7™‚&/™‚´#™w™Dg˜ŒEmpty case statement. ˜ŒECASE˜–&gg ¿ggo ˜ŒDEFMACRO ECASE™˜“€ ™ ™‚³™‚´™D™‚‘™D˜“˜Œ CL::KEYFORM™‚¦˜Œ CL::CLAUSESœ˜Œ expand-CCASE˜–‚½@X¹HZ»Jg \ªo ¿o ½o ¾o _¿gNgOgMIhhgNgMKigIgigIhMgLhhhgOhhh hhhh™‚Ÿ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚¥™‚G=™s2™s'™s™™, ‚•™‚g‚‚™tx™tr™‚&l™‚Nd™‚´^™‚hR™wK™‚iE™‚j ™E8˜ŒCCASE-™‚¤"™‚¤˜Œ Empty CCASE.˜–&gg ¿ggo ˜ŒDEFMACRO CCASE™˜“€ ™ ™‚³™‚´™E™‚Ÿ™E˜“˜Œ CL::KEYFORM™‚¨˜Œ CL::CLAUSESœ˜Œ expand-ASSERT˜–‚¦@X¹HZ’J€h»J\’L€h½L^_¿K‘h€i_’O…K‘i€h«oK ¿o ¿o _¿o _¿gOgOgIgOohgMOgOhhh™‚­ ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTY™sL™sA™s6™‚‘™‚g‚‡˜•Œ ASSERT-FAILu™‚ho™|h™‚ia™‚j|˜“€T˜ŒASSERTG™‚´<™‚´0˜Œ~S should be a list of places.˜–&gg ¿ggo ˜ŒDEFMACRO ASSERT™˜“€ ™ ™‚³™‚´™F™‚­™F˜“˜Œ CL::TEST-FORM™‚û˜Œ CL::PLACES˜Œ CL::DATUM™‚¦˜ŒCL::ARGSœ˜’Œexpand-HANDLER-BIND™"˜–‚¨@X¹HºI¢±•gggI²Uggh»h¼I½h¾M‘M°8¾gNh_¿K•LO&¼…Oh\»N_¿K•LO&¼…Oh\»M½°ÆK°ggI¼LhI¼LhohhJgJ™‚¿™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ‚ ™‚xy™tt™‚;™t&˜ŒMULTIPLE-HANDLER-BINDINGS!™‚‡™‚™‚i™w‚˜“™‚i˜–;gg ¿ggo ¿ggo ˜ŒDEFMACRO HANDLER-BIND™˜“€5™ ™‚9 ™‚³+™‚´&™G™‚:™G™‚¿™G0˜“˜ŒBINDINGS™‚¦˜ŒFORMS˜Œ2Eval forms under temporary new condition handlers.œ˜’Œexpand-CONDITION-BIND™"˜–@X¹HºgIJ™‚Ι˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™G˜–;gg ¿ggo ¿ggo ˜ŒDEFMACRO CONDITION-BIND™˜“€5™ ™‚9 ™‚³+™‚´&™H™‚:™H™‚ΙH0˜“˜ŒBINDINGS™‚¦˜ŒFORMS˜ŒKEval forms under temporary new condition handlers; synonym for HANDLER-BINDœ˜’Œexpand-CONDITION-CASE™"˜–@X¹HºIJhhh ™‚Û™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™1˜–;gg ¿ggo ¿ggo ˜ŒDEFMACRO CONDITION-CASE™˜“€5™ ™‚9 ™‚³+™‚´&™;™‚:™;™‚Û™;0˜“˜ŒFORM™‚¦˜ŒCLAUSES˜ŒHEval form under condition handlers that provide alternate continuations.œ˜’Œexpand-HANDLER-CASE™˜– @X¹HZ»IJhhh ¿gIK™‚虘“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™1™;˜–;gg ¿ggo ¿ggo ˜ŒDEFMACRO HANDLER-CASE™˜“€5™ ™‚9 ™‚³+™‚´&™I™‚:™I™‚è™I0˜“˜ŒCONDITIONS::FORM™‚¦˜ŒCONDITIONS::CLAUSES˜ŒHEval form under condition handlers that provide alternate continuations.œ˜’Œexpand-IGNORE-ERRORS™"˜–@¸ggHo™‚õ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™‚x™;˜“˜“™˜“˜’Œ CONDITION™"˜“˜ŒVALUES€™‚ú˜–;gg ¿ggo ¿ggo ˜ŒDEFMACRO IGNORE-ERRORS™˜“€5™ ™‚9 ™‚³+™‚´&™J™‚:™J™‚õ™J0˜“™‚¨˜ŒIL:FORMS˜Œ8Eval forms with handler for any condition of type ERROR.œ˜’Œexpand-PROCEED-CASE™"˜–@X¹HºIJAhh ™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™4˜–;gg ¿ggo ¿ggo ˜ŒDEFMACRO PROCEED-CASE™˜“€5™ ™‚9 ™‚³+™‚´&™=™‚:™=™‚™=0˜“˜ŒFORM™‚¦˜ŒCLAUSES™‚^˜ŒENV˜Œ8Eval forms, establishing a place to proceed from errors.œ˜’Œexpand-RESTART-CASE™˜–@X¹HºIJAhh ™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™7˜–&gg ¿ggo ˜ŒDEFMACRO RESTART-CASE™˜“€ ™ ™‚³™‚´™>™‚™>˜“˜ŒCONDITIONS::FORM™‚¦˜ŒCONDITIONS::CLAUSES™‚^˜ŒCONDITIONS::ENVœ˜’Œexpand-RESTART-BIND™˜–‚"@X¹HZ»I¢±I¼h½h¾h_¿L£M±ÑL__¿O__¿O__¿h_¿gO _“O€h_¿gO _“O€h_ ¿gO _“O€h_"¿Oo ¿gggOhgogOgOgO gO"h_¿M•NO&¾…Oh^½L¼±ÿ/¼gggL—gLLohhKgJ™‚"™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚ˆ˜•Œ KEYWORD-TESTq˜•Œ FIND-KEYWORDZ™‚(C™‚(‚™‚x‚™‚‡‚ø™‚‚󙂵‚î™w‚Á™‚¢‚º™‚…‚³™‚Û‚¬™‚¢™‚£‚˜™t‚“™‚¤‚Ž™‚Új™‚ŠS™‚†<˜ŒINTERACTIVE-FUNCTION‚ ˜“™‚µ‚§˜“™t˜’ŒCOMPLEX-RESTART-MARKER™0‚ƒ˜“™‚Š™‚†™‚)˜–&gg ¿ggo ˜ŒDEFMACRO RESTART-BIND™˜“€ ™ ™‚³™‚´™K™‚"™K˜“˜ŒCONDITIONS::BINDINGS™‚¨˜ŒCONDITIONS::BODYœ˜’Œexpand-WITH-SIMPLE-RESTART™˜–Q@XYºI[¼K½H¾ggNJhggoggLMhoh™‚5™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT5˜ŒSTREAM0˜ŒFORMAT&™‚!™‚…™‚x™>C˜“˜“™‚ü€+˜“™‚:˜–&gg ¿ggo ˜ŒDEFMACRO WITH-SIMPLE-RESTART™˜“€ ™ ™‚³™‚´™L™‚5™L˜“˜ŒF(RESTART-NAME CONDITIONS::FORMAT-STRING &REST CONDITIONS::FORMAT-ARGS)™‚¨˜ŒCONDITIONS::BODY˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜Œ"DEFDEFINER DEFINE-PROCEED-FUNCTION™˜“€A™™ :™M0™M)™‚ ™™‚™ ™™‚™Mœ˜’Œ+definition-expander-DEFINE-PROCEED-FUNCTION™"˜–‚Ï@X¹HºIJI [¼K]¾M_¿O_¿h_¿h_¿h_¿O£O°2O_d3@ð’O‚O_¿O˜OO&_¿ˆOh__¿O_¿°Ë_¿N¥g¾gL‘i€h²EIoI _¿gggOhhgLhhh_¿O¼O€hgggIhhL™gLh€hhN‘i€h²EIoI _¿gggOhhgNhhh_¿O¾O€hgggIhhN ‘NˆgNhhgIgOggggIhhhhggggOhhhh  ™‚I ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ‚È™‚G‚™‚G‚W™‚‚™-‚™‚$‚•™-‚™‚$™‚ƒ™2 ™‚$‚©˜’ŒRESTART™‚¤˜’ŒINVOKE-RESTART™‚Ÿ™‚N‚š™|‚‰™t‚„˜’Œ FIND-RESTART™‚™‚N‚z™w‚r™‚û‚l˜ŒDEFUN‚_™‚:‚J™t‚E™#‚@™‚N‚'™‚:‚™t‚™‚)‚™‚N‚噂:‚×™t‚Ò˜’ŒDEFAULT-PROCEED-TEST™"‚Í™‚N‚´™‚:‚§™t‚¢™‚)‚™‚N|™‚xv™‚Á‚ý˜Œ# proceed case default report method‚Š˜Œ proceed case default test˜–Cggg ¿ggg ¿oPgg c™‚K™‚F™˜“€;™‚M%™™6™‚N1™‚¢ ™‚O™‚P™M ™‚I™‚Q™M+˜”™M’ŒPPRINT-DEFINER™"œ˜’Œexpand-DEFINE-PROCEED-FUNCTION™"˜–ggg@Ah™‚Y™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™M™™‚Y˜–&gg ¿ggo ™‚F™˜“€ ™ ™‚³™‚´™M™‚Y™M˜“™‚\˜Œ DEFINITION™‚^˜ŒENVœ˜’Œexpand-CATCH-ABORT™"˜–3@X¹HºggJgogIoh™‚d™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚…™‚ÿ™‚x ™=%˜“˜“™‚ü€™‚ú˜“™‚ú˜–&gg ¿ggo ˜ŒDEFMACRO CATCH-ABORT™˜“€ ™ ™‚³™‚´™<™‚d™<˜“˜Œ PRINT-FORM™‚¨˜ŒFORMSœ™R˜–]@X¹HºgIJ»h¼h½h¾K¢L°@K_¿O_‘h€i_’O†O‘i€hgOOO¾L”MN&½„Nh]¼K»°¿™R ™˜“˜“˜ŒWHOLE8™‚ ™Iœ™S—˜–‚cnX¿@ YºI[Hý¿K\½L^_¿Jgð®W4o ¿@Okoh- __¿O_¿h_¿h_¿O_¿h_¿O’O‚±Ü__¿O_ ¿Ogð_"’O"‡Ogð²!O_"¿OšOO&_¿±šOh__¿±ŽOgð²)gO h_"¿OšOO"&_¿±iO"h__¿±]Ogð¢±&nH_$¿O _"¿O œgO h±åO ‘h€i_&’O&†O ⱺgoW2 O$ý¿Mi O_&¿h_(¿h_*¿h_,¿O&£O(°3O&_.‘i€h“O.O._,¿O(˜O*O,&_*¿ˆO,h_*_(¿O&_&¿°Ê O$ý¿gO$ÉoO gnoO$gigO$Éh hh°hgO"oh _"¿OšOO"&_¿±:O"h__¿±.Ogð²)gO h_"¿OšOO"&_¿± O"h__¿±ýOgð¢±ÙgnH_0¿oW2 O0ý¿Mi O_"¿h_&¿h_(¿h_*¿O"£O&°3O"_,‘i€h“O,O,_*¿O&˜O(O*&_(¿ˆO*h_(_&¿O"_"¿°Ê O0ý¿gO0ÉhO gnoO0gigO0Éh hh_"¿O™OO"&_¿°%O"h__¿°igOo _¿±ýAO_¿±ý!O_¿gHÉMhOO™‚•˜Œ*ERROR-OUTPUT*™S™˜“˜“˜ŒFORM‚6™‚&‚˜’Œ WALK-FORM™"‚Ä™‚G‚v™‚'‚i™‚*‚ô™‚ÿ‚×™‚{‚•™‚G‚G™‚'‚:™‚*‚™‚E™‚ƒ3˜ŒPRINT˜’ŒREMOVE-COMMENTS™"‚O™@‚*˜’ŒKEY™‚ö˜ŒLEXICAL-VARIABLES‚ð˜ŒCOPY‚ܘŒ WALK-FUNCTION‚Ï™‚‚S™‚0‚I™‚0‚ ™‚0‚˜ŒHANDLER-FUNCTION‚昒ŒVALUE™‚Ë™‚‚Å™‚€‚±™‚‚ ™‚‚.™‚…‚%™‚‚ ™‚…‚陂…‚À™‚…‚¸™‚†‚™‚3‚™‚2%™@‚1˜“™‚2™‚3™‚†™‚…™‚‚™‚0‚嘖=@d3@ð•@HÉ€h²-HÉÉgo@ Q HÉhi$@™‚•˜Œ&lambda in CONVERT-OLD-DEFINE-CONDITION™‚t˜“˜“˜ŒFORM˜ŒCONTEXT+™-%™‚+ ™‚,™‚˜Œ-‚b˜Œ CONDITION‚혓™‚™‚™‚‡‚º˜–=@d3@ð•@HÉ€h²-HÉÉgo@ Q HÉhi$@™‚•˜Œ&lambda in CONVERT-OLD-DEFINE-CONDITION™‚t˜“˜“˜ŒFORM˜ŒCONTEXT+™-%™‚+ ™‚,™‚˜Œ-‚©˜“™‚‚3˜Œ CONDITION.˜ŒNot a define-condition form‚ᙂÆ‚X˜•Œ \PTRHUNK4‚¶™‚Ƃ󙂘™‚q™‚™>˜–Fh¸h¹hº@b¿@‘h€i[‘KŠ@ ‘h€i‘°@@hºI”IJ&¹„JhY¸@b¿°ÍH@$˜ŒSTRIP-KEYWORDS™‚t˜“˜“˜ŒARGS™‚÷˜–"o ¿o ¿o ˜Œ3 top-level forms™˜“€˜•ŒPUTPROPS™‚¡™‚¡˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚‚ÂÄ‚Æ‚Ç ˜“™™W˜“™ ˜ŒXCL™ ˜ŒXCL˜“™™V˜Œ COMPILE-FILEš‚­ÿÿ