‘XCL Compiler output for source file {DSK}disk2>jdstools>lc3>lispcore3.0>sources>XCL-EXTRAS.;1 Source file created Friday, 18 May 1990, 1:03:51. FASL file created Monday, 26 January 1998, 13:56:12. ÿ˜–#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˜•ŒXCL-EXTRASCOMS˜•Œ FILEDATES˜•Œ XCL-EXTRAS˜“ ˜“˜•Œ*˜•Œ;;˜Œ$ 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™ ˜“˜”˜Œ18-May-90 01:15:40•Œ2{DSK}local>lde>lispcore>sources>XCL-EXTRAS.;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 FILE-ENVIRONMENTS™˜“€ ‚™‚™‚ò™‚Ý™‚È™‚˜ŒPUTHASH‚˜˜ŒMAKE-HASH-TABLEn˜•ŒGETHASHV˜ŒBOUNDPK˜ŒPROCLAIM>˜ŒADJOIN&™M˜•Œ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™^˜’ŒCHANGEDFILE-ENVIRONMENTSLST™Q™^9™[4™\!™[™\™™F˜“˜’ŒGLOBAL™™^.˜“™^™˜Œ File info˜“™˜’ŒX™˜“˜•ŒP™˜“˜’Œ%DEFINE-TYPE-FILE-DEFINITIONS™˜“˜ŒQUOTE™˜“™f™c ™a˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜Œ"DEFDEFINER DEFINE-FILE-ENVIRONMENT™˜“€A™™ :™ 0™ )˜Œ DEFINED-BY ™™o™ ™˜Œ 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 ™r ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ‚˜ŒAPPEND‚Û™wt˜ŒINTERNo˜Œ FIND-PACKAGEe˜ŒSTRING^˜•Œ KEYWORD-TESTJ˜•Œ FIND-KEYWORD6™|$™|™|‚ ™f‚ù™f‚ô˜ŒGET‚SETF‚ϘŒBASE‚Á™ ‚´™ ‚­™f‚œ™f‚—™}‚’™~|˜Œ EVAL-WHEND˜ŒCOMPILER0™™ ™ ‚˜“˜“™f™:‚¦˜“˜“™f™;‚˜“˜ŒEVAL˜ŒLOADj˜Œ INTERLISPY˜“™‚™™ ™ ˜–Cggg ¿ggg ¿oPgg c˜•ŒPRETTYPRINTMACROS™m™˜“€;™M%™™6™[1™\ ˜ŒSECOND˜ŒDEFINITION-NAME™ ™r˜ŒDEFINITION-EXPANDER™ +˜”™ ’ŒPPRINT-DEFINER™œ˜’Œexpand-DEFINE-FILE-ENVIRONMENT™˜–ggg@Ah™‚“™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™ ™˜’ŒDEFINER™˜–&gg ¿ggo ™m™˜“€ ™ ˜•Œ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™‚ª‚/˜“˜“™‚™‚«‚˜“™f™‚¯^˜“˜“™‚¨˜–&gg ¿ggo ˜ŒDEFMACRO ONCE-ONLY™˜“€ ™ ™‚›™‚œ™$™‚£™$˜“˜ŒVARS˜Œ&BODY˜ŒBODYœ˜’Œexpand-RECORD-FETCH™˜–G@X¹HZ»J¼I ` ½K ` ¾gMNhgLh™‚Ò™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT+™x!™z™x™z;˜•Œof1˜•Œfetch&˜•Œ*INTERLISP-PACKAGE*™‚Ù˜–&gg ¿ggo ˜ŒDEFMACRO RECORD-FETCH™˜“€ ™ ™‚›™‚œ™(™‚Ò™(˜“˜ŒRECORD˜ŒFIELD˜ŒOBJECTœ˜’Œexpand-SETF-FETCH™˜–Z@X¹HZ»J\½L¾I ` _¿K ` _¿gOOhgMgNh™‚â ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT2™x(™z™x™zL˜•ŒwithF™‚×:˜•Œreplace-™‚Ù™‚Ù˜–&gg ¿ggo ˜ŒDEFMACRO SETF-FETCH™˜“€ ™ ™‚›™‚œ™)™‚â™)˜“˜ŒRECORD˜ŒFIELD˜ŒOBJECT˜Œ NEW-VALUEœ˜’Œexpand-RECORD-FFETCH™˜–G@X¹HZ»J¼I ` ½K ` ¾gMNhgLh™‚ò™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT+™x!™z™x™z;™‚×1˜•Œffetch&™‚Ù™‚Ù˜–&gg ¿ggo ˜ŒDEFMACRO RECORD-FFETCH™˜“€ ™ ™‚›™‚œ™*™‚ò™*˜“˜ŒRECORD˜ŒFIELD˜ŒOBJECTœ˜’Œexpand-SETF-FFETCH™˜–Z@X¹HZ»J\½L¾I ` _¿K ` _¿gOOhgMgNh™‚ ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT2™x(™z™x™zL™‚çF™‚×:˜•Œfreplace-™‚Ù™‚Ù˜–&gg ¿ggo ˜ŒDEFMACRO SETF-FFETCH™˜“€ ™ ™‚›™‚œ™+™‚™+˜“˜Œ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™x:™z™x ™zo˜•Œ_g™‚?™‚Ù˜•Œcreate™‚Ù\˜“˜•ŒUSING˜•ŒCOPYING˜•ŒREUSING˜•ŒSMASHING˜–&gg ¿ggo ˜ŒDEFMACRO RECORD-CREATE™˜“€ ™ ™‚›™‚œ™,™‚™,˜“˜Œ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™™ :™20™2)™o ˜•Œ STRUCTURES™o™‚, ™‚,™p™2œ˜’Œ!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*™‚.™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚2™w‚טŒFIND-IF‚¨™x‚¡˜Œ CONCATENATE‚œ™z‚4™‚4‚™x‚™‚5‚ý™z‚ߘŒLAST‚M™x‚F™‚5‚A™z‚˜ŒERROR‚󘕌RECORDFIELDNAMES‚蘕ŒRECLOOK‚Ý™‚5‚Ó™z‚¿™z‚®™y‚ž™{‚‰™|u™|Y™|=™|!™|#‚™f‚™f‚™}‚þ™~‚ê™f‚嘌MACRO-FUNCTION‚à™~‚‘™z‚v™f‚e™f‚`™}‚[™~‚G™f‚B™‚:‚=™~‚˜•ŒDATATYPE‚÷™z‚¤™f‚“™f‚Ž™}‚‰™~‚x™f‚s˜ŒSET-SHARED-SETF-INVERSE‚_™f‚Z™‚:‚U™~‚8™z‚ ™‚€‚Í™z‚¦˜ŒPACKAGE‚ƒ™ o˜ŒFAST-ACCESSORSS˜Œ PREDICATE7˜Œ CONSTRUCTOR˜Œ CONC-NAME‚˜“˜Œ FIELD-INFO‚÷˜“˜“™f™7‚ɘ–$@‘i€h²@gðY‘I@gð@HÉð˜Œ+lambda in definition-expander-DEFINE-RECORD˜ŒCLOSURE˜“˜“˜ŒCLAUSE™‚ ˜•ŒCREATE‚´˜“˜•Œ BLOCKRECORD˜•Œ ACCESSFNS˜•Œ ATOMRECORD‚–˜ŒMAKE-‚o˜“˜Œ TYPE-INFO‚T˜“˜“™f™6‚+˜– @‘i€h²@gðX‘H@gðh˜Œ+lambda in definition-expander-DEFINE-RECORD™‚G˜“˜“˜ŒCLAUSE˜•Œtype? ˜•ŒTYPE?‚˜Œ-P‚˜“˜Œ SLOT-INFO‚‚˜“˜“™f™5‚l˜“˜“™f™4‚˜“˜ŒCOMPILE™‚‡™‚†‚þ˜ŒRecord ~s not yet defined.‚ؘŒ-‚ƘŒ‚™˜“™ ™‚>™‚?™‚@™‚A‚Ř•ŒCOMPILED-CLOSURE‚'™‚j˜•Œ \PTRHUNK2˜–Cggg ¿ggg ¿oPgg c™‚Œ™‚*™˜“€;™M%™™6™[1™\ ™‚Ž™‚™2 ™‚.™‚™2+˜”™2’ŒPPRINT-DEFINER™œ˜’Œexpand-DEFINE-RECORD™˜–ggg@Ah™‚p™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™2™‚,™‚˜˜–&gg ¿ggo ™‚*™˜“€ ™ ™‚›™‚œ™2™‚p™2˜“™‚˜Œ DEFINITION™‚Ÿ˜ŒENVœ™4˜–L@ÁÉg'X‘H‰o X¹HZ²gIg@hgIg@h™4™˜“˜“˜ŒFORM˜Œ &OPTIONAL˜ŒENV™‚7>™‚×8™‚Ø*™‚×$™‚÷™‚^˜ŒNo slot information cached.œ˜’Œexpand-SETF-RECORD-ACCESS-MACRO™˜–f@X¹HZ»J¼IÁÉg']‘M‰o ]¾M_²gNgKgLhgNgKgLh™‚‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT#™‚7X™‚çR™‚×L™‚è>™‚ç8™‚×2™‚™‚^˜ŒNo slot information cached.˜–&gg ¿ggo ˜Œ5CL::DEFINE-SHARED-SETF-MACRO SETF-RECORD-ACCESS-MACRO™˜“€ ™ ™‚›™‚œ™5™‚‚™5˜“˜ŒACCESSOR˜ŒDATUM˜Œ NEW-VALUEœ™6˜–(g@ÁÉg'X‘H‰o @h™6™˜“˜“˜ŒFORM™‚|˜ŒENV™‚7 ™‚R™‚Z˜ŒNo type information cached.œ™7˜–‚·@ÁÉ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™7 ™˜“˜“˜ŒFORM™‚|˜ŒENVh˜ŒMEMBERO™‚š™‚7‚Ž™‚‚†™‚c˜ŒSTRING=^™\J™‚›E™\"™‚™‚B@˜“™‚™‚™‚™‚˜ŒNo field information cached.˜–"o ¿o ¿o ˜Œ3 top-level forms™˜“€˜•ŒPUTPROPS™‚¡™‚¡˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚ÂÄ‚Æ ˜“™™;˜“™ ˜ŒXCL™ ˜ŒXCL˜“™™:˜Œ COMPILE-FILEš‚­ÿÿ