‘XCL Compiler output for source file {DSK}export>lispcore>sources>CLTL2>XCL-EXTRAS.;1 Source file created Friday, 22 October 1993, 15:34:48. FASL file created Wednesday, 10 November 1993, 18:31:06. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜ŒXCL˜Œ{Null}˜–o ¿o˜Œ2 top-level forms™˜“€˜•Œ FILECREATED˜•ŒXCL-EXTRASCOMS ˜“ ˜“˜•Œ*˜•Œ;;˜Œ$ Finess the define-file-info problem˜“˜•Œ DEFINE-TYPES˜’ŒFILE-ENVIRONMENTS˜‘˜ŒXEROX-COMMON-LISP˜“˜•Œ FUNCTIONS˜’ŒDEFINE-FILE-ENVIRONMENT™˜“™™˜ŒMacro for writing macros ˜“™˜’Œ ONCE-ONLY™˜“™™˜ŒCL veneer on IL record module˜“™˜’Œ RECORD-FETCH™˜’Œ SETF-FETCH™˜’Œ RECORD-FFETCH™˜’Œ SETF-FFETCH™˜’Œ RECORD-CREATE™˜“˜•ŒSETFS™&™(˜“™™˜Œ!An alternate version of the above˜“™˜’Œ DEFINE-RECORD™˜“™˜’ŒRECORD-ACCESS-MACRO™˜’ŒSETF-RECORD-ACCESS-MACRO™˜’ŒRECORD-PREDICATE-MACRO™˜’ŒRECORD-CONSTRUCTOR-MACRO™˜“˜•ŒPROP˜“˜•ŒFILETYPE˜•ŒMAKEFILE-ENVIRONMENT˜•Œ XCL-EXTRAS˜“˜Œ18-Oct-93 17:14:46˜Œ4{Pele:mv:envos}Sources>CLTL2>XCL-EXTRAS.;2‚;±˜•Œprevious˜•Œdate:˜Œ 3-Sep-91 18:24:26˜Œ4{Pele:mv:envos}Sources>CLTL2>XCL-EXTRAS.;1˜–‚"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 FILE-ENVIRONMENTS™˜“€ ‚˜•ŒPUTPROP‚™K‚ò™K‚Ý™K‚È™K‚˜ŒPUTHASH‚˜˜ŒMAKE-HASH-TABLEn˜•ŒGETHASHV˜ŒBOUNDPK˜ŒPROCLAIM>˜ŒADJOIN&™Q˜•Œ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™ad™^˜’ŒCHANGEDFILE-ENVIRONMENTSLST™Q™b9™_4™`!™_™`™™F˜“˜’ŒGLOBAL™™b.˜“™b™˜Œ File info˜“™˜’ŒX™˜“˜•ŒP™˜“˜’Œ%DEFINE-TYPE-FILE-DEFINITIONS™˜“˜ŒQUOTE™˜“™j™g ™e˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜Œ"DEFDEFINER DEFINE-FILE-ENVIRONMENT™˜“€A™K™K :™0™)˜Œ DEFINED-BY ™™s™ ™˜Œ DEFINER-FOR™œ˜’Œ+definition-expander-DEFINE-FILE-ENVIRONMENT™˜–‚$@X¹HZ»h¼gJ \’L€h½gK \’L€h¾gK \’L€h_¿gK \’L€h_¿Ko ¿I o _¿goM‘M…N‘NO²ZgggOhogM™gMh€hN™gNh€hOšgOh€h hhh€hO².gggOhogOhhh€h ™v ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ‚˜ŒAPPEND‚Û™{t˜ŒINTERNo˜Œ FIND-PACKAGEe˜ŒSTRING^˜•Œ KEYWORD-TESTJ˜•Œ FIND-KEYWORD6™‚€$™‚€™‚€‚ ™j‚ù™j‚ô˜ŒGET‚SETF‚ϘŒBASE‚Á™ ‚´™ ‚­™j‚œ™j‚—™‚‚’™‚‚|˜Œ EVAL-WHEND˜ŒCOMPILER0™‚ƒ™ ™ ‚˜“˜“™j™8‚¦˜“˜“™j™9‚˜“˜ŒEVAL˜ŒLOADj˜Œ INTERLISPY˜“™‚…™‚ƒ™ ™ ˜–Cggg ¿ggg ¿oPgg c˜•ŒPRETTYPRINTMACROS™q™˜“€;™Q%™K™K6™_1™` ˜ŒSECOND˜ŒDEFINITION-NAME™ ™v˜ŒDEFINITION-EXPANDER™+˜”™’ŒPPRINT-DEFINER™œ˜’Œexpand-DEFINE-FILE-ENVIRONMENT™˜–ggg@Ah™‚—™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™™˜’ŒDEFINER™˜–&gg ¿ggo ™q™˜“€ ™K ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES™™‚—™˜“˜Œ&WHOLE˜Œ DEFINITION˜Œ &ENVIRONMENT˜ŒENVœ˜’Œexpand-ONCE-ONLY™˜–‚e@X¹Hº»¼½I¾h_¿h_¿h_¿N£O°yN_¿gggOhgOhhOgKohgKLhgOMhKhh_¿O˜OO&_¿ˆOh__¿N¾°…¾gLMggh_¿h_¿I_¿N_¿O¡°6OOh_¿O˜OO&_¿ˆOh__¿O_¿O_¿O_¿°ÉOJhhgoggggLhoggMhohohoh™‚§ ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜ŒGENSYM™‚¬ ™‚¬‚;˜ŒREVERSE‚6˜’Œ RUN-TIME-VAL™‚&™‚­‚!˜’Œ RUN-TIME-VAR™‚˜ŒDO‚˜’ŒWITH-COLLECTION™‚ ˜ŒLIST‚³˜ŒLET‚®˜’Œ WRAPPED-BODY™‚§˜ŒLET*q˜ŒPUSHf™‚¶X™‚³H˜Œ CONSTANTP>˜ŒSYMBOLP9˜ŒOR4˜ŒIF‚X˜“™‚´‚N˜“˜“˜“˜ŒNULL™‚¯˜“˜’ŒCOLLECT™˜“™‚²˜“˜ŒCAR™‚¯˜“™‚À™‚®‚D˜“˜“˜ŒCDR™‚®‚/˜“˜“™‚Æ™‚¯‚˜“™j™‚³^˜“˜“™‚¬˜–&gg ¿ggo ˜ŒDEFMACRO ONCE-ONLY™˜“€ ™K ™‚Ÿ™‚ ™"™‚§™"˜“˜ŒVARS˜Œ&BODY˜ŒBODYœ˜’Œexpand-RECORD-FETCH™˜–G@X¹HZ»J¼I ` ½K ` ¾gMNhgLh™‚Ö™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT+™|!™~™|™~;˜•Œof1˜•Œfetch&˜•Œ*INTERLISP-PACKAGE*™‚ݘ–&gg ¿ggo ˜ŒDEFMACRO RECORD-FETCH™˜“€ ™K ™‚Ÿ™‚ ™&™‚Ö™&˜“˜ŒRECORD˜ŒFIELD˜ŒOBJECTœ˜’Œexpand-SETF-FETCH™˜–Z@X¹HZ»J\½L¾I ` _¿K ` _¿gOOhgMgNh™‚æ ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT2™|(™~™|™~L˜•ŒwithF™‚Û:˜•Œreplace-™‚Ý™‚ݘ–&gg ¿ggo ˜ŒDEFMACRO SETF-FETCH™˜“€ ™K ™‚Ÿ™‚ ™'™‚æ™'˜“˜ŒRECORD˜ŒFIELD˜ŒOBJECT˜Œ NEW-VALUEœ˜’Œexpand-RECORD-FFETCH™˜–G@X¹HZ»J¼I ` ½K ` ¾gMNhgLh™‚ö™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT+™|!™~™|™~;™‚Û1˜•Œffetch&™‚Ý™‚ݘ–&gg ¿ggo ˜ŒDEFMACRO RECORD-FFETCH™˜“€ ™K ™‚Ÿ™‚ ™(™‚ö™(˜“˜ŒRECORD˜ŒFIELD˜ŒOBJECTœ˜’Œexpand-SETF-FFETCH™˜–Z@X¹HZ»J\½L¾I ` _¿K ` _¿gOOhgMgNh™‚ ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT2™|(™~™|™~L™‚ëF™‚Û:˜•Œfreplace-™‚Ý™‚ݘ–&gg ¿ggo ˜ŒDEFMACRO SETF-FFETCH™˜“€ ™K ™‚Ÿ™‚ ™)™‚™)˜“˜ŒRECORD˜ŒFIELD˜ŒOBJECT˜Œ NEW-VALUEœ˜’Œexpand-RECORD-CREATE™˜–‚¥@X¹HZ»I ` ¼gLh½h¾K_¿K_¿h_¿O¡°lO ` _¿M•NO&¾…Oh^½Oo³M˜Ng&¾ˆgh^½O_¿M•NO&¾…Oh^½O_¿O_¿O_¿°“M™‚ ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTD™|:™~™| ™~o˜•Œ_g™‚?™‚ݘ•Œcreate™‚Ý\˜“˜•ŒUSING˜•ŒCOPYING˜•ŒREUSING˜•ŒSMASHING˜–&gg ¿ggo ˜ŒDEFMACRO RECORD-CREATE™˜“€ ™K ™‚Ÿ™‚ ™*™‚™*˜“˜ŒRECORD˜Œ&REST˜Œ KEYWORD-PAIRS˜–gg ˜ŒDEFSETF RECORD-FETCH™˜“€ ˜ŒSET-SETF-INVERSE™'™&˜–gg ˜ŒDEFSETF RECORD-FFETCH™˜“€ ™‚)™)™(˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜ŒDEFDEFINER DEFINE-RECORD™˜“€A™K™K :™00™0)™s ˜•Œ STRUCTURES™s™‚0 ™‚0™t™0œ˜’Œ!definition-expander-DEFINE-RECORD™˜–‚:nX¿@YºI[Hý¿K\½h¾gL ^’N€h_¿N‘i€h_¿gM ^’N€h_¿N‘i€h_¿gM ^’N€h_¿N‘i€h_¿gM ^’N€h_¿gM ^’NW._¿Mo ¿OéO _¿O²O˜O °o°gJ o _¿HÉ _¿HÉ _ ¿O­oHÉ ¿goO _"¿h_$¿h_&¿h_(¿O"¤O$±ÄO"_*¢±gOO* O _,¿gggO,hhoggO,hogggO,hogHÉO*hOhhhh€h_(¿O&–O&O(¿„O(_$¿O(‘i€h™O( _&¿O"_"¿±ÿ:O“O°gJ o O _"²%Ogð_$“O$°noO €h²NgggO"hhogggO"hogHÉhhh€hO“O°goJ O _"².Oo‘h€i_$“O$°noHO €h²SgggO"hhogggO"hogHÉO hhhh€h ˜Œ *PACKAGE*™‚2™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚2™{‚טŒFIND-IF‚¨™|‚¡˜Œ CONCATENATE‚œ™~‚4™‚8‚™|‚™‚9‚ý™~‚ߘŒLAST‚M™|‚F™‚9‚A™~‚˜ŒERROR‚󘕌RECORDFIELDNAMES‚蘕ŒRECLOOK‚Ý™‚9‚Ó™~‚¿™~‚®™}‚ž™‚‰™‚€u™‚€Y™‚€=™‚€!™‚€#‚™j‚™j‚™‚‚þ™‚‚‚ê™j‚嘌MACRO-FUNCTION‚à™‚‚‚‘™~‚v™j‚e™j‚`™‚‚[™‚‚‚G™j‚B™‚>‚=™‚‚‚˜•ŒDATATYPE‚÷™~‚¤™j‚“™j‚Ž™‚‚‰™‚‚‚x™j‚s˜ŒSET-SHARED-SETF-INVERSE‚_™j‚Z™‚>‚U™‚‚‚8™~‚ ™‚„‚Í™~‚¦˜ŒPACKAGE‚ƒ™ o˜ŒFAST-ACCESSORSS˜Œ PREDICATE7˜Œ CONSTRUCTOR˜Œ CONC-NAME‚˜“˜Œ FIELD-INFO‚÷˜“˜“™j™5‚ɘ–$@‘i€h²@gðY‘I@gð@HÉð˜Œ+lambda in definition-expander-DEFINE-RECORD˜ŒCLOSURE˜“˜“˜ŒCLAUSE™‚ ˜•ŒCREATE‚´˜“˜•Œ BLOCKRECORD˜•Œ ACCESSFNS˜•Œ ATOMRECORD‚–˜ŒMAKE-‚o˜“˜Œ TYPE-INFO‚T˜“˜“™j™4‚+˜– @‘i€h²@gðX‘H@gðh˜Œ+lambda in definition-expander-DEFINE-RECORD™‚K˜“˜“˜ŒCLAUSE˜•Œtype? ˜•ŒTYPE?‚˜Œ-P‚˜“˜Œ SLOT-INFO‚‚˜“˜“™j™3‚l˜“˜“™j™2‚˜“˜ŒCOMPILE™‚‹™‚Š‚þ˜ŒRecord ~s not yet defined.‚ؘŒ-‚ƘŒ‚™˜“™ ™‚B™‚C™‚D™‚E‚Ř•ŒCOMPILED-CLOSURE‚'™‚n˜•Œ \PTRHUNK2˜–Cggg ¿ggg ¿oPgg c™‚™‚.™˜“€;™Q%™K™K6™_1™` ™‚’™‚“™0 ™‚2™‚”™0+˜”™0’ŒPPRINT-DEFINER™œ˜’Œexpand-DEFINE-RECORD™˜–ggg@Ah™‚t™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™0™‚0™‚œ˜–&gg ¿ggo ™‚.™˜“€ ™K ™‚Ÿ™‚ ™0™‚t™0˜“™‚¡˜Œ DEFINITION™‚£˜ŒENVœ™2˜–L@ÁÉg'X‘H‰o X¹HZ²gIg@hgIg@h™2™˜“˜“˜ŒFORM˜Œ &OPTIONAL˜ŒENV™‚;>™‚Û8™‚Ü*™‚Û$™‚û™‚b˜ŒNo slot information cached.œ˜’Œexpand-SETF-RECORD-ACCESS-MACRO™˜–f@X¹HZ»J¼IÁÉg']‘M‰o ]¾M_²gNgKgLhgNgKgLh™‚†™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT#™‚;X™‚ëR™‚ÛL™‚ì>™‚ë8™‚Û2™‚ ™‚b˜ŒNo slot information cached.˜–&gg ¿ggo ˜Œ5CL::DEFINE-SHARED-SETF-MACRO SETF-RECORD-ACCESS-MACRO™˜“€ ™K ™‚Ÿ™‚ ™3™‚†™3˜“˜ŒACCESSOR˜ŒDATUM˜Œ NEW-VALUEœ™4˜–(g@ÁÉg'X‘H‰o @h™4™˜“˜“˜ŒFORM™‚€˜ŒENV™‚; ™‚V™‚^˜ŒNo type information cached.œ™5˜–‚·@ÁÉg'X‘H‰o X¹HºgIh»h¼@]¾M_¿h_¿M¡°vNogg _“O°NJgg _¿K•LO&¼…Oh\»O³K˜Lg&¼ˆgh\»K•LO&¼…Oh\»M]¾M_¿°ŠK™5 ™˜“˜“˜ŒFORM™‚€˜ŒENVh˜ŒMEMBERO™‚ž™‚;‚Ž™‚‚†™‚c˜ŒSTRING=^™`J™‚ŸE™`"™‚™‚F@˜“™‚™‚™‚™‚˜ŒNo field information cached.˜–"o ¿o ¿o ˜Œ3 top-level forms™˜“€˜•ŒPUTPROPS™‚¥™‚¥˜“™;˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚ÂÄ‚Æ‚Ç‚É ˜“™;™9˜“™ ˜ŒXCL™ ˜ŒXCL˜“™;™8˜Œ COMPILE-FILEš‚±ÿÿ