‘XCL Compiler output for source file {ERIS}INTERNAL>LIBRARY>XCLC-DEBUG.;2 Source file created Wednesday, 21 September 1988, 12:34:55. FASL file created Wednesday, 21 September 1988, 12:35:54. ے‌ک–oggo ک•ŒFILECREATEDLOCکڈŒ*STANDARD-INPUT*کŒ1 top-level formکگŒFUNCTIONک“€ک•ŒDEFINE-FILE-INFOکڈŒOPENکگŒOUTPUTکگŒ DIRECTIONک“کگŒ READTABLEکŒXCLکگŒPACKAGEکŒCOMPILERکŒ{Null}‌ک–ggo؟oکŒ2 top-level forms™ک“€ک•ŒPUTPROPک•ŒXCLC-DEBUGCOMSک•Œ FILEDATESک•Œ XCLC-DEBUGک“ک“ک•Œ*ک•Œ;;;کŒ&Debugging support for the XCL Compilerک“™ک•Œ;;کŒPrinting nodesک“ک•ŒDEFINE-TYPESک’ŒPRINTERSک‘کŒCOMPILERک“ک•Œ FUNCTIONSک’Œ DEFPRINTER™ک’ŒSET-PF™ک“ک•ŒCOMMANDSکŒsetpfک“™ک•Œ;کŒmv-prog1-node progv-node ک“™ ک’Œ BLOCK-NODE™ک’Œ CALL-NODE™ک’Œ CATCH-NODE™ک’ŒIF-NODE™ک’ŒGO-NODE™ک’ŒLABELS-NODE™ک’ŒLAMBDA-NODE™ک’ŒLITERAL-NODE™ک’ŒMV-CALL-NODE™ک’Œ MV-PROG1-NODE™ک’ŒOPCODES-NODE™ک’Œ PROGN-NODE™ک’ŒRETURN-NODE™ک’Œ SETQ-NODE™ک’ŒTAGBODY-NODE™ک’Œ THROW-NODE™ک’ŒUNWIND-PROTECT-NODE™ک’ŒVAR-REF-NODE™ک’ŒVARIABLE-STRUCT™ک“™ ک’ŒDVARک‘کŒD-ASSEMک’ŒDTAG™Aک’ŒDJUMP™Aک’ŒDLAMBDA™Aک’ŒDCODE™Aک“™™کŒMutator functions for SEditک“™"ک’ŒOAM™ک’ŒEOC™ک“™™کŒUseful Exec commandsک“™&کŒic2ک“™™کŒ#Arrange to use the proper compiler.ک“ک•ŒPROPک“ک•ŒFILETYPEک•ŒMAKEFILE-ENVIRONMENT™ک“ک”کŒ21-Sep-88 12:35:01•Œ.{ERIS}INTERNAL>LIBRARY>XCLC-DEBUG.;2‌ک–‚أggo؟oRggc؟oSggc؟o ؟g گ„h؟g` ‘° g`gggl2gl2 ؟Q¸gQ‘H„gHc؟ggg؟ggg؟ggg؟ggg؟gggک•ŒFILEPKGTYPESک•ŒPRETTYDEFMACROSک•Œ PRETTYTYPELSTکŒdef-define-type printers™ک“€ ‚؟™‚²™‚¥™‚ک™‚‹™lکڈŒPUTHASHiکڈŒMAKE-HASH-TABLELک•ŒGETHASH<کڈŒBOUNDP5کڈŒPROCLAIM+کڈŒADJOIN™gک•ŒSET-DOCUMENTATION!‚¼ک•ŒNILL‚¹ک•ŒFILEPKGCONTENTS‚¶™ ‚¯ک’Œ%DEFINE-TYPE-FILEGETDEFک‘کŒXEROX-COMMON-LISP‚¬ک•Œ FILEGETDEF‚©™ ‚¢ک’Œ%DEFINE-TYPE-PUTDEF™l‚ںک•ŒPUTDEF‚œ™ ‚•ک’Œ%DEFINE-TYPE-DELDEF™l‚’ک•ŒDELDEF‚ڈ™ ‚ˆک’Œ%DEFINE-TYPE-GETDEF™l‚…ک•ŒGETDEF‚‚™ z™ r™ cکگŒREHASH-SIZE^کگŒSIZE[کڈŒEQUALXکگŒTESTUک’Œ*DEFINITION-HASH-TABLE*™lR™ I™yF™ Bک’ŒCHANGEDPRINTERSLST™9™z(™w%™x™w™x™™ 1ک“ک’ŒGLOBAL™l™z ک“™z™ کŒ$XCL Compiler node printing functionsک“™ ک’ŒX™lک“ک•ŒP™ک“ک’Œ%DEFINE-TYPE-FILE-DEFINITIONS™lک“کڈŒQUOTE™ ک“™‚‚™™}‌ک–1ggg؟gggءةg'¸gH‘H„gHکŒdefdefiner defprinter™ک“€-™ ™ (™# ™#کگŒ DEFINED-BY™ ™‚‹™ ™ کگŒDEFINER-FOR™#œک’Œdefinition-expander-DEFPRINTER™ک–‚ٹ@¸H¹H؛J»JAh ¼goI I ½ggMKo oLgogoLgoKhhhggIhgMhhh™‚ژ™ک“ک“کŒ$$MACRO-FORMکŒ$$MACRO-ENVIRONMENT:کڈŒAPPEND*کڈŒINTERN'کڈŒSYMBOL-PACKAGE#کڈŒCONCATENATE کڈŒSTRINGک•Œ\MVLISTک’Œ PARSE-BODY™l z™‚‚s™‚‚p™$VکڈŒPRINCKکڈŒLETDکڈŒIF1کڈŒDEFUN.کڈŒPROGN™‚—YکŒ#Nک“ک“کڈŒ *PRINT-LEVEL*ک“کڈŒAND™‚ ک“کڈŒ1-™‚ Gک“کڈŒORک“کڈŒNULL™‚ ک“کڈŒ>=™‚ =ک“کڈŒDECLAREک“کڈŒIGNOREک’Œ$$DEPTH™6ک“™‚¯کŒ\print-‌ک–ggg؟ggg™‚‰™ک“€™ ™کڈŒSECONDکگŒDEFINITION-NAME™#™‚ژکگŒDEFINITION-EXPANDER™#œک’Œprototype-fn-DEFPRINTER™ک–@lًڑg@oh™‚؛™ک“ک“کŒNAME™#ک“ک“کŒObjectکڈŒSTREAMکŒBody‌ک–-ggg؟ggo؟oPggcک•ŒPRETTYPRINTMACROS™‚‰™ک“€'™g™ ک’ŒADD-PROTOTYPE-FN™l$™w!™xکگŒDEFINITION-PRINT-TEMPLATE™#™‚؛™#™ ک”™#’ŒPPRINT-DEFINER™lک“کگŒNAME€کگŒBODYœک’Œexpand-DEFPRINTER™ک–ggg@Ah™‚ح™ک“ک“کŒ$$MACRO-FORMکŒ$$MACRO-ENVIRONMENT™#™ ک’ŒDEFINER™l‌ک–gg ™‚‰™ک“€ک•ŒSETF-MACRO-FUNCTION™‚ح™#œ™$ک– @Q ¸H‘H‡o@ ¸H—l HAhکڈŒ*PARSED-DEFSTRUCTS*™$™ک“ک“کŒTYPEکŒFNکڈŒ%SET-NTHکڈŒERROR™dکŒ~s is not a defined structureœک•Œ exec-setpfک–:@¸H¹H؛IU »K‘K‡oI »K²K¼l KJ؟Lh™‚×™‚à™ک“ک“کŒ$$MACRO-FORMکŒ$$MACRO-ENV2™‚ـ™‚ف ™d™‚ق‌ک–ogh؟oo`کŒdefcommand "setpf"™ک“€ک•ŒPUTHASH ™hک•Œ*EXEC-COMMAND-TABLE*™&ک“ک“کڈŒTYPEک’ŒFN™™‚àکگŒEVAL کŒsetpf™‚ïœک’Œ\print-BLOCK-NODE™ک–9R‘h€i¸H‘H‡Rj‎َ‘h€i²R“Rkص€hAo@ @ oA ™‚ ™‚ ™‚ٌ™ک“ک“کŒNODEکŒSTREAMکŒ$$DEPTH5™‚ڑ,کڈŒFORMAT)ک’Œ BLOCK-STMT™%ک’Œ BLOCK-NAME™0™‚ں کŒ#‌ک–gg کŒdefprinter block-node™ک“€™$™‚ٌ™,œک’Œ\print-CALL-NODE™ک–9R‘h€i¸H‘H‡Rj‎َ‘h€i²R“Rkص€hAo@ @ oA ™‚ ™‚ ™‚ے™ک“ک“کŒCALLکŒSTREAMکŒ$$DEPTH5™‚ڑ,™‚÷)ک’Œ CALL-ARGS™%ک’ŒCALL-FN™0™‚ں کŒ#‌ک–gg کŒdefprinter call-node™ک“€™$™‚ے™-œک’Œ\print-CATCH-NODE™ک–9R‘h€i¸H‘H‡Rj‎َ‘h€i²R“Rkص€hAo@ @ oA ™‚ ™‚ ™‚™ک“ک“کŒNODEکŒSTREAMکŒ$$DEPTH5™‚ڑ,™‚÷)ک’Œ CATCH-STMT™%ک’Œ CATCH-TAG™0™‚ں کŒ#‌ک–gg کŒdefprinter catch-node™ک“€™$™‚™.œک’Œ\print-IF-NODE™ک–>R‘h€i¸H‘H‡Rj‎َ‘h€i²"R“Rkص€hAo@ @ @ oA ™‚ ™‚ ™‚™ک“ک“کŒNODEکŒSTREAMکŒ$$DEPTH:™‚ڑ1™‚÷-ک’ŒIF-ELSE™)ک’ŒIF-THEN™%ک’ŒIF-PRED™5™‚ں کŒ#‌ک–gg کŒdefprinter if-node™ک“€™$™‚™/œک’Œ\print-GO-NODE™ک–5R‘h€i¸H‘H‡Rj‎َ‘h€i²R“Rkص€hAo@ oA ™‚ ™‚ ™‚'™ک“ک“کŒNODEکŒSTREAMکŒ$$DEPTH1™‚ڑ(™‚÷%ک’ŒGO-TAG™,™‚ں کŒ#‌ک–gg کŒdefprinter go-node™ک“€™$™‚'™0œک’Œ\print-LABELS-NODE™ک–kV‘h€i¸H‘H‡Vj‎َ‘h€i²OV“Vkص€hAo@ ¸h؛h»h¼Hگ‚J°'H½MMh¼K”KL؟پL؛L‘i€h”L »H¸°×@ oA ™‚ ™‚ ™‚3™ک“ک“کŒLABکŒSTREAMکŒ$$DEPTHg™‚ڑ^™‚÷[ک’ŒLABELS-BODY™QکڈŒLAST%ک’ŒLABELS-FUNS™b™‚ں کŒ#‌ک–gg کŒdefprinter labels-node™ک“€™$™‚3™1œک’Œ\print-LAMBDA-NODE™ک–‚2V‘h€i¸H‘H‡Vj‎َ‘h€i¢±V“Vkص€hAo@ @ ²Mg@ ¸h؛h»h¼Hگ‚J°7H½M ²M ‘h‡M‘h€i€h’M€M¼J”KL&»„Lh[؛H¸°ا€h@ ڑg@ h€h@ ²g@ ¸h؛h»h¼Hگ‚J°iH½MMة ²!M ²M ‘hˆM‘h€i€h€h”M°MMة ’M‹MMhM¼J”KL&»„Lh[؛H¸°•€h@ •gh€h @ oA ™‚ ™‚ ™‚A™ک“ک“کŒLAMکŒSTREAMکŒ$$DEPTH‚.™‚ڑ‚%™‚÷‚"ک’ŒLAMBDA-BODY™‚™‚“‚ک’ŒLAMBDA-ALLOW-OTHER-KEYS™‚éکڈŒSIMPLE-STRING=‚ئک’Œ LITERAL-VALUE™‚½ک’Œ LITERAL-P™‚´™‚I‚—ک’ŒLAMBDA-KEYWORD™‚ژ™‚L‚…ک’ŒLAMBDA-REST™}™‚MR™‚JJ™‚K4ک’ŒLAMBDA-OPTIONAL™+™‚N'ک’ŒLAMBDA-REQUIRED™‚کڈŒ&ALLOW-OTHER-KEYS‚ن™>‚¯™>‚“کڈŒ&KEY‚پکڈŒ&REST0کڈŒ &OPTIONAL‚)™‚ں"کŒ#‌ک–gg کŒdefprinter lambda-node™ک“€™$™‚A™2œک’Œ\print-LITERAL-NODE™ک–5R‘h€i¸H‘H‡Rj‎َ‘h€i²R“Rkص€hAo@ oA ™‚ ™‚ ™‚Y™ک“ک“کŒLITکŒSTREAMکŒ$$DEPTH1™‚ڑ(™‚÷%™‚J,™‚ں کŒ #‌ک–gg کŒdefprinter literal-node™ک“€™$™‚Y™3œک’Œ\print-MV-CALL-NODE™ک–9R‘h€i¸H‘H‡Rj‎َ‘h€i²R“Rkص€hAo@ @ oA ™‚ ™‚ ™‚d™ک“ک“کŒOBJکŒSTREAMکŒ$$DEPTH5™‚ڑ,™‚÷)ک’ŒMV-CALL-ARG-EXPRS™%ک’Œ MV-CALL-FN™0™‚ں کŒ#‌ک–gg کŒdefprinter mv-call-node™ک“€™$™‚d™4œک’Œ\print-MV-PROG1-NODE™ک–5R‘h€i¸H‘H‡Rj‎َ‘h€i²R“Rkص€hAo@ oA ™‚ ™‚ ™‚q™ک“ک“کŒNODEکŒSTREAMکŒ$$DEPTH1™‚ڑ(™‚÷%ک’ŒMV-PROG1-STMTS™,™‚ں کŒ#‌ک–gg کŒdefprinter mv-prog1-node™ک“€™$™‚q™5œک’Œ\print-OPCODES-NODE™ک–?T‘h€i¸H‘H‡Tj‎َ‘h€i²#T“Tkص€hogAo@ oA کڈŒ*PRINT-CASE*کڈŒ *PACKAGE*™‚ ™‚ ™‚}™ک“ک“کŒNODEکŒSTREAMکŒ$$DEPTH;™‚ڑ2™‚÷/ک’Œ OPCODES-BYTES™#کگŒDOWNCASE6™‚ں*کŒ#ک›ک“کڈŒFIND-PACKAGEکŒIL‌ک–gg کŒdefprinter opcodes-node™ک“€™$™‚}™6œک’Œ\print-PROGN-NODE™ک–5R‘h€i¸H‘H‡Rj‎َ‘h€i²R“Rkص€hAo@ oA ™‚ ™‚ ™‚گ™ک“ک“کŒNODEکŒSTREAMکŒ$$DEPTH1™‚ڑ(™‚÷%ک’ŒPROGN-STMTS™,™‚ں کŒ#‌ک–gg کŒdefprinter progn-node™ک“€™$™‚گ™7œک’Œ\print-RETURN-NODE™ک–9R‘h€i¸H‘H‡Rj‎َ‘h€i²R“Rkص€hAo@ @ oA ™‚ ™‚ ™‚œ™ک“ک“کŒNODEکŒSTREAMکŒ$$DEPTH5™‚ڑ,™‚÷)ک’ŒRETURN-VALUE™%ک’ŒRETURN-BLOCK™0™‚ں کŒ#‌ک–gg کŒdefprinter return-node™ک“€™$™‚œ™8œک’Œ\print-SETQ-NODE™ک–>R‘h€i¸H‘H‡Rj‎َ‘h€i²"R“Rkص€hAo@ ة@ oA ™‚ ™‚ ™‚©™ک“ک“کŒNODEکŒSTREAMکŒ$$DEPTH:™‚ڑ1™‚÷.ک’Œ SETQ-VALUE™%ک’ŒSETQ-VAR™(™>5™‚ں کŒ #‌ک–gg کŒdefprinter setq-node™ک“€™$™‚©™9œک’Œ\print-TAGBODY-NODE™ک–cS‘h€i¸H‘H‡Sj‎َ‘h€i²GS“Skص€hoA ؟@ ¸h؛H‘Hپ°؛AoJةJة؟H¸°àoA oA ™‚ ™‚ ™‚¶™ک“ک“کŒNODEکŒSTREAMکŒ$$DEPTH_™‚ڑV™‚ڑH™‚÷)ک’ŒTAGBODY-SEGMENTS™$™‚ڑCک’ŒSEGMENT™=™‚½Z™‚ںQکŒ>8کŒ~{ ~S~}~{ ~S~}کŒ #‌ک–gg کŒdefprinter throw-node™ک“€™$™‚إ™;œک’Œ\print-UNWIND-PROTECT-NODE™ک–9R‘h€i¸H‘H‡Rj‎َ‘h€i²R“Rkص€hAo@ @ oA ™‚ ™‚ ™‚ز™ک“ک“کŒUPکŒSTREAMکŒ$$DEPTH5™‚ڑ,™‚÷)ک’ŒUNWIND-PROTECT-CLEANUP™%ک’ŒUNWIND-PROTECT-STMT™0™‚ں کŒ#‌ک–gg کŒdefprinter unwind-protect-node™ک“€™$™‚ز™<œک’Œ\print-VAR-REF-NODE™ک–5R‘h€i¸H‘H‡Rj‎َ‘h€i²R“Rkص€hAo@ oA ™‚ ™‚ ™‚ك™ک“ک“کŒREFکŒSTREAMکŒ$$DEPTH1™‚ڑ(™‚÷%ک’ŒVAR-REF-VARIABLE™,™‚ں کŒ #‌ک–gg کŒdefprinter var-ref-node™ک“€™$™‚ك™=œک’Œ\print-VARIABLE-STRUCT™ک–UR‘h€i¸H‘H‡Rj‎َ‘h€i²9R“Rkص€hAo@ة¸Hgً”o‹Hgً”o€h@ةoA ™‚ ™‚ ™‚ë™ک“ک“کŒVARکŒSTREAMکŒ$$DEPTHQ™‚ڑH™‚÷C™>7کگŒVARIABLE,™%™>L™‚ں<کŒVar1کŒFn کŒ #<~A: ~S>‌ک–gg کŒdefprinter variable-struct™ک“€™$™‚ë™>œک’Œ\print-DVAR™Aک–7R‘h€i¸H‘H‡Rj‎َ‘h€i²R“Rkص€hAo@ةoA ™‚ ™‚ ™‚ù™ک“ک“کŒVARکŒSTREAMکŒ$$DEPTH3™‚ڑ*™‚÷%™B.™‚ں کŒ #‌ک–gg کŒdefprinter d-assem::dvar™ک“€™$™‚ù™Bœک’Œ\print-DTAG™Aک–5R‘h€i¸H‘H‡Rj‎َ‘h€i²R“Rkص€hAo@ز@سoA ™‚ ™‚ ™‚™ک“ک“کŒTAGکŒSTREAMکŒ$$DEPTH1™‚ڑ(™‚÷,™‚ں کŒ#‌ک–gg کŒdefprinter d-assem::dtag™ک“€™$™‚™Cœک’Œ\print-DJUMP™Aک–5R‘h€i¸H‘H‡Rj‎َ‘h€i²R“Rkص€hAo@ز@سoA ™‚ ™‚ ™‚™ک“ک“کŒJUMPکŒSTREAMکŒ$$DEPTH1™‚ڑ(™‚÷,™‚ں کŒ#‌ک–gg کŒdefprinter d-assem::djump™ک“€™$™‚™Dœک’Œ\print-DLAMBDA™Aک–7R‘h€i¸H‘H‡Rj‎َ‘h€i²R“Rkص€hAo@ةoA ™‚ ™‚ ™‚™ک“ک“کŒDLAMBDAکŒSTREAMکŒ$$DEPTH3™‚ڑ*™‚÷%™E.™‚ں کŒ #‌ک–gg کŒdefprinter d-assem::dlambda™ک“€™$™‚™Eœک’Œ\print-DCODE™Aک–7R‘h€i¸H‘H‡Rj‎َ‘h€i²R“Rkص€hAo@ةoA ™‚ ™‚ ™‚%™ک“ک“کŒDCODEکŒSTREAMکŒ$$DEPTH3™‚ڑ*™‚÷%™F.™‚ں کŒ#‌ک–gg کŒdefprinter d-assem:dcode™ک“€™$™‚%™Fœ™Jک–@oo ™J™ک“ک“کŒFORM کڈŒ COPY-TREE ک’ŒOPTIMIZE-AND-MACROEXPAND-1™ک›ک“ک’ŒMAKE-CONTEXT™ک›ک“ک’ŒMAKE-ENV™œ™Kک–*oo@¸@¹Hgًگ‰o ؟°ًHI ک’Œ *CONTEXT*™ک’Œ *ENVIRONMENT*™™K™ک“ک“کŒFORM&ک’ŒEXPAND-OPENLAMBDA-CALL™ک•ŒASSERT-FAILک•Œ OPENLAMBDAکŒEOC called on a non-OPENLAMBDAک›ک“™‚5ک›ک“™‚8œک•Œexec-ic2—ک–(@¸Hkoh-Hkoh-ر¹I ”I I ™‚J™ک“ک“کŒ$$MACRO-FORMکŒ$$MACRO-ENV$کڈŒINSPECTک•ŒINSPECTCODEکڈŒCOMPILED-FUNCTION-P™‚Rک–ho@ کŒOCTALکگŒCLOSUREک“ک“کŒN کڈŒREAD-FROM-STRING™‚÷کŒ#o~D™‚R™‚Z‌ک–ogh؟oo`کŒdefcommand "ic2"™ک“€™‚è ™h™‚é™&ک“ک“ک’ŒHIک‘کŒXCL-USERک’ŒLO™‚^™‚J™‚ي کŒic2™‚c‌ک–o ؟o ؟o کŒ3 top-level forms™ک“€ک•ŒPUTPROPS ™‚g™‚gک“™ک•Œ COPYRIGHTک“کŒXerox Corporation‚أ‚ؤ ک“™™Uک“™ کŒXCL™کŒCOMPILERک“™™TکگŒCOMPILE-FILEڑ‚sےے