‘XCL Compiler output for source file {DSK}disk2>jdstools>lc3>lispcore3.0>sources>XCLC-TREES.;1 Source file created Wednesday, 23 May 1990, 13:17:15. FASL file created Monday, 26 January 1998, 14:01:24. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜“˜’Œ DEFPACKAGE˜‘˜ŒXEROX-COMMON-LISP˜ŒCOMPILER˜“˜ŒUSE˜ŒLISP˜ŒXCL˜Œ{Null}˜–!ggo ¿o˜Œ2 top-level forms™˜“€˜•ŒPUTPROP˜•ŒXCLC-TREESCOMS˜•Œ FILEDATES˜•Œ XCLC-TREES˜“˜“˜•Œ*˜•Œ;;;˜Œ Program trees˜“˜•Œ DEFINE-TYPES˜’ŒNODES˜‘˜ŒCOMPILER˜“˜•ŒDECLARE:˜•Œ EVAL@LOAD˜•Œ EVAL@COMPILE˜•ŒDOCOPY˜“˜•Œ FUNCTIONS˜’ŒNODE-TYPE-NAME™$˜’ŒCONSTRUCT-COMPILER-SYMBOL™$˜“˜•Œ VARIABLES˜’Œ *NODE-TYPES*™$˜“™+˜’ŒMAKE-NODE-METHOD™$˜“™+˜’ŒDEFNODE™$˜“˜•Œ STRUCTURES˜’ŒNODE™$˜’ŒBLIPPER™$˜’ŒCALLER™$˜’ŒSEGMENT™$˜’ŒVARIABLE-STRUCT™$˜“™%˜’Œ BLOCK-NODE™$˜’Œ CALL-NODE™$˜’Œ CATCH-NODE™$˜’ŒGO-NODE™$˜’ŒIF-NODE™$˜’Œ LABELS-NODE™$˜’Œ LAMBDA-NODE™$˜’Œ LITERAL-NODE™$˜’Œ MV-CALL-NODE™$˜’Œ MV-PROG1-NODE™$˜’Œ OPCODES-NODE™$˜’Œ PROGN-NODE™$˜’Œ PROGV-NODE™$˜’Œ RETURN-NODE™$˜’Œ SETQ-NODE™$˜’Œ TAGBODY-NODE™$˜’Œ THROW-NODE™$˜’ŒUNWIND-PROTECT-NODE™$˜’Œ VAR-REF-NODE™$˜“™/˜’Œ*LITERALLY-NIL*™$˜’Œ *LITERALLY-T*™$˜“™+˜’ŒMAKE-REFERENCE-TO-VARIABLE™$˜“™+˜’Œ NODE-DISPATCH™$˜“™˜•Œ;;˜ŒEliminating tree circularities˜“™+˜’Œ RELEASE-TREE™$˜“™+˜’ŒDELETEF™$˜’Œ DELETEF-1™$˜’Œ DELETEF-2™$˜“™+˜’Œ RELEASE-BLOCK™$˜’Œ RELEASE-CALL™$˜’Œ RELEASE-CATCH™$˜’Œ RELEASE-GO™$˜’Œ RELEASE-IF™$˜’ŒRELEASE-LABELS™$˜’ŒRELEASE-LAMBDA™$˜’ŒRELEASE-LITERAL™$˜’ŒRELEASE-MV-CALL™$˜’ŒRELEASE-MV-PROG1™$˜’ŒRELEASE-OPCODES™$˜’Œ RELEASE-PROGN™$˜’Œ RELEASE-PROGV™$˜’ŒRELEASE-RETURN™$˜’Œ RELEASE-SETQ™$˜’ŒRELEASE-TAGBODY™$˜’Œ RELEASE-THROW™$˜’ŒRELEASE-UNWIND-PROTECT™$˜’ŒRELEASE-VAR-REF™$˜“™™Y˜ŒCopying tree structure˜“™+˜’Œ COPY-CODE™$˜’Œ COPY-NODES™$˜“™/˜’Œ*COPY-NODE-TABLE*™$˜“™+˜’ŒCOPY-NODE-BLOCK™$˜’ŒCOPY-NODE-CALL™$˜’ŒCOPY-NODE-CATCH™$˜’Œ COPY-NODE-GO™$˜’Œ COPY-NODE-IF™$˜’ŒCOPY-NODE-LABELS™$˜’ŒCOPY-NODE-LAMBDA™$˜’ŒCOPY-NODE-LITERAL™$˜’ŒCOPY-NODE-MV-CALL™$˜’ŒCOPY-NODE-MV-PROG1™$˜’ŒCOPY-NODE-OPCODES™$˜’ŒCOPY-NODE-PROGN™$˜’ŒCOPY-NODE-PROGV™$˜’ŒCOPY-NODE-RETURN™$˜’ŒCOPY-NODE-SETQ™$˜’ŒCOPY-NODE-TAGBODY™$˜’ŒCOPY-NODE-THROW™$˜’ŒCOPY-NODE-UNWIND-PROTECT™$˜’ŒCOPY-NODE-VAR-REF™$˜“™+˜’ŒCOPY-NODE-LIST™$˜’Œ COPY-VARIABLE™$˜’ŒFIND-COPIED-VARIABLE™$˜“™™Y˜Œ,Arrange for the correct compiler to be used.˜“˜•ŒPROP˜•ŒFILETYPE™˜“™™Y˜Œ,Arrange for the correct makefile-environment˜“™‚—˜•ŒMAKEFILE-ENVIRONMENT™ ˜“˜”˜Œ23-May-90 13:29:17•Œ2{DSK}local>lde>lispcore>sources>XCLC-TREES.;2˜–‚"ggo ¿oRgg c¿oSgg c¿o ¿g X¦h¿g` ³0g`gggl2gl2  ¿Q¸gQ‘H†gHc¿ggg ¿ggg ¿ggg ¿ggg ¿ggg ˜•Œ FILEPKGTYPES˜•ŒPRETTYDEFMACROS˜•Œ PRETTYTYPELST˜ŒDEF-DEFINE-TYPE NODES™˜“€ ‚™‚™‚ò™‚Ý™‚È™‚˜ŒPUTHASH‚˜˜ŒMAKE-HASH-TABLEn˜•ŒGETHASHV˜ŒBOUNDPK˜ŒPROCLAIM>˜ŒADJOIN&™‚­˜•ŒSET-DOCUMENTATION!‚˜•ŒNILL‚˜•ŒFILEPKGCONTENTS‚ ™%‚˜’Œ%DEFINE-TYPE-FILEGETDEF™ ‚ý˜•Œ FILEGETDEF‚ø™%‚혒Œ%DEFINE-TYPE-PUTDEF™ ‚蘕ŒPUTDEF‚ã™%‚ؘ’Œ%DEFINE-TYPE-DELDEF™ ‚Ó˜•ŒDELDEF‚Ι%‚Ø’Œ%DEFINE-TYPE-GETDEF™ ‚¾˜•ŒGETDEF‚¹™%‚¯™%‚¥™%‚˜Œ REHASH-SIZE‚‰˜ŒSIZE‚„˜ŒEQUAL˜ŒTESTz˜’Œ*DEFINITION-HASH-TABLE*™ u™%i™‚½d™%^˜’ŒCHANGEDNODESLST™$Q™‚¾9™‚»4™‚¼!™‚»™‚¼™"™%F˜“˜’ŒGLOBAL™ ™‚¾.˜“™‚¾™%˜ŒXCL compiler tree node types˜“™%˜’ŒX™ ˜“˜•ŒP™˜“˜’Œ%DEFINE-TYPE-FILE-DEFINITIONS™ ˜“˜ŒQUOTE™%˜“™‚Æ™‚à ™‚Áœ™,˜– @o ™,™˜“˜“˜Œ TRUE-NAME™-˜Œ-NODEœ™-˜–Fhe#¸ggH¹hºh»h¼I¢J°I ¼J”KL&»„Lh[ºI¹°ä o ™-‚ÿÿÿÿ™˜“˜“˜Œ&REST˜ŒPARTS@˜ŒINTERN6˜ŒAPPLY˜ŒSTRING ™‚ؘŒ CONCATENATE;˜ŒCOMPILER˜–1o ¿g X£hc¿ggo ™0˜ŒDEFVAR *NODE-TYPES*™˜“€+™‚®™‚«™‚¬!˜ŒVARIABLE™0 ™0&˜ŒcList of the names of the various kinds of parse-tree nodes. Names are put on this list by DEFNODE.˜“˜ŒSPECIAL™0œ˜’Œexpand-MAKE-NODE-METHOD™$˜–;@X¹Wºh»h¼h½J¢K°#J¾IoN ½K”LM&¼„Mh\»Jº°Ü ™0™‚㙘“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT5˜•ŒSORT™-˜Œ-˜–&gg ¿ggo ˜ŒDEFMACRO MAKE-NODE-METHOD™˜“€ ™ ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES™3™‚ã™3˜“˜ŒPREFIX˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜ŒDEFDEFINER DEFNODE™˜“€A™™ :™50™5)˜Œ DEFINED-BY ™%™‚ô™% ™%˜Œ DEFINER-FOR™5œ˜’Œdefinition-expander-DEFNODE™$˜–‚å@X¹HZ»g¼h½I‘i€h²@I¾I½N¹M¾N¡°2N_¿O_gð–O¼°hoOo ¿N¾°ÎggoggIhohgI gIo hgIo hogoI hgLhoKh™‚÷ ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚Á™-‚©™-‚–™-‚†™,M˜•Œ ECASE-FAIL ‚ɘŒINCLUDE‚¶˜Œ CONSTRUCTOR‚ž˜Œ PREDICATE‚‹˜Œ CONC-NAME‚€˜Œ DEFSTRUCTl™‚Æg˜ŒPUSHNEW]˜Œ EVAL-WHENX˜ŒPROGN2˜ŒPARENT ™8 ‚Ò˜“˜“˜ŒINLINE€‚»˜ŒMAKE-‚±˜“˜ŒCOPIER€‚¤˜Œ-P‚‘˜Œ-u˜“™0b˜“˜ŒCOMPILE˜ŒLOAD˜ŒEVALH˜“™‚A˜“˜ŒFIRST˜’ŒOPTION™$˜–ggg ™‚ò™˜“€™ ™‚÷˜ŒDEFINITION-EXPANDER™5œ˜’Œname-fn-DEFNODE™$˜–@X‘i€h’H€HY ™‚™˜“˜“˜ŒWHOLE™,˜–.ggg ¿oPgg c˜•ŒPRETTYPRINTMACROS™‚ò™˜“€&™‚­™!™‚»™‚¼ ™‚˜ŒDEFINITION-NAME™5˜”™5’ŒPPRINT-DEFINER™ œ˜’Œexpand-DEFNODE™$˜–ggg@Ah™‚%™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™5™%˜’ŒDEFINER™ ˜–&gg ¿ggo ™‚ò™˜“€ ™ ™‚홂î™5™‚%™5˜“˜Œ&WHOLE˜ŒXCL::DEFINITION˜Œ &ENVIRONMENT˜ŒXCL::ENV˜–Dgio ¿goolg ¿ggg ˜ŒDEFSTRUCT NODE™˜“€>™)˜’Œ%STRUCTURE-DECLARE-DATATYPE˜‘˜ŒSYSTEM ˜ŒSET-PARSED-STRUCTURE9˜ŒTYPE-EXPAND-STRUCTURE4˜Œ TYPE-EXPANDER/™8#˜ŒSTRUCTURE-OBJECT™8™8˜“˜“™8˜•ŒPOINTER˜“™8™‚<˜“™8™‚<˜“™8™‚<˜“™‚<™‚<™‚<™‚<˜“˜ŒPS™8˜’Œ MAKE-NODE™$˜“˜’ŒMETA-P™$˜’ŒSUBST-P™$˜’ŒEFFECTS™$˜’ŒAFFECTED™$˜ŒDATATYPE€€˜ŒNODE-˜“™‚D˜’ŒNODE-P™$˜ŒDEFAULT-STRUCTURE-PRINTER˜’Œ COPY-NODE™$€€˜“˜“™‚E€€™‚=˜’Œ NODE-META-P™$˜“™‚F€€™‚>˜’Œ NODE-SUBST-P™$˜“™‚G€€™‚?˜’Œ NODE-EFFECTS™$˜“™‚H€€™‚@˜’Œ NODE-AFFECTED™$€€™‚B€˜“˜ŒACCESSOR™‚ÿ€€€œ™‚M˜–@Ù‚M™˜“˜“˜ŒOBJECT™8˜–"g ¿g ¿g ™‚3™˜“€˜ŒESTABLISH-SETFS-AND-OPTIMIZERS˜ŒESTABLISH-ACCESSORS˜ŒESTABLISH-PREDICATE™8 ™8™8œ™‚D˜–zgµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿`_¿I•OH¿K•OJ¿M•OL¿O•ON¿O™‚D ‚ÿÿÿÿ™˜“˜“˜Œ&KEY˜ŒMETA-P˜ŒSUBST-P˜ŒEFFECTS˜ŒAFFECTEDM˜’Œ NODETYPE#™$7™‚j%™‚i™‚h™‚gœ™‚O˜–H@¸@Ñ°igHgh b¿°ß`X@É¿H@É¿H@É¿H@É¿H™‚O™˜“˜“˜ŒNODE˜•ŒCHECK-TYPE-FAIL$™‚m™8 ™8™8˜–Dgio ¿goolg ¿ggg ˜ŒDEFSTRUCT BLIPPER™˜“€>™)™‚7 ™‚89™‚94™‚:/™9#™8™9™9˜“˜“™9™‚<˜“™9™‚<˜“™9™‚<˜“™9™‚<˜“™9™‚<˜“™9 ™‚<˜“™9 ™‚<˜“™‚<™‚<™‚<™‚<™‚<™‚<™‚<˜“™‚C™9˜’Œ MAKE-BLIPPER™$˜“™‚E™‚F™‚G™‚H˜’Œ REFERENCES™$˜’Œ CLOSED-OVER-P™$˜’Œ NEW-FRAME-P™$™‚J€™8˜ŒBLIPPER-˜“™‚˜’Œ BLIPPER-P™$™‚N˜’Œ COPY-BLIPPER™$€€˜“˜“™‚E€€™‚v˜’ŒBLIPPER-META-P™$˜“™‚F€€™‚w˜’ŒBLIPPER-SUBST-P™$˜“™‚G€€™‚x˜’ŒBLIPPER-EFFECTS™$˜“™‚H€€™‚y˜’ŒBLIPPER-AFFECTED™$˜“™‚€€€™‚z˜’ŒBLIPPER-REFERENCES™$˜“™‚€€™‚{˜’ŒBLIPPER-CLOSED-OVER-P™$˜“™‚‚€€™‚|˜’ŒBLIPPER-NEW-FRAME-P™$€€™‚~€™‚Z€€€œ™‚†˜–@Ù‚†™˜“˜“˜ŒOBJECT™9˜–"g ¿g ¿g ™‚t™˜“€™‚b™‚c™‚d™9 ™9™9œ™‚˜–‚ægµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿`_¿I•OH¿K•OJ¿M•OL¿O•ON¿O–OO¿O–OO ¿O–OO ¿O™‚‚ÿÿÿÿ™˜“˜“™‚f™‚g™‚h™‚i™‚j˜Œ REFERENCES˜Œ CLOSED-OVER-P˜Œ NEW-FRAME-P‚›˜’ŒBLIPPERTYPE#™$‚™‚¡g™‚ M™‚Ÿ7™‚j%™‚i™‚h™‚gœ™‚‡˜–]@¸@Ñ°igHgh b¿°ß`X@É¿H@É¿H@É¿H@É¿H@É¿H@É  ¿H@É  ¿H™‚‡™˜“˜“˜ŒBLIPPER™‚r$™‚¤™9 ™9™9˜–Dgio ¿gool g ¿ggg ˜ŒDEFSTRUCT CALLER™˜“€>™)™‚7 ™‚89™‚94™‚:/™:#™8™:™:˜“˜“™:™‚<˜“™:™‚<˜“™:™‚<˜“™:™‚<˜“™:™‚<˜“™‚<™‚<™‚<™‚<™‚<˜“™‚C™:˜’Œ MAKE-CALLER™$˜“™‚E™‚F™‚G™‚H˜’Œ NOT-INLINE™$™‚J€™8˜ŒCALLER-˜“™‚³˜’ŒCALLER-P™$™‚N˜’Œ COPY-CALLER™$€€˜“˜“™‚E€€™‚¬˜’Œ CALLER-META-P™$˜“™‚F€€™‚­˜’ŒCALLER-SUBST-P™$˜“™‚G€€™‚®˜’ŒCALLER-EFFECTS™$˜“™‚H€€™‚¯˜’ŒCALLER-AFFECTED™$˜“™‚´€€™‚°˜’ŒCALLER-NOT-INLINE™$€€™‚²€™‚Z€€€œ™‚¸˜–@Ù‚¸™˜“˜“˜ŒOBJECT™:˜–"g ¿g ¿g ™‚ª™˜“€™‚b™‚c™‚d™: ™:™:œ™‚³˜–‚žgµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿gµ h_¿h_¿‡a_¿i_¿`_¿I•OH¿K•OJ¿M•OL¿O•ON¿O–OO¿O™‚³ ‚ÿÿÿÿ™˜“˜“™‚f™‚g™‚h™‚i™‚j˜Œ NOT-INLINEg˜’Œ CALLERTYPE#™$M™‚Í7™‚j%™‚i™‚h™‚gœ™‚¹˜–O@¸@Ñ°igHgh b¿°ß`X@É¿H@É¿H@É¿H@É¿H@É¿H™‚¹™˜“˜“˜ŒCALLER™‚r$™‚Й: ™:™:˜–Dgio ¿gool g ¿ggg ˜ŒDEFSTRUCT SEGMENT™˜“€>™)™‚7 ™‚89™‚94™‚:/™;#™‚;™;™;˜“˜“™;™‚<˜“™;™‚<˜“™;™‚<˜“™;™‚<˜“™;™‚<˜“™‚<™‚<™‚<™‚<™‚<˜“™‚C™;˜’Œ MAKE-SEGMENT™$˜“˜’ŒTAGS™$˜’ŒSTMTS™$™‚˜’Œ LOCAL-TAG™$˜’Œ REMOTE-TAG™$™‚J€€˜ŒSEGMENT-˜“™‚ߘ’Œ SEGMENT-P™$™‚N˜’Œ COPY-SEGMENT™$€€˜“˜“™‚à€€™‚ؘ’Œ SEGMENT-TAGS™$˜“™‚က™‚Ù˜’Œ SEGMENT-STMTS™$˜“™‚€€™‚Ú˜’ŒSEGMENT-CLOSED-OVER-P™$˜“™‚ ™‚Û˜’ŒSEGMENT-LOCAL-TAG™$˜“™‚　™‚ܘ’ŒSEGMENT-REMOTE-TAG™$€€™‚Þ€™‚Z€€€œ™‚瘖@Ù‚癘“˜“˜ŒOBJECT™;˜–"g ¿g ¿g ™‚Ö™˜“€™‚b™‚c™‚d™; ™;™;œ™‚ߘ–‚žgµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿gµ h_¿h_¿‡a_¿i_¿`_¿I•OH¿K•OJ¿M•OL¿O•ON¿O–OO¿O™‚ß ‚ÿÿÿÿ™˜“˜“™‚f˜ŒTAGS˜ŒSTMTS™‚ ˜Œ LOCAL-TAG˜Œ REMOTE-TAGg˜’ŒSEGMENTTYPE#™$M™‚ÿ7™‚þ%™‚ ™‚ý™‚üœ™‚蘖O@¸@Ñ°igHgh b¿°ß`X@É¿H@É¿H@É¿H@É¿H@É¿H™‚虘“˜“˜ŒSEGMENT™‚r$™‚™; ™;™;˜–Dgio ¿goolg ¿ggg ˜ŒDEFSTRUCT VARIABLE-STRUCT™˜“€>™)™‚7 ™‚89™‚94™‚:/™<#™‚;™<™<˜“˜“™<™‚<˜“™<™‚<˜“™<™‚<˜“™<™‚<˜“™<™‚<˜“™< ™‚<˜“™< ™‚<˜“™<™‚<˜“™‚<™‚<™‚<™‚<™‚<™‚<™‚<™‚<˜“™‚C™<˜’Œ MAKE-VARIABLE™$˜“˜’ŒSCOPE™$˜’ŒKIND™$˜’ŒNAME™$˜’ŒBINDER™$˜’Œ READ-REFS™$˜’Œ WRITE-REFS™$˜’ŒLAP-VAR™$˜’Œ CLOSED-OVER™$™‚J€€˜’Œ VARIABLE-™$˜“™‚˜’Œ VARIABLE-P™$™‚N€€€˜“˜“™‚˜ŒLEXICAL€™‚ ˜’ŒVARIABLE-SCOPE™$˜“™‚˜ŒVARIABLE€™‚ ˜’Œ VARIABLE-KIND™$˜“™‚˜Œ Anonymous€™‚ ˜’Œ VARIABLE-NAME™$˜“™‚€€™‚ ˜’ŒVARIABLE-BINDER™$˜“™‚€€™‚˜’ŒVARIABLE-READ-REFS™$˜“™‚€€™‚˜’ŒVARIABLE-WRITE-REFS™$˜“™‚€€™‚˜’ŒVARIABLE-LAP-VAR™$˜“™‚€€™‚˜’ŒVARIABLE-CLOSED-OVER™$€€™‚€™‚Z€€€œ™‚ ˜–@Ù‚ ™˜“˜“˜ŒOBJECT™<˜–"g ¿g ¿g ™‚™˜“€™‚b™‚c™‚d™< ™<™<œ™‚˜–‚ògµ g¸a¸gµ g¹a¹gµ oºaºgµh»h¼ƒa»i¼gµh½h¾ƒa½i¾gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿`_H¿OI¿OJ¿L•OK¿N•OM¿O–OO ¿O–OO ¿O–OO¿O™‚‚ÿÿÿÿ™˜“˜“ ™‚f˜ŒSCOPE˜ŒKIND˜ŒNAME˜ŒBINDER˜Œ READ-REFS˜Œ WRITE-REFS˜ŒLAP-VAR˜Œ CLOSED-OVER ‚©˜’ŒVARIABLE-STRUCTTYPE#™$‚™‚Du™‚C[™‚BI™‚A7™‚@%™‚?™‚$™‚> ™‚!™‚=.™‚'˜–ZQ¸gQ‘H†gHc¿gio ¿goolg ¿ggg ™0˜ŒDEFNODE BLOCK-NODE™˜“€T™?™‚7"™‚8O™‚9J™‚:E™>9™9(™>™> ˜ŒBLOCK™‚K2˜“˜“™>™‚<˜“™>™‚<˜“™>™‚<˜“™>™‚<˜“™>™‚<˜“™> ™‚<˜“™> ™‚<˜“™>™‚<˜“™>™‚<˜“™>™‚<˜“™>™‚<˜“™>™‚<˜“™>™‚<˜“™>™‚<˜“™>™‚<-˜“™‚<™‚<™‚<™‚<™‚<™‚<™‚<™‚<™‚<™‚<™‚<™‚<™‚<™‚<™‚<˜“™‚C™>˜’Œ MAKE-BLOCK™$˜“™‚E™‚F™‚G™‚H™‚€™‚™‚‚™‚˜’ŒSTMT™$˜’ŒCONTEXT™$˜’ŒCLOSED-OVER-VARS™$˜’ŒFRAME™$˜’ŒBLIP-VAR™$˜’ŒEND-TAG™$˜’ŒSTK-NUM™$™‚J€™9˜’ŒBLOCK-™$˜“™‚]˜’ŒBLOCK-P™$™‚N€€€˜“˜“™‚E€€™‚L˜’Œ BLOCK-META-P™$˜“™‚F€€™‚M˜’Œ BLOCK-SUBST-P™$˜“™‚G€€™‚N˜’Œ BLOCK-EFFECTS™$˜“™‚H€€™‚O˜’ŒBLOCK-AFFECTED™$˜“™‚€€€™‚P˜’ŒBLOCK-REFERENCES™$˜“™‚€€™‚Q˜’ŒBLOCK-CLOSED-OVER-P™$˜“™‚‚€€™‚R˜’ŒBLOCK-NEW-FRAME-P™$˜“™‚€€™‚S˜’Œ BLOCK-NAME™$˜“™‚^€€™‚T˜’Œ BLOCK-STMT™$˜“™‚_€€™‚U˜’Œ BLOCK-CONTEXT™$˜“™‚`€€™‚V˜’ŒBLOCK-CLOSED-OVER-VARS™$˜“™‚a€€™‚W˜’Œ BLOCK-FRAME™$˜“™‚b€€™‚X˜’ŒBLOCK-BLIP-VAR™$˜“™‚c€€™‚Y˜’Œ BLOCK-END-TAG™$˜“™‚d€€™‚Z˜’Œ BLOCK-STK-NUM™$€€™‚\€€€€€œ™‚h˜–@Ù‚h™˜“˜“˜ŒOBJECT™>˜–g ¿g ™‚I™˜“€™‚b™‚c ™>™>œ™‚]˜–‚gµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿gµ h_ ¿h_"¿‡a_ ¿i_"¿gµ h_$¿h_&¿‡a_$¿i_&¿gµ h_(¿h_*¿‡a_(¿i_*¿gµ h_,¿h_.¿‡a_,¿i_.¿gµ h_0¿h_2¿‡a_0¿i_2¿gµ h_4¿h_6¿‡a_4¿i_6¿gµ h_8¿h_:¿‡a_8¿i_:¿`_<¿I•O¿‡a_<¿i_>¿gµ h_@¿h_B¿‡a_@¿i_B¿gµ h_D¿h_F¿‡a_D¿i_F¿`_H¿I•OHH¿K•OHJ¿M•OHL¿O•OHN¿O–OHO¿O–OHO ¿O–OHO ¿O–OHO¿O"–OHO ¿O&–OHO$¿O*–OHO(¿O.–OHO,¿O2–OHO0¿O6–OHO4¿O:–OHO8¿O>–OHO<¿OB–OHO@ ¿OF–OHOD"¿OH™‚¦%‚ÿÿÿÿ™˜“˜“™‚f™‚g™‚h™‚i™‚j™‚?˜ŒARG-TYPE˜ŒNO-SPREAD-NAME˜ŒREQUIRED˜ŒOPTIONAL˜ŒREST˜ŒKEYWORD˜ŒALLOW-OTHER-KEYS™‚Š˜ŒAPPLIED-EFFECTS˜ŒAPPLIED-AFFECTED™‚’™‚¡˜Œ TAIL-CALL-TAG‚¹˜’ŒLAMBDA-NODETYPE#™$‚Ÿ™‚ë‚…™‚¡‚k™‚’‚Q™‚ê‚7™‚é‚™‚Š‚™‚è‚陂ç‚Ï™‚悵™‚å‚›™‚ä‚™‚ãg™‚âM™‚?7™‚j%™‚i™‚h™‚g˜–ZQ¸gQ‘H†gHc¿gio ¿gool g ¿ggg ™0˜ŒDEFNODE LITERAL-NODE™˜“€T™?™‚7"™‚8O™‚9J™‚:E™E9™8(™E™E ˜’ŒLITERAL™$™‚ò2˜“˜“™E™‚<˜“™E™‚<˜“™E™‚<˜“™E™‚<˜“™E™‚<-˜“™‚<™‚<™‚<™‚<™‚<˜“™‚C™E˜’Œ MAKE-LITERAL™$˜“™‚E™‚F™‚G™‚H˜’ŒVALUE™$™‚J€™8˜’ŒLITERAL-™$˜“™‚ú˜’Œ LITERAL-P™$™‚N€€€˜“˜“™‚E€€™‚ó˜’ŒLITERAL-META-P™$˜“™‚F€€™‚ô˜’ŒLITERAL-SUBST-P™$˜“™‚G€€™‚õ˜’ŒLITERAL-EFFECTS™$˜“™‚H€€™‚ö˜’ŒLITERAL-AFFECTED™$˜“™‚û€€™‚÷˜’Œ LITERAL-VALUE™$€€™‚ù€€€€€œ™‚ÿ˜–@Ù‚ÿ™˜“˜“˜ŒOBJECT™E˜–g ¿g ™‚𙘓€™‚b™‚c ™E™Eœ™‚ú˜–‚žgµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿gµ h_¿h_¿‡a_¿i_¿`_¿I•OH¿K•OJ¿M•OL¿O•ON¿O–OO¿O™‚ú ‚ÿÿÿÿ™˜“˜“™‚f™‚g™‚h™‚i™‚j˜ŒVALUEg˜’ŒLITERAL-NODETYPE#™$M™‚7™‚j%™‚i™‚h™‚g˜–ZQ¸gQ‘H†gHc¿gio ¿goolg ¿ggg ™0˜ŒDEFNODE MV-CALL-NODE™˜“€T™?™‚7"™‚8O™‚9J™‚:E™F9™:(™F™F ˜’ŒMV-CALL™$™‚2˜“˜“™F™‚<˜“™F™‚<˜“™F™‚<˜“™F™‚<˜“™F™‚<˜“™F ™‚<˜“™F ™‚<-˜“™‚<™‚<™‚<™‚<™‚<™‚<™‚<˜“™‚C™F˜’Œ MAKE-MV-CALL™$˜“™‚E™‚F™‚G™‚H™‚´™‚¨˜’Œ ARG-EXPRS™$™‚J€™:˜’ŒMV-CALL-™$˜“™‚$˜’Œ MV-CALL-P™$™‚N€€€˜“˜“™‚E€€™‚˜’ŒMV-CALL-META-P™$˜“™‚F€€™‚˜’ŒMV-CALL-SUBST-P™$˜“™‚G€€™‚˜’ŒMV-CALL-EFFECTS™$˜“™‚H€€™‚˜’ŒMV-CALL-AFFECTED™$˜“™‚´€€™‚˜’ŒMV-CALL-NOT-INLINE™$˜“™‚¨€€™‚ ˜’Œ MV-CALL-FN™$˜“™‚%€€™‚!˜’ŒMV-CALL-ARG-EXPRS™$€€™‚#€€€€€œ™‚)˜–@Ù‚)™˜“˜“˜ŒOBJECT™F˜–g ¿g ™‚™˜“€™‚b™‚c ™F™Fœ™‚$˜–‚ægµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿`_¿I•OH¿K•OJ¿M•OL¿O•ON¿O–OO¿O–OO ¿O–OO ¿O™‚$‚ÿÿÿÿ™˜“˜“™‚f™‚g™‚h™‚i™‚j™‚Í™‚ŘŒ ARG-EXPRS‚›˜’ŒMV-CALL-NODETYPE#™$‚™‚Ag™‚ÅM™‚Í7™‚j%™‚i™‚h™‚g˜–ZQ¸gQ‘H†gHc¿gio ¿gool g ¿ggg ™0˜ŒDEFNODE MV-PROG1-NODE™˜“€T™?™‚7"™‚8O™‚9J™‚:E™G9™8(™G™G ˜’ŒMV-PROG1™$™‚H2˜“˜“™G™‚<˜“™G™‚<˜“™G™‚<˜“™G™‚<˜“™G™‚<-˜“™‚<™‚<™‚<™‚<™‚<˜“™‚C™G˜’Œ MAKE-MV-PROG1™$˜“™‚E™‚F™‚G™‚H™‚ᙂJ€™8˜’Œ MV-PROG1-™$˜“™‚P˜’Œ MV-PROG1-P™$™‚N€€€˜“˜“™‚E€€™‚I˜’ŒMV-PROG1-META-P™$˜“™‚F€€™‚J˜’ŒMV-PROG1-SUBST-P™$˜“™‚G€€™‚K˜’ŒMV-PROG1-EFFECTS™$˜“™‚H€€™‚L˜’ŒMV-PROG1-AFFECTED™$˜“™‚က™‚M˜’ŒMV-PROG1-STMTS™$€€™‚O€€€€€œ™‚T˜–@Ù‚T™˜“˜“˜ŒOBJECT™G˜–g ¿g ™‚F™˜“€™‚b™‚c ™G™Gœ™‚P˜–‚žgµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿gµ h_¿h_¿‡a_¿i_¿`_¿I•OH¿K•OJ¿M•OL¿O•ON¿O–OO¿O™‚P ‚ÿÿÿÿ™˜“˜“™‚f™‚g™‚h™‚i™‚j™‚ýg˜’ŒMV-PROG1-NODETYPE#™$M™‚ý7™‚j%™‚i™‚h™‚g˜–ZQ¸gQ‘H†gHc¿gio ¿gool g ¿ggg ™0˜ŒDEFNODE OPCODES-NODE™˜“€T™?™‚7"™‚8O™‚9J™‚:E™H9™8(™H™H ˜’ŒOPCODES™$™‚n2˜“˜“™H™‚<˜“™H™‚<˜“™H™‚<˜“™H™‚<˜“™H™‚<-˜“™‚<™‚<™‚<™‚<™‚<˜“™‚C™H˜’Œ MAKE-OPCODES™$˜“™‚E™‚F™‚G™‚H˜’ŒBYTES™$™‚J€™8˜’ŒOPCODES-™$˜“™‚v˜’Œ OPCODES-P™$™‚N€€€˜“˜“™‚E€€™‚o˜’ŒOPCODES-META-P™$˜“™‚F€€™‚p˜’ŒOPCODES-SUBST-P™$˜“™‚G€€™‚q˜’ŒOPCODES-EFFECTS™$˜“™‚H€€™‚r˜’ŒOPCODES-AFFECTED™$˜“™‚w€€™‚s˜’Œ OPCODES-BYTES™$€€™‚u€€€€€œ™‚{˜–@Ù‚{™˜“˜“˜ŒOBJECT™H˜–g ¿g ™‚l™˜“€™‚b™‚c ™H™Hœ™‚v˜–‚žgµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿gµ h_¿h_¿‡a_¿i_¿`_¿I•OH¿K•OJ¿M•OL¿O•ON¿O–OO¿O™‚v ‚ÿÿÿÿ™˜“˜“™‚f™‚g™‚h™‚i™‚j˜ŒBYTESg˜’ŒOPCODES-NODETYPE#™$M™‚7™‚j%™‚i™‚h™‚g˜–ZQ¸gQ‘H†gHc¿gio ¿gool g ¿ggg ™0˜ŒDEFNODE PROGN-NODE™˜“€T™?™‚7"™‚8O™‚9J™‚:E™I9™8(™I™I ™‚™‚2˜“˜“™I™‚<˜“™I™‚<˜“™I™‚<˜“™I™‚<˜“™I™‚<-˜“™‚<™‚<™‚<™‚<™‚<˜“™‚C™I˜’Œ MAKE-PROGN™$˜“™‚E™‚F™‚G™‚H™‚ᙂJ€™8˜’ŒPROGN-™$˜“™‚˜’ŒPROGN-P™$™‚N€€€˜“˜“™‚E€€™‚–˜’Œ PROGN-META-P™$˜“™‚F€€™‚—˜’Œ PROGN-SUBST-P™$˜“™‚G€€™‚˜˜’Œ PROGN-EFFECTS™$˜“™‚H€€™‚™˜’ŒPROGN-AFFECTED™$˜“™‚က™‚š˜’Œ PROGN-STMTS™$€€™‚œ€€€€€œ™‚¡˜–@Ù‚¡™˜“˜“˜ŒOBJECT™I˜–g ¿g ™‚”™˜“€™‚b™‚c ™I™Iœ™‚˜–‚žgµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿gµ h_¿h_¿‡a_¿i_¿`_¿I•OH¿K•OJ¿M•OL¿O•ON¿O–OO¿O™‚ ‚ÿÿÿÿ™˜“˜“™‚f™‚g™‚h™‚i™‚j™‚ýg˜’ŒPROGN-NODETYPE#™$M™‚ý7™‚j%™‚i™‚h™‚g˜–ZQ¸gQ‘H†gHc¿gio ¿goolg ¿ggg ™0˜ŒDEFNODE PROGV-NODE™˜“€T™?™‚7"™‚8O™‚9J™‚:E™J9™8(™J™J ˜ŒPROGV™‚»2˜“˜“™J™‚<˜“™J™‚<˜“™J™‚<˜“™J™‚<˜“™J™‚<˜“™J ™‚<˜“™J ™‚<-˜“™‚<™‚<™‚<™‚<™‚<™‚<™‚<˜“™‚C™J˜’Œ MAKE-PROGV™$˜“™‚E™‚F™‚G™‚H˜’Œ SYMS-EXPR™$˜’Œ VALS-EXPR™$™‚^™‚J€™8˜’ŒPROGV-™$˜“™‚Ř’ŒPROGV-P™$™‚N€€€˜“˜“™‚E€€™‚¼˜’Œ PROGV-META-P™$˜“™‚F€€™‚½˜’Œ PROGV-SUBST-P™$˜“™‚G€€™‚¾˜’Œ PROGV-EFFECTS™$˜“™‚H€€™‚¿˜’ŒPROGV-AFFECTED™$˜“™‚Æ€€™‚À˜’ŒPROGV-SYMS-EXPR™$˜“™‚Ç€€™‚Á˜’ŒPROGV-VALS-EXPR™$˜“™‚^€€™‚˜’Œ PROGV-STMT™$€€™‚Ä€€€€€œ™‚˘–@Ù‚Ë™˜“˜“˜ŒOBJECT™J˜–g ¿g ™‚¹™˜“€™‚b™‚c ™J™Jœ™‚Ř–‚ægµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿`_¿I•OH¿K•OJ¿M•OL¿O•ON¿O–OO¿O–OO ¿O–OO ¿O™‚Å‚ÿÿÿÿ™˜“˜“™‚f™‚g™‚h™‚i™‚j˜Œ SYMS-EXPR˜Œ VALS-EXPR™‚‚›˜’ŒPROGV-NODETYPE#™$‚™‚g™‚äM™‚ã7™‚j%™‚i™‚h™‚g˜–ZQ¸gQ‘H†gHc¿gio ¿gool g ¿ggg ™0˜ŒDEFNODE RETURN-NODE™˜“€T™?™‚7"™‚8O™‚9J™‚:E™K9™8(™K™K ˜ŒRETURN™‚ë2˜“˜“™K™‚<˜“™K™‚<˜“™K™‚<˜“™K™‚<˜“™K™‚<˜“™K ™‚<-˜“™‚<™‚<™‚<™‚<™‚<™‚<˜“™‚C™K˜’Œ MAKE-RETURN™$˜“™‚E™‚F™‚G™‚H™‚K™‚û™‚J€™8˜’ŒRETURN-™$˜“™‚ô˜’ŒRETURN-P™$™‚N€€€˜“˜“™‚E€€™‚옒Œ RETURN-META-P™$˜“™‚F€€™‚혒ŒRETURN-SUBST-P™$˜“™‚G€€™‚ŒRETURN-EFFECTS™$˜“™‚H€€™‚ŒRETURN-AFFECTED™$˜“™‚K€€™‚𘒌 RETURN-BLOCK™$˜“™‚û€€™‚ñ˜’Œ RETURN-VALUE™$€€™‚ó€€€€€œ™‚ø˜–@Ù‚ø™˜“˜“˜ŒOBJECT™K˜–g ¿g ™‚陘“€™‚b™‚c ™K™Kœ™‚ô˜–‚Âgµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿`_¿I•OH¿K•OJ¿M•OL¿O•ON¿O–OO¿O–OO ¿O™‚ô ‚ÿÿÿÿ™˜“˜“™‚f™‚g™‚h™‚i™‚j˜ŒBLOCK™‚‚˜’ŒRETURN-NODETYPE#™$g™‚M™‚7™‚j%™‚i™‚h™‚g˜–ZQ¸gQ‘H†gHc¿gio ¿gool g ¿ggg ™0˜ŒDEFNODE SETQ-NODE™˜“€T™?™‚7"™‚8O™‚9J™‚:E™L9™8(™L™L ˜ŒSETQ™‚2˜“˜“™L™‚<˜“™L™‚<˜“™L™‚<˜“™L™‚<˜“™L™‚<˜“™L ™‚<-˜“™‚<™‚<™‚<™‚<™‚<™‚<˜“™‚C™L˜’Œ MAKE-SETQ™$˜“™‚E™‚F™‚G™‚H˜’ŒVAR™$™‚û™‚J€™8˜’ŒSETQ-™$˜“™‚˜’ŒSETQ-P™$™‚N€€€˜“˜“™‚E€€™‚˜’Œ SETQ-META-P™$˜“™‚F€€™‚˜’Œ SETQ-SUBST-P™$˜“™‚G€€™‚˜’Œ SETQ-EFFECTS™$˜“™‚H€€™‚˜’Œ SETQ-AFFECTED™$˜“™‚€€™‚˜’ŒSETQ-VAR™$˜“™‚û€€™‚˜’Œ SETQ-VALUE™$€€™‚€€€€€œ™‚#˜–@Ù‚#™˜“˜“˜ŒOBJECT™L˜–g ¿g ™‚™˜“€™‚b™‚c ™L™Lœ™‚˜–‚Âgµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿`_¿I•OH¿K•OJ¿M•OL¿O•ON¿O–OO¿O–OO ¿O™‚ ‚ÿÿÿÿ™˜“˜“™‚f™‚g™‚h™‚i™‚j˜ŒVAR™‚‚˜’ŒSETQ-NODETYPE#™$g™‚M™‚97™‚j%™‚i™‚h™‚g˜–ZQ¸gQ‘H†gHc¿gio ¿goolg ¿ggg ™0˜ŒDEFNODE TAGBODY-NODE™˜“€T™?™‚7"™‚8O™‚9J™‚:E™M9™9(™M™M ™‚™‚2˜“ ˜“™M™‚<˜“™M™‚<˜“™M™‚<˜“™M™‚<˜“™M™‚<˜“™M ™‚<˜“™M ™‚<˜“™M™‚<˜“™M™‚<˜“™M™‚<˜“™M™‚<˜“™M™‚<-˜“ ™‚<™‚<™‚<™‚<™‚<™‚<™‚<™‚<™‚<™‚<™‚<™‚<˜“™‚C™M˜’Œ MAKE-TAGBODY™$˜“ ™‚E™‚F™‚G™‚H™‚€™‚™‚‚˜’ŒSEGMENTS™$™‚`™‚a™‚b™‚d™‚J€™9˜’ŒTAGBODY-™$˜“™‚N˜’Œ TAGBODY-P™$™‚N€€€˜“ ˜“™‚E€€™‚@˜’ŒTAGBODY-META-P™$˜“™‚F€€™‚A˜’ŒTAGBODY-SUBST-P™$˜“™‚G€€™‚B˜’ŒTAGBODY-EFFECTS™$˜“™‚H€€™‚C˜’ŒTAGBODY-AFFECTED™$˜“™‚€€€™‚D˜’ŒTAGBODY-REFERENCES™$˜“™‚€€™‚E˜’ŒTAGBODY-CLOSED-OVER-P™$˜“™‚‚€€™‚F˜’ŒTAGBODY-NEW-FRAME-P™$˜“™‚O€€™‚G˜’ŒTAGBODY-SEGMENTS™$˜“™‚`€€™‚H˜’ŒTAGBODY-CLOSED-OVER-VARS™$˜“™‚a€€™‚I˜’Œ TAGBODY-FRAME™$˜“™‚b€€™‚J˜’ŒTAGBODY-BLIP-VAR™$˜“™‚d€€™‚K˜’ŒTAGBODY-STK-NUM™$€€™‚M€€€€€œ™‚S˜–@Ù‚S™˜“˜“˜ŒOBJECT™M˜–g ¿g ™‚>™˜“€™‚b™‚c ™M™Mœ™‚N˜–‚šgµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿gµ h_ ¿h_"¿‡a_ ¿i_"¿gµ h_$¿h_&¿‡a_$¿i_&¿gµ h_(¿h_*¿‡a_(¿i_*¿gµ h_,¿h_.¿‡a_,¿i_.¿`_0¿I•O0H¿K•O0J¿M•O0L¿O•O0N¿O–O0O¿O–O0O ¿O–O0O ¿O–O0O¿O"–O0O ¿O&–O0O$¿O*–O0O(¿O.–O0O,¿O0™‚N‚ÿÿÿÿ™˜“˜“ ™‚f™‚g™‚h™‚i™‚j™‚Ÿ™‚ ™‚¡˜ŒSEGMENTS™‚’™‚“™‚”™‚– ‚˜’ŒTAGBODY-NODETYPE#™$‚™‚–‚陂”‚Ï™‚“‚µ™‚’‚›™‚u‚™‚¡g™‚ M™‚Ÿ7™‚j%™‚i™‚h™‚g˜–ZQ¸gQ‘H†gHc¿gio ¿gool g ¿ggg ™0˜ŒDEFNODE THROW-NODE™˜“€T™?™‚7"™‚8O™‚9J™‚:E™N9™8(™N™N ˜ŒTHROW™‚|2˜“˜“™N™‚<˜“™N™‚<˜“™N™‚<˜“™N™‚<˜“™N™‚<˜“™N ™‚<-˜“™‚<™‚<™‚<™‚<™‚<™‚<˜“™‚C™N˜’Œ MAKE-THROW™$˜“™‚E™‚F™‚G™‚H™‚Û™‚û™‚J€™8˜’ŒTHROW-™$˜“™‚…˜’ŒTHROW-P™$™‚N€€€˜“˜“™‚E€€™‚}˜’Œ THROW-META-P™$˜“™‚F€€™‚~˜’Œ THROW-SUBST-P™$˜“™‚G€€™‚˜’Œ THROW-EFFECTS™$˜“™‚H€€™‚€˜’ŒTHROW-AFFECTED™$˜“™‚Û€€™‚˜’Œ THROW-TAG™$˜“™‚û€€™‚‚˜’Œ THROW-VALUE™$€€™‚„€€€€€œ™‚‰˜–@Ù‚‰™˜“˜“˜ŒOBJECT™N˜–g ¿g ™‚z™˜“€™‚b™‚c ™N™Nœ™‚…˜–‚Âgµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿`_¿I•OH¿K•OJ¿M•OL¿O•ON¿O–OO¿O–OO ¿O™‚… ‚ÿÿÿÿ™˜“˜“™‚f™‚g™‚h™‚i™‚j™‚ý™‚‚˜’ŒTHROW-NODETYPE#™$g™‚M™‚ý7™‚j%™‚i™‚h™‚g˜–ZQ¸gQ‘H†gHc¿gio ¿gool g ¿ggg ™0˜ŒDEFNODE UNWIND-PROTECT-NODE™˜“€T™?™‚7"™‚8O™‚9J™‚:E™O9™8(™O™O ˜ŒUNWIND-PROTECT™‚¥2˜“˜“™O™‚<˜“™O™‚<˜“™O™‚<˜“™O™‚<˜“™O™‚<˜“™O ™‚<-˜“™‚<™‚<™‚<™‚<™‚<™‚<˜“™‚C™O˜’ŒMAKE-UNWIND-PROTECT™$˜“™‚E™‚F™‚G™‚H™‚^˜’ŒCLEANUP™$™‚J€™8˜’ŒUNWIND-PROTECT-™$˜“™‚®˜’ŒUNWIND-PROTECT-P™$™‚N€€€˜“˜“™‚E€€™‚¦˜’ŒUNWIND-PROTECT-META-P™$˜“™‚F€€™‚§˜’ŒUNWIND-PROTECT-SUBST-P™$˜“™‚G€€™‚¨˜’ŒUNWIND-PROTECT-EFFECTS™$˜“™‚H€€™‚©˜’ŒUNWIND-PROTECT-AFFECTED™$˜“™‚^€€™‚ª˜’ŒUNWIND-PROTECT-STMT™$˜“™‚¯€€™‚«˜’ŒUNWIND-PROTECT-CLEANUP™$€€™‚­€€€€€œ™‚³˜–@Ù‚³™˜“˜“˜ŒOBJECT™O˜–g ¿g ™‚£™˜“€™‚b™‚c ™O™Oœ™‚®˜–‚Âgµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿`_¿I•OH¿K•OJ¿M•OL¿O•ON¿O–OO¿O–OO ¿O™‚® ‚ÿÿÿÿ™˜“˜“™‚f™‚g™‚h™‚i™‚j™‚˜ŒCLEANUP‚˜’ŒUNWIND-PROTECT-NODETYPE#™$g™‚ÉM™‚7™‚j%™‚i™‚h™‚g˜–ZQ¸gQ‘H†gHc¿gio ¿gool g ¿ggg ™0˜ŒDEFNODE VAR-REF-NODE™˜“€T™?™‚7"™‚8O™‚9J™‚:E™P9™8(™P™P ˜’ŒVAR-REF™$™‚Ð2˜“˜“™P™‚<˜“™P™‚<˜“™P™‚<˜“™P™‚<˜“™P™‚<-˜“™‚<™‚<™‚<™‚<™‚<˜“™‚C™P˜’Œ MAKE-VAR-REF™$˜“™‚E™‚F™‚G™‚H™‚Þ™‚J€™8˜’ŒVAR-REF-™$˜“™‚ؘ’Œ VAR-REF-P™$™‚N€€€˜“˜“™‚E€€™‚ј’ŒVAR-REF-META-P™$˜“™‚F€€™‚Ò˜’ŒVAR-REF-SUBST-P™$˜“™‚G€€™‚Ó˜’ŒVAR-REF-EFFECTS™$˜“™‚H€€™‚Ô˜’ŒVAR-REF-AFFECTED™$˜“™‚Þ€€™‚Õ˜’ŒVAR-REF-VARIABLE™$€€™‚×€€€€€œ™‚ܘ–@Ù‚Ü™˜“˜“˜ŒOBJECT™P˜–g ¿g ™‚Ι˜“€™‚b™‚c ™P™Pœ™‚ؘ–‚žgµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿gµ h_¿h_¿‡a_¿i_¿`_¿I•OH¿K•OJ¿M•OL¿O•ON¿O–OO¿O™‚Ø ‚ÿÿÿÿ™˜“˜“™‚f™‚g™‚h™‚i™‚j™‚$g˜’ŒVAR-REF-NODETYPE#™$M™‚$7™‚j%™‚i™‚h™‚g˜–>gh ¿gh ¿o ¿ggo ˜ŒDEFCONSTANT *LITERALLY-NIL*™˜“€8™‚®#™‚¬™‚ú˜’Œ SET-CONSTANTP™ .™‚Þ)™R™R ™‚™R3˜ŒYThe LITERAL structure to be used for all occurences of NIL, in order to save allocations.˜“˜’ŒCONSTANT™‚6™R˜–>gh ¿gi ¿o ¿ggo ˜ŒDEFCONSTANT *LITERALLY-T*™˜“€8™‚®#™‚¬™‚ú™‚ö.™‚Þ)™S™S ™‚™S3˜ŒMThe LITERAL structure to be used for all occurences of T, to save allocations˜“™‚ø™Sœ˜’Œ!expand-MAKE-REFERENCE-TO-VARIABLE™$˜–@¸gggHh™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚ ™‚$™‚ؘ–&gg ¿ggo ˜Œ#DEFMACRO MAKE-REFERENCE-TO-VARIABLE™˜“€ ™ ™‚홂î™U™‚™U˜“™‚Ò˜ŒARGSœ˜’Œexpand-NODE-DISPATCH™$˜–‚…@X¹HZ»J\½ggKhhggW¾h_¿h_¿h_¿N£O°BN_ hIoO gMh_¿O˜OO&_¿ˆOh__¿N¾°¼h ™0™‚ ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTQ™-B™,V˜’Œ$$NODE$$™$$™‚˜Œ ETYPECASE™‚˜ŒLETJ˜Œ-˜–&gg ¿ggo ˜ŒDEFMACRO NODE-DISPATCH™˜“€ ™ ™‚홂î™W™‚ ™W˜“˜ŒPREFIX˜ŒNODE™‚Ò˜ŒARGSœ™\˜–‚D@‘i€h¢±;@h¿@h¿@¸@¹@º@ÖH JÖH JÖH JÖH JÖH JÖH JÖH JÖH JÖH JÖH JÖH JÖH JÖH JÖH JÖH JÖH JÖH JÖH JÖH hgIoh h™\™˜“˜“˜ŒTREE‚<™‚r‚(™b‚™c‚ ™d‚þ™e‚ð™f‚â™g‚Ô™h‚Æ™i‚¸™j‚ª™k‚œ™l‚Ž™m‚€™nr™od™pV™qH™r:™s,™t‚/™‚‚!™>‚™?‚™@‚÷™A‚é™B‚Û™C‚Í™D‚¿™E‚±™F‚£™G‚•™H‚‡™Iy™Jk™K]™LO™MA™N3™O%™P™8 ™8‚5˜“˜ŒOR˜“™P˜“™O˜“™N˜“™M˜“™L˜“™K˜“™J˜“™I˜“™H˜“™G˜“™F˜“™E˜“™D˜“™C˜“™B˜“™A˜“™@˜“™?˜“™>œ˜’Œexpand-DELETEF™$˜–@X¹HºgJIh™‚5™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™_˜–&gg ¿ggo ˜ŒDEFMACRO DELETEF™˜“€ ™ ™‚홂î™^™‚5™^˜“˜ŒITEM˜ŒPLACEœ˜’Œexpand-DELETEF-1™$˜–‚¹@X¹HZ»IA \½L^_¿N__¿O__¿O_¿gM_¿O_¿h_¿h_ ¿h_"¿O‘h€i_$’O$…O‘h€i“O°1OOh_"¿O˜O O"&_ ¿ˆO"h_ _¿O_¿O_¿°¼OgOKhhh Oh™‚A™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚­˜ŒAPPEND˜•Œ\MVLIST ˜ŒGET-SETF-METHOD‚œ™`9˜ŒLET*˜–&gg ¿ggo ˜ŒDEFINE-MODIFY-MACRO DELETEF-1™˜“€ ™ ™‚홂î™_™‚A™_˜“˜ŒSI::%$$MODIFY-MACRO-FORM˜ŒITEM™‚/˜ŒSI::%$$MODIFY-MACRO-ENVIRONMENTœ˜’Œexpand-DELETEF-2™$˜–@X¹HºgJIh™‚R™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ˜ŒDELETE˜–&gg ¿ggo ˜ŒDEFMACRO DELETEF-2™˜“€ ™ ™‚홂î™`™‚R™`˜“˜ŒPLACE˜ŒITEMœ™b˜–!@h¿@h¿@ ™b™˜“˜“˜ŒNODE™\™‚y ™>™>œ™c˜–&@ ¿@ X¹I¡HI ¿I¹°ñ™c™˜“˜“˜ŒNODE™\™‚º™\™‚¸œ™d˜–#@h¿@ ¿@ ™d™˜“˜“˜ŒNODE™\™‚ð™\ ™‚î™@œ™e˜–@Xh¿h™e™˜“˜“˜ŒNODE™Aœ™f˜–%@ ¿@ ¿@ ™f™˜“˜“˜ŒNODE™\™‚M™\™‚K™\™‚Iœ™g˜–2@ ¸H¡°HYh¿I ¿H¸°ä@ ™g™˜“˜“˜ŒNODE,™\'™‚|™\™‚z™<œ™h˜–‚É@h¿@h¿@ ¸H¡°HYh¿H¸°í@ ¸H¡°0H¹Ih¿I ¿IœIh¿H¸°Ð@ ž@ h¿@ ¸H¡°4H¹Ih¿I ¿IIh¿H¸°Ì@ ™h™˜“˜“˜ŒNODE ‚Ù\‚¾™‚Í‚ž™\‚™‚Ér™‚Çk™‚ÇM™\2™‚Å™‚¯™<‚‘™™‚Œ0™‚"™‚Ž™‚‚™‚‚ ™>‚û™?‚í™@‚ß™A‚Ñ™B‚ÙC‚µ™D‚§™E‚™™F‚‹™G}™Ho™Ia™JS™KE™L7™M)™N™O ™P‚˜“™‚˜“™P˜“™O˜“™N˜“™M˜“™L˜“™K˜“™J˜“™I˜“™H˜“™G˜“™F˜“™E˜“™D˜“™C˜“™B˜“™A˜“™@˜“™?˜“™>˜–o ¿g X‘Hhc™{˜ŒDEFVAR *COPY-NODE-TABLE*™˜“€™‚«™‚¬ ™{˜“™‚à™{œ™}˜–1g@ ¸@QH ¿H@ ¿H™{™}™˜“˜“˜ŒNODE'™y"™‚y™‚¨ ™‚]™‚w™>™‚?œ™~˜–'g@ g@ ™~™˜“˜“˜ŒNODE!™‚§™‚‘™‚º ™y™‚¸™‚Æ™‚Åœ™˜–'g@ g@ ™™˜“˜“˜ŒNODE!™‚Ú™y™‚ð ™y™‚™‚ýœ™‚€˜–.@ Q ¸gH‘H…@ g@ ™{™‚€™˜“˜“˜ŒNODE(™‚ #™‚™‚™‚ª™‚™‚ý™‚(œ™‚˜–8g@ g@ g@ ™‚™˜“˜“˜ŒNODE2™‚9,™y'™‚M™y™‚K ™y™‚I!™‚Z™‚Y™‚Xœ™‚‚˜–‚žX@ ¹hºh»h¼I¢J°I]H ¼J”KL&»„Lh[ºI¹°á¹@ ºh»h¼h½h¾h_¿J_’O°.¾I_’O°"_N ½L”LM&¼„Mh\»JºI¹°ÌK¿H@  ¿H™‚‚ ™˜“˜“˜ŒNODE‚”™y‚™‚|i™‚ƒ<™‚z#™‚’ ™‚z™‚k‚‰™C™Cœ™‚ƒ˜–‚6g@ g@ g@ g@ X@ ¹hºh»h¼I¢J°I]H ¼J”KL&»„Lh[ºI¹°â¿H@ ¹hºh»h¼I¢J°5I½MH M MH h¼J”KL&»„Lh[ºI¹°Ê¿H@ H ¿H@ ¹hºh»h¼I¢J°;I½MMH M MH h¼J”KL&»„Lh[ºI¹°Ä¿H@ ¿H™‚ƒ™˜“˜“˜ŒNODE‚,™y‚'™‚Í‚™‚’‚ö™y‚홂’‚Ó™‚É‚Ä™‚’‚¾™‚Ç‚™™‚’‚™y‚‡™‚’p™‚ÅO™‚’:™‚Ã.™‚¦(™‚Ë™‚Á™‚¿™‚½ ‚!™D‚Í™D‚¸™Dj™D4™D"™‚虂㠙‚♂?œ™‚„˜–g@ ™‚„™˜“˜“˜ŒNODE ™‚ú™‚™‚œ™‚…˜–'g@ g@ ™‚…™˜“˜“˜ŒNODE!™‚$™‚‘™‚6 ™y™‚4™‚A™‚Åœ™‚†˜–g@ ™‚†™˜“˜“˜ŒNODE™‚P ™‚‘™‚]™‚ýœ™‚‡˜–g@ ™‚‡™˜“˜“˜ŒNODE™‚v ˜Œ COPY-LIST™‚„™‚œ™‚ˆ˜–g@ ™‚ˆ™˜“˜“˜ŒNODE™‚ ™‚‘™‚ª™‚ýœ™‚‰˜–8g@ g@ g@ ™‚‰™˜“˜“˜ŒNODE2™‚Å,™y'™‚Ø™y™‚Ö ™y™‚Ô!™‚™‚䙂㜙‚Š˜–3@ Q ¸gH‘H…@ g@ ™{™‚Š™˜“˜“˜ŒNODE-™‚ô(™y#™‚™‚™‚ª™‚™‚™‚œ™‚‹˜–'g@ g@ ™‚‹™˜“˜“˜ŒNODE!™‚™y™‚. ™‚“™‚,™‚™‚9œ™‚Œ˜–f¸@VH ¿H@ ¹hºh»h¼I¢J°;I½gMÉgMÉ ¼J”KL&»„Lh[ºI¹°Ä¿H™{™‚Œ™˜“˜“˜ŒNODEJ™‚ßE™‚‘™‚b ™‚¨™‚N>™;8™‚ý1™;+™‚ü™Mœ™‚˜–'g@ g@ ™‚™˜“˜“˜ŒNODE!™‚…™y™‚” ™y™‚’™‚™‚ýœ™‚Ž˜–'g@ g@ ™‚Ž™˜“˜“˜ŒNODE!™‚®™y™‚¾ ™y™‚¼™‚É™‚œ™‚˜–g@ ™‚™˜“˜“˜ŒNODE™‚Ø ™‚“™‚噂$œ™‚‘˜–'@¸h¹hºh»H¡IH\ »I”JK&º„KhZ¹H¸°ä™‚‘™˜“˜“˜ŒNODES™yœ™‚’˜–A@²=@Pg@Ég@Ég@ÉgA  h™{™‚’™˜“˜“˜ŒVAR˜ŒBINDER9™‚¨4™‚-™‚@&™< ™‚>™<™‚= ™<™‚?œ™‚“˜–%g@Éðœ@Q X‘H@@h ™{™‚“™˜“˜“˜ŒVAR™‚’™‚ª™<™‚!˜–"o ¿o ¿o ˜Œ3 top-level forms™˜“€˜•ŒPUTPROPS™‚'™‚'˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚‚ÂÄ‚Æ ˜“™™‚œ˜“™ ˜ŒXCL™ ˜“™˜ŒCOMPILER˜“™˜ŒLISP˜ŒXCL˜“™™‚˜˜Œ COMPILE-FILEš‚7ÿÿ