‘XCL Compiler output for source file {DSK}local>lde>lispcore>sources>CMLWALK.;2 Source file created 16-May-90 14:56:15 FASL file created Sunday, 20 September 2020, 20:47:14 ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜ŒPACKAGE˜Œ INTERLISP˜Œ READTABLE˜Œ INTERLISP˜ŒBASE ˜Œ{Null}˜–!ggo ¿o˜Œ2 top-level forms™˜“€˜•ŒPUTPROP˜•Œ CMLWALKCOMS˜•Œ FILEDATES˜•ŒCMLWALK˜“ ˜“˜•Œ FUNCTIONS˜’Œ ONCE-ONLY˜‘˜ŒXEROX-COMMON-LISP˜“˜•Œ*˜•Œ;˜ŒJnot a wonderful place for it, but CMLMACROS comes too eraly in the loadup.˜“˜•Œ VARIABLES˜•Œ*WALK-FUNCTION*˜•Œ *WALK-FORM*˜•Œ*DECLARATIONS*˜•Œ*LEXICAL-VARIABLES*˜•Œ *ENVIRONMENT*˜•Œ *WALK-COPY*˜“™˜•ŒWITH-NEW-CONTOUR˜•ŒNOTE-LEXICAL-BINDING˜•ŒNOTE-DECLARATION˜“™˜•ŒVARIABLE-SPECIAL-P˜•ŒVARIABLE-LEXICAL-P˜•ŒGET-WALKER-TEMPLATE˜“™˜’Œ WALK-FORM™˜“˜•ŒFNS˜’ŒWALK-FORM-INTERNAL™˜’Œ WALK-TEMPLATE™˜•ŒWALK-TEMPLATE-HANDLE-REPEAT˜•ŒWALK-TEMPLATE-HANDLE-REPEAT-1˜•Œ WALK-LIST˜•Œ WALK-RECONS˜“™˜•Œ WALK-RELIST*˜“™2˜•ŒWALK-DECLARATIONS˜•Œ WALK-ARGLIST˜•Œ WALK-LAMBDA˜“ ˜•ŒCOMS˜“˜•ŒPROP˜•ŒWALKER-TEMPLATE˜Œ COMPILER-LET˜“™2˜•ŒWALK-COMPILER-LET˜“™A™B˜ŒDECLARE˜“™2˜•ŒWALK-UNEXPECTED-DECLARE˜“™A™B˜ŒLET˜ŒPROG˜ŒLET*˜ŒPROG*˜“™2˜•ŒWALK-LET˜•Œ WALK-LET*˜•Œ WALK-LET/LET*˜“™A™B˜ŒTAGBODY˜“™2˜•Œ WALK-TAGBODY˜“™A™B˜•ŒFUNCTION˜ŒFUNCTION˜ŒGO˜ŒIF˜ŒMULTIPLE-VALUE-CALL˜ŒMULTIPLE-VALUE-PROG1˜ŒPROGN˜ŒPROGV˜ŒQUOTE˜Œ RETURN-FROM˜ŒRETURN˜ŒSETQ˜ŒBLOCK˜ŒCATCH˜Œ EVAL-WHEN˜ŒTHE˜ŒTHROW˜ŒUNWIND-PROTECT˜•ŒLOAD-TIME-EVAL˜ŒCOND™i˜•ŒSETQ˜ŒAND˜ŒOR˜“™@˜“™˜•Œ;;˜Œ for Interlisp˜“™A™B˜•ŒRPAQ?˜•ŒRPAQ˜•ŒXNLSETQ˜•ŒERSETQ˜•ŒNLSETQ˜•Œ RESETVARS˜“™A˜•ŒFILETYPE™˜“˜•ŒDECLARE:˜•Œ DONTEVAL@LOAD˜•ŒDOEVAL@COMPILE˜•ŒDONTCOPY˜•Œ COMPILERVARS˜“˜•ŒADDVARS˜“˜•ŒNLAMA˜“˜•ŒNLAML˜“˜•ŒLAMA™V™R™Q™P™I™E™>™=™<™8™6™5™4™3 ˜“˜”˜Œ16-May-90 14:56:15•Œ/{DSK}local>lde>lispcore>sources>CMLWALK.;2œ˜’Œexpand-ONCE-ONLY™˜–‚5@X¹Hº»¼½I¾h_¿h_¿h_¿N£O°{N__¿gggOhgOhhOgKohgKLhgOMhKhh_¿O˜OO&_¿ˆOh__¿N¾°ƒ¾gLMggN_¿I_¿h_¿h_¿h_¿h_¿h_¿O_’O°B_¿O_’O°3_¿OOh_¿O˜OO&_¿ˆOh__¿O_¿O_¿°·OJhho™‚‘™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜ŒGENSYM™‚– ™‚– ‚µ™K‚°˜’Œ WRAPPED-BODY™‚©™Ms˜ŒPUSHh™‚˜Z™KJ˜Œ CONSTANTP@˜ŒSYMBOLP;™n6™[‚-˜“˜“˜ŒLIST˜“™`™K˜“ ˜•ŒFOR˜’Œ RUN-TIME-VAR™˜•ŒIN˜“˜ŒREVERSE˜’Œ RUN-TIME-VARS™˜•ŒAS˜’Œ RUN-TIME-VAL™™‚Ÿ˜“™‚ ˜’Œ RUN-TIME-VALS™˜•ŒCOLLECT˜“™‚›™‚ž™‚¤™‚—`˜“˜“™‚–˜–&gg ¿ggo ˜ŒDEFMACRO XCL:ONCE-ONLY™˜“€ ™ ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES™™‚‘™˜“˜Œ XCL::VARS˜Œ&BODY˜Œ XCL::BODY˜–1o ¿g X£hc¿ggo ™!˜ŒCL:DEFVAR *WALK-FUNCTION*™˜“€+˜•ŒSET-DOCUMENTATION˜ŒBOUNDP˜ŒPROCLAIM!˜ŒVARIABLE™! ™!&˜Œ=the function being called on each sub-form in the code-walker˜“˜ŒSPECIAL™!˜–"o ¿g X‘Hoc™"˜ŒCL:DEFVAR *WALK-FORM*™˜“€™‚»™‚¼ ™"˜Œ‚˜When the first argument to the IF template in the code-walker is a list, it will be evaluated with *walk-form* bound to the form currently being walked.˜“™‚¿™"˜–"o ¿g X‘Hoc™#˜ŒCL:DEFVAR *DECLARATIONS*™˜“€™‚»™‚¼ ™#˜Œ@a list of the declarations currently in effect while codewalking˜“™‚¿™#˜–o ¿g X‘Hhc™$˜ŒCL:DEFVAR *LEXICAL-VARIABLES*™˜“€™‚»™‚¼ ™$˜“™‚¿™$˜–"o ¿g X‘Hoc™%˜ŒCL:DEFVAR *ENVIRONMENT*™˜“€™‚»™‚¼ ™%˜ŒQwhile codewalking, this is the lexical environment as far as macros are concerned˜“™‚¿™%˜–"o ¿g X‘Hoc™&˜ŒCL:DEFVAR *WALK-COPY*™˜“€™‚»™‚¼ ™&˜ŒQwhile walking, this is true if we are making a copy of the expresion being walked˜“™‚¿™&œ˜•Œexpand-WITH-NEW-CONTOUR˜–@¸goH™‚Ú™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™K ˜“˜“™#€˜“™$™$˜“™%™%˜–&gg ¿ggo ˜ŒDEFMACRO WITH-NEW-CONTOUR™˜“€ ™ ™‚±™‚²™(™‚Ú™(˜“™‚´˜ŒBODYœ˜•Œexpand-NOTE-LEXICAL-BINDING˜–@X¹gIo™‚陘“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚˜ ˜“™$˜–&gg ¿ggo ˜ŒDEFMACRO NOTE-LEXICAL-BINDING™˜“€ ™ ™‚±™‚²™)™‚é™)˜“˜ŒTHINGœ˜•Œexpand-NOTE-DECLARATION˜–@X¹gIo™‚õ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚˜ ˜“™#˜–&gg ¿ggo ˜ŒDEFMACRO NOTE-DECLARATION™˜“€ ™ ™‚±™‚²™*™‚õ™*˜“˜ŒCL:DECLARATIONœ™,˜–4S¸h¹HZ‘J°Ygð–@I‘i…H¸°ähY‘I@ÁÉg'™#™,™˜“˜“˜ŒVAR-˜•ŒGLOBALLY-SPECIAL™‚¿œ™-˜–@ ‘h@P™$™-™˜“˜“˜ŒVAR™,œ™.˜–@d3@ð›@ÁÉg'o™.™˜“˜“˜ŒX ™B˜“˜ŒLAMBDA˜ŒREPEAT˜“˜ŒEVALœ™0˜–iejó§kh ¿gµh¸a¸gµh¹a¹gµhºaºgµno»a»gµi¼a¼@g ™&™!™%™$™#™0‚ÿÿÿÿ™˜“˜“˜ŒFORM˜Œ&KEY˜Œ DECLARATIONS˜ŒLEXICAL-VARIABLES˜Œ ENVIRONMENT˜Œ WALK-FUNCTION˜ŒCOPYc™3˜’ŒARGUMENT-ERROR˜‘˜ŒSYSTEM^™‚O™‚7™‚)™‚™‚ ™‚D˜–@˜Œlambda in WALK-FORM˜ŒCLOSURE˜“˜“˜ŒX˜ŒIGNORE@˜•ŒCOMPILED-CLOSURE˜–ggo ˜ŒCL:DEFUN WALK-FORM™˜“€™‚º™Y™0 ˜ŒyWalk FORM, expanding all macros, calling :WALK-FUNCTION on each subfof :COPY is true (default), will return the expansionœ™3˜–‚Žh¸h¹hº@AlT [ºKY‘J@Jð²d@‘i€h²Z@d3@ð²E@ X²Hd3@ð–@AlH@HA @@U bðœ@oA @Ab¿b¿°@oA @JAb¿b¿±ÿv™!™%™3™˜“˜“˜ŒFORM˜ŒCONTEXT{™4d™4T˜Œ MACROEXPAND-1K™43™. ˜•Œ\MVLISTu˜“˜ŒCALL™‚˜“™‚^˜“™‚2™‚˜“™‚œ™4˜–‚§A¢±AXgð²-@@A˜A …@kA”A„AB HgðZ‘J†Hgð²!@A@ A Õ@ B @²@@AB @AB @AgðX‘H†Agð²@‘i€h—@h @AgðX’H°A‘h€iZ’J°Agð[‘K†Agð‘@AgðX’H°nAgðZ’J°bAgð[’K°VAgð\’L°JAgð]’M°>Agð^’N°2Agð_“O°$Agð_“O°Agð_’O†Agð›@g AgðX‘H†Agð›@g Agð—@B hgAo ™"™4 ™˜“˜“˜ŒFORM˜ŒTEMPLATE˜ŒCONTEXT‚¡˜•Œ ECASE-FAIL‚™>‚™3‚`™3‚®™>‚‰™8‚„™4z™4j™5d˜ŒNTHCDR]˜ŒLENGTHU™‚?7™4˜ŒEVAL‚–˜•ŒTEMPLATE‚†™‚ ‚z˜ŒSET‚r™‚B‚g˜ŒSET‚[™‚‚S™b‚F˜ŒRETURN‚8˜•ŒEFFECT‚*˜ŒEFFECT‚˜•ŒTEST‚˜ŒTEST‚™X‚ú™‚ŒEVAL‚♂‚ؘŒERROR‚͘•ŒPPE‚·™`‚™‚2‚’˜•ŒCALLI™‚>˜•ŒREPEAT ™[‚œ˜“™‚L™‚2™`€™‚K™‚J™‚™‚I™™X™‚H™‚G™‚F™‚E™‚D™b™‚C™‚B™‚ œ™5˜–@Bð™@AC @AABC ™5™˜“˜“˜ŒFORM˜ŒTEMPLATE˜Œ STOP-FORM˜ŒCONTEXT™6 ™4œ™6˜–Z@²V@Cð²Bšo CAD B² @@BD @ABCD  @AACDb¿b¿b¿b¿b¿°«h™6™˜“˜“˜ŒFORM˜ŒTEMPLATE˜ŒREPEAT-TEMPLATE˜Œ STOP-FORM˜ŒCONTEXT;™86™6)™4™4˜ŒERROR ˜Œ\While handling repeat: ~%~Ran into stop while still in repeat template.œ™7˜–@²@@kA@A h˜•ŒFN™‚›™7™˜“˜“˜Œ &OPTIONAL™‚›™‚a˜Œ INTERLISP™8 ™7œ™8˜–!Q²@Að‘h€iX‘H‡@Bð‘h€i“AB@h™&™8™˜“˜“˜ŒX˜ŒCAR˜ŒCDRœ˜•Œexpand-WALK-RELIST*˜–0@X¹HZ»J\² gIKggIhLhK™‚m™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜ŒCDR™:™8˜–&gg ¿ggo ˜ŒDEFMACRO WALK-RELIST*™˜“€ ™ ™‚±™‚²™:™‚m™:˜“˜ŒX˜ŒFIRST˜Œ&REST˜ŒCL:RESTœ™<˜–‚ @X ž@™B‘hˆC‘h„i‚h€h²@H@Ai H˜Hgð€h²1H¹hºI‘I°ZSc¿JCb¿I¹°ê@H@ABC H‘i€h²H ‘hHHT Xð‘h‚i€hœH@ABC @kA™#™%™<™˜“˜“˜ŒBODY˜ŒFN™‚b˜Œ DOC-STRING-P˜Œ DECLARATIONS‚•™<‚€™‚0u™.e™8`™<'™8"™<˜•ŒSTRINGP2™Gœ™=˜–‚Èh¸@¢±Á@Xd3@ð²0H`Y¥HTc¿@H@AB›H`‘h‚i€h H‘i€h²uB™HAB °0@HHHHg H @Ah ¹Hd3@ð—HTc¿ˆHTc¿H‘h€iZ³Hd3@ð‘h€i[¥HTc¿Io@ h™$™=™˜“˜“˜ŒARGLIST˜ŒCONTEXT™‚b˜ŒDESTRUCTURINGP ‚À™‚^|™8w™=n™8i™8a™3L™=9™84™=\™‚(˜ŒLAMBDA-LIST-KEYWORDS™‚‰‚º˜Œ,Can't understand something in the arglist ~Sœ™>˜–KnXA¿VW@Hý¿@¼hHý¿LnoH ½@@@HÉM ™#™%™$™$™%™>™˜“˜“˜ŒFORM˜ŒCONTEXTE™8@™81™<'˜– HÉHÉ Hý¿@oHÉ ˜Œlambda in WALK-LAMBDA™‚ ˜“˜“˜Œ REAL-BODY™4™=˜“™‚˜“™‚#™‚&˜•Œ \PTRHUNK4˜– o ˜Œ1 top-level form™˜“€˜•ŒPUTPROPS˜“™C™B™Eœ™E˜–‚‹nX@A¿Hɹhºh»h¼I¢J°!I]‘i€h’M€M¼J”KL&»„Lh[ºI¹°Þ¹Hɺh»h¼h½J¢K°'J^‘i€h˜N €h½K”LM&¼„Mh\»Jº°ØºIJnoH ™E™˜“˜“˜ŒFORM˜ŒCONTEXT‚…˜•Œ \DO.PROGV[™‚@{˜–HÉoHÉ ˜Œlambda in WALK-COMPILER-LET™‚ ˜“€ ™4˜“€€™‚˜“™‚™‚Dw™‚&˜•Œ \PTRHUNK2˜– o ˜Œ1 top-level form™˜“€™‚›˜“™G™B™Iœ™I˜–o@ ¿@™I™˜“˜“˜ŒFORM˜ŒCONTEXT˜ŒWARN˜ŒCEncountered declare ~S in a place where a declare was not expected.˜–-o ¿o ¿o ¿o ˜Œ4 top-level forms™˜“€'™‚›™‚›™‚›™‚›"˜“™N™B™Q˜“™M™B™Q ˜“™L™B™P˜“™K™B™Pœ™P˜– @Ah ™P™˜“˜“˜ŒFORM˜ŒCONTEXT™Rœ™Q˜– @Ai ™Q™˜“˜“˜ŒFORM˜ŒCONTEXT™Rœ™R˜–_nXAB¿WHý¿WHý¿WW@¼@Hý¿@½hHý ¿MnoH ¾@L@HÉ N ™#™%™$™$™# ™%™R™˜“˜“˜ŒFORM˜ŒCONTEXT˜Œ SEQUENTIALPY™8T™8F™<<˜–+HÉnoH Hý ¿@oHÉ ˜Œlambda in WALK-LET/LET*™‚ ˜“˜“˜Œ REAL-BODY%™4™7˜“™‚˜“™‚˜–H@d3@ð™@¹@Tc¿IHÉHÉ‘T‚HÉ@@@@HÉ @ ¹@Tc¿I™$™#™$˜Œ!lambda in lambda in WALK-LET/LET*™‚ ˜“˜“™‚b˜ŒBINDING™‚d8™83™8+™3™‚&8™‚&˜•Œ \PTRHUNK6˜– o ˜Œ1 top-level form™˜“€™‚›˜“™T™B™Vœ™V˜–(nXA¿@@@noH ™V™˜“˜“˜ŒFORM˜ŒCONTEXT"™8™7˜–@@d3@ð•g‚HÉ ˜Œlambda in WALK-TAGBODY™‚ ˜“˜“™‚b˜ŒX™‚d™3™`™‚&™‚¨˜–‚lo ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o ¿o¿o ˜Œ33 top-level forms™˜“€ ‚f™‚›‚P™‚›‚E™‚›‚:™‚›‚/™‚›‚$™‚›‚™‚›‚™‚›‚™‚›‚ø™‚›‚홂›‚♂›‚×™‚›‚Ì™‚›‚Á™‚›‚¶™‚›‚«™‚›‚ ™‚›‚•™‚›‚Š™‚›™‚›t™‚›i™‚›^™‚›S™‚›H™‚›=™‚›2™‚›'™‚›™‚›™‚›™‚›‚[™!‚a˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚‚ÂÆ‚V˜“ ˜“™™˜“™™˜ŒJnot a wonderful place for it, but CMLMACROS comes too eraly in the loadup.˜“™ ™!™"™#™$™%™&˜“™™(™)™*˜“™™,™-™.˜“™™0˜“™2™3™4™5™6™7™8˜“™™:˜“™2™<™=™>˜“ ™@˜“™A™B™C˜“™2™E˜“™A™B™G˜“™2™I˜“™A™B™K™L™M™N˜“™2™P™Q™R˜“™A™B™T˜“™2™V˜“™A™B™X™Y™Z™[™\™]™^™_™`™a™b™c™d™e™f™g™h™i™j™k™i™l™m™n˜“™@˜“™™q˜Œ for Interlisp˜“™A™B™t™u™v™w™x™y˜“™A™|™˜“™~™™‚€™‚™‚‚˜“™‚ƒ˜“™‚„˜“™‚†˜“ ™‚ˆ™V™R™Q™P™I™E™>™=™<™8™6™5‚K˜“™™|˜Œ COMPILE-FILE‚@˜“™y™B™P‚5˜“™x™B˜“€™‚˜“™‚‚*˜“™w™B˜“€™‚˜“™‚‚˜“™v™B˜“€™‚˜“™‚‚˜“™u™B˜“€™‚B™‚‚ ˜“™t™B˜“€™‚B™‚‚þ˜“™n™B˜“€™‚˜“™‚‚󘓙m™B˜“€™‚˜“™‚‚蘓™l™B˜“€™‚B™‚‚ݘ“™i™B˜“€™‚™‚˜“™‚‚Ò˜“™k™B˜“€™‚˜“˜“™‚˜“™‚‚ǘ“™j™B˜“€™‚‚¼˜“™i™B˜“€™‚™‚˜“™‚‚±˜“™h™B˜“€™‚™‚‚¦˜“™g™B˜“€€™‚‚›˜“™f™B˜“€€™‚˜“™‚‚˜“™e™B˜“€™‚™‚˜“™‚‚…˜“™d™B˜“€€™‚˜“™‚z˜“™c™B˜“€™‚˜“™‚B™‚o˜“™b™B˜“€™‚d˜“™a™B˜“€€™‚Y˜“™`™B˜“€™`N˜“™_™B˜“€™‚™‚™‚˜“™‚C˜“™^™B˜“€™‚˜“™‚8˜“™]™B˜“€™‚D™‚˜“™‚-˜“™\™B˜“€™‚™‚˜“™‚"˜“™[™B˜“€™‚H™‚D™‚D˜“™Z™B˜“€€ ˜“™Y™B˜“€™‚2˜“™X™B˜“€™‚2š‚\ÿÿ