‘XCL Compiler output for source file {DSK}sources>FASDUMP.;1 Source file created Friday, 11 January 1991, 16:23:30. FASL file created Sunday, 25 January 1998, 13:18:44. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜ŒFASL˜Œ{Null}˜–!ggo ¿o˜Œ2 top-level forms™˜“€˜•ŒPUTPROP˜•Œ FASDUMPCOMS˜•Œ FILEDATES˜•ŒFASDUMP˜“ ˜“˜•Œ*˜•Œ;;;˜Œ FASL Dumper.˜“˜•ŒDECLARE:˜•Œ EVAL@COMPILE˜•Œ EVAL@LOAD˜•ŒDONTCOPY˜“˜•ŒFILES˜“˜•ŒLOADCOMP˜•ŒFASLOAD˜“˜•Œ STRUCTURES˜’ŒHANDLE˜‘˜ŒFASL˜“˜•Œ VARIABLES˜’Œ DUMMY-HANDLE™&˜“™)˜’Œ+SMALLEST-FOUR-BYTE-INTEGER+™&˜’Œ+LARGEST-FOUR-BYTE-INTEGER+™&˜“™)˜’Œ*GATHER-DUMPER-STATS*™&˜’Œ*TABLE-ATTEMPTS*™&˜’Œ *TABLE-HITS*™&˜“˜•Œ FUNCTIONS˜’ŒRESET-DUMPER-STATS™&˜“ ™3˜’ŒDOTTED-LIST-LENGTH™&˜’Œ STATE-CASE™&˜’Œ FAT-STRING-P™&˜’ŒREMEMBER™&˜’ŒELEMENTS-IDENTICAL-P™&˜’Œ END-BLOCK™&˜’ŒEND-TEXT™&˜’ŒWRITE-OP™&˜’Œ LOOKUP-VALUE™&˜’Œ SAVE-VALUE™&˜“™3˜’ŒDUMP-VALUE-FETCH™&˜’ŒDUMP-CHARACTER™&˜’Œ DUMP-SYMBOL™&˜’Œ DUMP-LIST™&˜’ŒDUMP-SIMPLE-VECTOR™&˜’ŒDUMP-ARRAY-DESCRIPTOR™&˜’ŒDUMP-BIT-ARRAY™&˜’ŒDUMP-GENERAL-ARRAY™&˜’Œ DUMP-ARRAY™&˜’ŒWRITE-INTEGER-BYTES™&˜’ŒINTEGER-BYTE-LIST™&˜’Œ DUMP-RATIONAL™&˜’Œ DUMP-COMPLEX™&˜’Œ DUMP-INTEGER™&˜’Œ DUMP-PACKAGE™&˜’Œ DUMP-DCODE™&˜’Œ DUMP-STRING™&˜’Œ DUMP-FLOAT32™&˜’ŒDUMP-STRUCTURE™&˜’Œ DUMP-BITMAP™&˜“ ™3˜’ŒOPEN-FASL-HANDLE™&˜’ŒWITH-OPEN-HANDLE™&˜’Œ BEGIN-TEXT™&˜’Œ BEGIN-BLOCK™&˜’ŒVALUE-DUMPABLE-P™&˜’Œ DUMP-VALUE™&˜’ŒDUMP-FUNCTION-DEF™&˜’Œ DUMP-FUNCALL™&˜’Œ DUMP-EVAL™&˜’ŒCLOSE-FASL-HANDLE™&˜“™˜•Œ;;˜Œ9Arrange for the correct compiler and makefile environment˜“˜•ŒPROP˜“˜•ŒFILETYPE˜•ŒMAKEFILE-ENVIRONMENT™ ˜“˜”˜Œ11-Jan-91 16:21:54•Œ+{PELE:MV:ENVOS}SOURCES>FASDUMP.;3˜–Dgio ¿goolg ¿ggg ˜ŒDEFSTRUCT HANDLE™˜“€>™)˜’Œ%STRUCTURE-DECLARE-DATATYPE˜‘˜ŒSYSTEM ˜ŒSET-PARSED-STRUCTURE9˜ŒTYPE-EXPAND-STRUCTURE4˜Œ TYPE-EXPANDER/™'#˜ŒSTRUCTURE-OBJECT™'™'˜“˜“™'˜•ŒPOINTER˜“™'™w˜“™'™w˜“™'™w˜“™w™w™w™w˜“˜ŒPS™'˜’Œ MAKE-HANDLE™&˜“˜ŒSTREAM˜’ŒSTATE™&˜’Œ LAST-INDEX™&˜’ŒHASH™&˜ŒDATATYPE€€˜ŒHANDLE-˜“™˜’ŒHANDLE-P™&˜ŒDEFAULT-STRUCTURE-PRINTER˜’Œ COPY-HANDLE™&€€˜“˜“™‚€€€™x˜’Œ HANDLE-STREAM™&˜“™‚˜Œ BLOCK-END€™y˜’Œ HANDLE-STATE™&˜“™‚‚€™z˜’ŒHANDLE-LAST-INDEX™&˜“™‚ƒ˜“˜ŒMAKE-HASH-TABLE˜ŒTEST˜“˜ŒFUNCTION˜ŒEQ€™{˜’Œ HANDLE-HASH™&€€™}€˜“˜ŒACCESSOR˜Œ PREDICATE€€€œ™‚ˆ˜–@Ù‚ˆ™˜“˜“˜ŒOBJECT™'˜–"g ¿g ¿g ™n™˜“€˜ŒESTABLISH-SETFS-AND-OPTIMIZERS˜ŒESTABLISH-ACCESSORS˜ŒESTABLISH-PREDICATE™' ™'™'œ™˜–sgµh¸h¹ƒa¸i¹gµ gºaºgµj»a»gµgg ¼a¼`½I”MH¿MJ¿MK¿ML¿M™‚ÿÿÿÿ™˜“˜“˜Œ&KEY˜ŒSTREAM˜ŒSTATE˜Œ LAST-INDEX˜ŒHASHK™‚’F˜ŒSYMBOL-FUNCTIONT˜’Œ HANDLETYPE#™&A™‚•<™‚“3™‚­%™‚¬™‚™‚«™‚ªœ™‚Š˜–H@¸@Ñ°igHgh b¿°ß`X@É¿H@É¿H@É¿H@É¿H™‚Š™˜“˜“˜ŒHANDLE˜•ŒCHECK-TYPE-FAIL$™‚±™' ™'™'˜–Mgh ¿gogg gggh ¿o ˜ŒDEFCONSTANT DUMMY-HANDLE™˜“€G˜ŒPROCLAIM7™!™˜’Œ SET-CONSTANTP˜‘˜ŒXEROX-COMMON-LISP<™*0™‚­+˜ŒBLOCK&™‚«™™ ™‚ª™*B˜“˜’ŒCONSTANT™q™*˜Œ{null}˜–#gh ¿o¿o ˜Œ(DEFCONSTANT +SMALLEST-FOUR-BYTE-INTEGER+™˜“€™‚º™‚½™,™,˜“™‚¿™, ‚€˜–#gh ¿o¿o ˜Œ'DEFCONSTANT +LARGEST-FOUR-BYTE-INTEGER+™˜“€™‚º™‚½™-™-˜“™‚¿™- ‚ÿÿÿ˜–o ¿g X‘Hhc™/˜ŒDEFVAR *GATHER-DUMPER-STATS*™˜“€˜ŒBOUNDP™‚º ™/˜“˜ŒSPECIAL™/˜–1o ¿g X£jc¿ggo ™0˜ŒDEFVAR *TABLE-ATTEMPTS*™˜“€+˜•ŒSET-DOCUMENTATION™‚Í™‚º!˜ŒVARIABLE™0 ™0&˜Œ+Number of table lookups by the FASL dumper.˜“™‚Ι0˜–1o ¿g X£jc¿ggo ™1˜ŒDEFVAR *TABLE-HITS*™˜“€+™‚Ó™‚Í™‚º!™‚Ô™1 ™1&˜Œ6Number of successful table lookups by the FASL dumper.˜“™‚Ι1œ™4˜– jc¿jc™0™1™4™˜“€œ™6˜–Ij¸@¹@ºI²-I²#I²IœIJð“Hjó€h²hHkÔi$HkÔHi$HHlÔ»I¼JºL¹K¸°À™6™˜“˜“˜ŒXœ˜’Œexpand-STATE-CASE™&˜–@¸goH™‚㙘“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜ŒECASE ˜“™‚Ž™'˜–&gg ¿ggo ˜ŒDEFMACRO STATE-CASE™˜“€ ™ ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES™7™‚ã™7˜“˜Œ&REST˜ŒCLAUSESœ™8˜–>@ ²0j@Êð”@ʇ…@ XlCð’j°HlDð‘k‰o kð@ ™8™˜“˜“˜ŒSTRING8˜•Œ%FAT-STRING-ARRAY-P/˜•ŒSHOULDNT˜•Œ%ARRAY-TYPE-NUMBER˜•ŒSTRINGP*˜ŒUnknown type-numberœ˜’Œexpand-REMEMBER™&˜–-@X¹HºggIhhoJo ™‚ü™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT$˜ŒAPPEND˜’Œ$REMEMBER-VAL$™& ˜ŒLET˜“˜“˜ŒWHEN™9˜“™?™'™‚˜“™‚™9˜“™=™'˜“˜ŒQUOTE˜’ŒFASL-TABLE-STORE™&˜–&gg ¿ggo ˜ŒDEFMACRO REMEMBER™˜“€ ™ ™‚홂î™9™‚ü™9˜“˜ŒVALUE˜Œ&BODY˜ŒBODYœ™:˜–*nX¿@ Yj¶Hý¿noHI ™:™˜“˜“˜ŒARRAY$˜•Œ %EVERY-SINGLE˜•Œ%FLATTEN-ARRAY˜–@HÉ:˜Œlambda in ELEMENTS-IDENTICAL-P˜ŒCLOSURE˜“˜“˜ŒX˜•ŒCOMPILED-CLOSURE˜•Œ \PTRHUNK2œ™;˜–‚@ÉXgð²mR²@g ¿@@Éh ¿@Élÿ ¿@j¿@gg ¿@Yg¿ghoHo ˜’ŒCHECK-TABLE-SIZE™&™;™˜“˜“˜ŒHANDLE‚‰˜•Œ ECASE-FAIL`™‚’[™‚°;˜•ŒBOUT+™[™= w™‚o™‚i™'V™‚•Q™‚“L™'B™'2™'#™'˜’ŒFASL-VERIFY-TABLE-SIZE™& ™‚¾™'‚„˜“™‚¾~˜“™‚Ž™'œ™<˜–I@ÉXgð²'@Élÿ ¿@Yg¿ghoHo ™<™˜“˜“˜ŒHANDLEC™‚'™‚(1™‚¾)™‚¾#™'™' ˜ŒTEXT™'>˜“™‚08˜“™‚Ž™'œ™=˜–`@ÉXgð²>@ɹA Z²J»h¼K‘Kh¼IL ¿K»°íggA hoHo ™=™˜“˜“˜ŒHANDLE˜ŒOPNAMEZ™‚'H˜ŒERROR2™‚(˜’ŒOPCODE-SEQUENCE™&B˜ŒOPNAME=˜’ŒUNIMPLEMENTED-OPCODE™&™' ™‚¾™'U˜“™‚¾O˜“™‚Ž™'œ™>˜–@ÉX—AH h™>™˜“˜“˜ŒHANDLE˜ŒVALUE ˜•ŒGETHASH™'œ™?˜–<@ÉX²0h¹AH¹@ÉI ¿@¹@ÉkÔºI[J¿Jh™?™˜“˜“˜ŒHANDLE˜ŒVALUE˜•ŒPUTHASH.™'#™'™'™'œ™A˜–@g ¿@Ah ™A™˜“˜“˜ŒHANDLE˜ŒINDEX™[™=˜’ŒFASL-TABLE-FETCH™&œ™B˜–>AÓ¸@ɹ@g ¿Hnýó—IH Ilÿ ¿IH ™B™˜“˜“˜ŒHANDLE˜ŒCHAR˜ŒREMEMBER8˜•ŒBOUT160™‚('™‚(™=˜’ŒFASL-CHARACTER™& ™'˜•Œ CHARACTERœ™C˜–‚²A ¸A Y–I €hºA»B›@g ¿A ²@g ¿@Hh ¿°`Jo̲@g ¿@Hh ¿°@Jo̲@g ¿@Hh ¿° @g ¿@Hh ¿@IB ¿B—@K h™C™˜“˜“˜ŒHANDLE˜ŒSYMBOL˜ŒREMEMBER‚ª™?‚ ™[‚—™[‚Ž™=‚€™[w™=`™[W™=@™[7™=*˜ŒKEYWORDP#™=˜Œ PACKAGE-NAME ˜ŒSYMBOL-PACKAGE˜Œ SYMBOL-NAME‚‰˜’ŒFASL-SYMBOL-IN-PACKAGE™&r˜’ŒFASL-INTERLISP-SYMBOL™&R˜’ŒFASL-LISP-SYMBOL™&2˜’ŒFASL-KEYWORD-SYMBOL™&™‚ i˜Œ INTERLISPI˜ŒLISPœ™D˜–‚A X¹HºI³ggA ¿A»B›@g ¿@J•g„g ¿@J“IkÔ€Ih ¿I¼j½MLýó¡°@A ¿Ab¿MkÔ½°çJ˜@Ah ¿B—@K h™D™˜“˜“˜ŒHANDLE˜ŒLIST˜ŒREMEMBER ‚ˆ™?~™[h™[T™[E™=1™=!™‚8˜•Œ\MVLIST™6@˜’Œ FASL-LIST™&:˜’Œ FASL-LIST*™&,™‚ ˜ŒOBJECT˜’ŒOBJECT-NOT-DUMPABLE™&œ™E˜–UA ¸A¹B›@g ¿@g ¿@HB ¿Hºj»KJýó¡°@AK¶B ¿KkÔ»°êB—@I h™E™˜“˜“˜ŒHANDLE˜ŒVECTOR˜ŒREMEMBERM™?=™['™[™=™=˜ŒLENGTH˜’Œ FASL-VECTOR™& ™‚ œ™F˜–‚³eló¨lh ¿gµh¸h¹ƒa¸i¹AºB›@g ¿@g ¿@A kð—A …A B ¿@gA gA A žgA h€hI™gHh€h B ¿B—@J h™F‚ÿÿÿÿ™˜“˜“˜ŒHANDLE˜ŒARRAY˜ŒREMEMBER™‚©˜ŒINITIAL-ELEMENT‚«™?‚¡™[‚—™‚‚€˜Œ FILL-POINTERt˜ŒARRAY-HAS-FILL-POINTER-Pn˜ŒADJUSTABLE-ARRAY-Pc˜ŒARRAY-ELEMENT-TYPEV™[P˜ŒARRAY-DIMENSIONSH™‚‡?˜Œ ARRAY-RANK7™=+™= ˜’ŒARGUMENT-ERROR™q‚Œ™‚€z˜Œ FILL-POINTERh˜Œ ADJUSTABLE]˜Œ ELEMENT-TYPE2˜’ŒFASL-CREATE-ARRAY™&&™‚ ™‚€œ™G˜–zA ¸jA ÿ³ggA ¿A¹B›@g ¿@g ¿@AB ¿@HB ¿@ÉA jHl ¿B—@I h™G™˜“˜“˜ŒHANDLE˜ŒARRAY˜ŒREMEMBER r™?h˜•Œ\BOUTSc˜’ŒSCEILING™‚¼Z˜•Œ %ARRAY-BASEK™[B™F9™=-™=™‚8 ˜•Œ %ARRAY-OFFSET˜ŒARRAY-TOTAL-SIZER™'4˜’ŒFASL-INITIALIZE-BIT-ARRAY™&(™‚ ™‚r™‚sœ™H˜–]A ¸A ¹@g ¿@Ah ¿@Hh ¿HgAgI ºH»j¼LKýó¡h@JL¶h ¿LkÔ¼°ê™H™˜“˜“˜ŒHANDLE˜ŒARRAY˜ŒREMEMBERQ™[;˜Œ MAKE-ARRAY'™[™F™= ™‚†™‚˜4™‚Œ.˜Œ DISPLACED-TO˜’ŒFASL-INITIALIZE-ARRAY™&œ™I˜–bA ²ggA A ˜@AB A œA oÌ€h˜@AB A ˜@AB @AB ™I™˜“˜“˜ŒHANDLE˜ŒARRAY˜ŒREMEMBER \™HS™EJ˜ŒVECTORPC™G2™‚†+˜ŒARRAYP$™H™‚…™‚8˜’ŒDISPLACED-ARRAY-P™‚¼™‚r ™‚s7˜“˜Œ UNSIGNED-BYTEœ™J˜–)@ɸBA ¹hºI‘IhºHJ ¿I¹°í™J™˜“˜“˜ŒHANDLE˜ŒNBYTES˜ŒVALUE™‚( ™K™'œ™K˜–.j¸h¹@ºh»HAýó¡IJn \ºL[I¹HkÔ¸°Ý™K™˜“˜“˜ŒVALUE˜ŒNBYTES™‚o˜ŒFLOORœ™L˜–)@g ¿@A h ¿@A h ™L™˜“˜“˜ŒHANDLE˜ŒVALUE˜ŒREMEMBER#™[˜Œ DENOMINATOR™[˜Œ NUMERATOR™=˜’Œ FASL-RATIO™&œ™M˜–)@g ¿@A h ¿@A h ™M™˜“˜“˜ŒHANDLE˜ŒVALUE˜ŒREMEMBER#™[˜ŒIMAGPART™[˜ŒREALPART™=˜’Œ FASL-COMPLEX™&œ™N˜–xjAó‘h„Al€ýóž@ÉA oAó‘hŠAoó‘h€i²@g ¿@lA @g ¿A kÔXl ¹@Ih ¿@IA ™N™˜“˜“˜ŒHANDLE˜ŒVALUE˜ŒREMEMBERr™Ji™[`™‚•V˜ŒINTEGER-LENGTHO™=C™J9™=™‚(J˜’ŒFASL-LARGE-INTEGER™&4˜’Œ FASL-INTEGER™&™''‚ÿÿÿ‚€œ™O˜–7A¸B›@g ¿@g ¿@A B ¿B—@H h™O™˜“˜“˜ŒHANDLE˜ŒPACKAGE˜ŒREMEMBER/™?%™[™‚`™= ™=˜’ŒFASL-FIND-PACKAGE™&™‚ œ™P˜–‚þ@ɸAÉ›@g ¿A¹B›@g ¿@g ¿@AÉ B ¿AÉZ »@KB ¿K¼j½MLýó HJM¶ ¿MkÔ½°ìAÉ Z‘h€i[‘K…J‘i€h²3J»h½K‘K°c½HM ¿@MB ¿@MB ¿K»°ÕJ ½j»KMýó¡°,JK¶¼HL ¿@LB ¿@LB ¿KkÔ»°Ñ@AÉB ¿HAÉ ¿HAÉ ¿HAÉ ¿@AÉB ¿@AÉB ¿@AÉ B ¿Aɺ@J B ¿J‘h€i[‘K…J‘i€h²&J»h½K‘K°I½@M ¿@M ¿K»°âJ ½j»KMýó¡°JK¶¼@L ¿@L ¿KkÔ»°ÞAɺ@J B ¿J‘h€i[‘K…J‘i€h²&J»h½K‘K°I½@M ¿@M ¿K»°âJ ½j»KMýó¡°JK¶¼@L ¿@L ¿KkÔ»°ÞAɺ@J B ¿J‘h€i[‘K…J‘i€h²&J»h½K‘K°I½@M ¿@M ¿K»°âJ ½j»KMýó¡°JK¶¼@L ¿@L ¿KkÔ»°ÞAɺ@J B ¿J‘h€i[‘K…J‘i€h²&J»h½K‘K°I½@M ¿@M ¿K»°âJ ½j»KMýó¡°JK¶¼@L ¿@L ¿KkÔ»°ÞB—@I ¿AÉ¢±’Aɹ@I B ¿I‘h€iZ‘J…I‘i€h²1Iºh»J‘J°_»@K ¿@K ¿@K ¿Jº°×I »jºJKýó¡°*IJ¶½@M ¿@M ¿@M ¿JkÔº°Óh™P™˜“˜“˜ŒHANDLE˜ŒDCODE˜ŒREMEMBER<‚ð™[‚å™[‚Û™[‚Å™‚z‚¹™[‚®™[‚¤™[‚~™[‚x™‚z‚[™?‚K™[‚A™[‚+™‚z‚™[‚™[‚ï™[‚陂z‚Ò™[‚È™[‚²™‚z‚¦™[‚œ™[‚v™[‚p™‚z‚Y™[‚O™[‚9™‚z‚-™[‚#™[‚ý™[‚÷™‚z‚à™[‚Ö™[‚À™‚z‚´™[‚ª™[‚„™[‚~™‚z‚m™[‚]™[‚M™[‚=™‚(‚.™‚(‚™‚(‚™[‚ú™[‚î™[‚㙂(‚Í™‚z‚Á™[‚µ™[‚ª™‚(v™‚(b™[Y™‚zJ™[D™‚z5™=)™=™=‚n˜’ŒDCODE˜‘˜ŒD-ASSEM‚b™‚ä‚ß™‚ä‚f™‚ä‚홂ä‚t™‚ä‚e™‚ä‚U™‚ä‚E™‚ä‚6™‚ä‚'™‚ä‚™‚ä‚™‚䂃™‚äQ™‚ä=™‚ä0˜’Œ FASL-DCODE™&$™‚ ˜’ŒFASL-LOCAL-FN-FIXUPS™& ™‚ä™'œ™Q˜–‚¿A¸B›@g ¿@ɹA ºA ²V@g ¿@JB ¿j»j¼KJýó¡°lAK¶Ó]ã^L:³N¼Ilÿ ¿IL ¿IMlÿå ¿KkÔ»°Ç@g ¿@JB ¿J¼j»KLýó¡°IAK¶Ó ¿KkÔ»°åB—@H h™Q™˜“˜“˜ŒHANDLE˜ŒSTRING˜ŒREMEMBER ‚·™?‚§™‚(‚Œ™[‚ƒ™=q™‚(f™‚(^™‚(8™[/™="™8™‚z ™=‚¡™‚X~˜’ŒFASL-THIN-STRING™&L™‚X*˜’ŒFASL-FAT-STRING™&™'™‚ œ™R˜–@g ¿@ÉAjl ™R™˜“˜“˜ŒHANDLE˜ŒNUMBER˜ŒREMEMBER™‚”™=™'˜’Œ FASL-FLOAT32™&œ™S˜–‚‰A ¸A¹B›@g ¿@g ¿@Hi ¿@H ºHi »h¼h½h¾K_’O°*½J_’O°¾LMNA h ¼K»Jº°ÐLi ¿B—@I h™S™˜“˜“˜ŒHANDLE˜ŒVALUE˜ŒREMEMBER ‚™?w™[g˜•Œ\NCONC2_˜•Œ FETCHFIELD7˜ŒSTRUCTURE-SLOT-NAMES/˜•ŒGETDESCRIPTORS'™[™=™=˜•ŒTYPENAME˜’ŒFASL-STRUCTURE™& ™‚ œ™T˜–‚€A ¸A ¹A ºAÉ»@ɼA½B›@g ¿@g ¿@H ¿@I ¿@J ¿LKjlIÖHJÖl Ö ¿B—@M h™T™˜“˜“˜ŒHANDLE˜ŒVALUE˜ŒREMEMBER x™?n™‚”h™‚•V™[N™[F™[>™=2™=˜•Œ BITSPERPIXEL ˜•Œ BITMAPHEIGHT˜•Œ BITMAPWIDTH9˜’Œ FASL-BITMAP16™&-™‚ ™'˜•ŒBITMAPœ™V˜–`ejó§kh ¿he#¸g @gggoggH Yl‘ ¿Il ¿gI ™V‚ÿÿÿÿ™˜“˜“˜ŒNAME™‚ OPEN-OPTIONSZ™N™‚VE™‚(=˜ŒAPPLY™‚°™‚‰T™‚ª6˜Œ NEW-VERSION1˜Œ IF-EXISTS'™‚Œ"™™™,˜“™‚¬œ˜’Œexpand-WITH-OPEN-HANDLE™&˜–‚«@XYºI[¼K]¾H_Ah _¿O_¿O_¿o _¿gJgLNhOohOgggOgOohgJgJgOhhhh ™‚ ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚£™‚6˜•ŒGENSYM™‚o˜’Œ PARSE-BODY™‚¼ ‚˜ŒABORT‚‡™_‚™‚o˜ŒSETQg˜ŒPROGNb˜ŒMULTIPLE-VALUE-PROG1]˜ŒUNWIND-PROTECTD™V>™‚v˜“€R˜“1˜ŒFASL:WITH-OPEN-FASL-HANDLE˜–&gg ¿ggo ˜ŒDEFMACRO WITH-OPEN-HANDLE™˜“€ ™ ™‚홂î™W™‚™W˜“˜Œ$(HANDLE FILENAME &REST OPEN-OPTIONS)™‚˜Œ (BODY DECLS)œ™X˜–W@ÉXgðY‘I†Hgð³%Hgð˜@ ¿°hoHo ¿@g¿@É™X™˜“˜“˜ŒHANDLE:™‚'&™;O™'F™‚0A™'™‚¾™‚ ™‚0™'5˜“™‚0™‚™‚¾/˜“™‚Ž™'œ™Y˜–J@ÉXgð@ ¿@ Hgð–@ Hgð‘hhoHo ™Y™˜“˜“˜ŒHANDLED™‚'(™<™<™X/™‚¾ ™‚0 ™‚™'?˜“™‚™‚0™‚¾9˜“™‚Ž™'œ™Z˜–Uoºh»J¹ns¼JW`@h ¿ih»g‚ h¹^gð”K$NÑhNJ ˜•Œ*CONDITION-HANDLER-BINDINGS*˜’Œ*CATCH-RETURN-PC*™q˜’Œ*CATCH-RETURN-TO*™q™‚9™Z™˜“˜“˜ŒOBJO˜’ŒCONDITION-CASE-ERROR™q™[C™‚s6˜ŒNORMAL)™‚@™*˜›˜“˜’ŒCREATE-CONDITION-CASE-LITERALS™q˜“™‚™‚sœ™[˜–‚°ekó”eló™ll ¿elÙjð¤la¸i¸h¹@ÉZgð¢±jA¢±YAið›@g @A Y»V—WkÔ\c¿K²V—WkÔ[c¿@I A»A3 ‘i€h˜@AH A¼AÃ]‘M†L3 ‘i€h˜@AH KØ@AH KØ@AH KØ@AH KØ@AH KØ@AH KØ@AH KØ@AH K ˜@AH K ˜@AH Kò'A¼@g ¿@AÉ ¿@L KØ@AH KØ@AH ggA @g hoJo ™/™0™1™[‚ÿÿÿÿ™˜“˜“˜ŒHANDLE˜ŒVALUE˜Œ &OPTIONAL˜ŒREMEMBER‚ª™‚'‚˜™=‚Œ™‚8‚{™T‚k™S‚[™?‚S™^‚D™=‚.™I‚%™‚ª‚™Q‚˜ŒSTRINGP‚™P‚þ™D‚î™O‚Þ™C‚ΙB‚¾™M‚®™R‚ž™L‚™Nn™AN™>F™=™‚‰‚“˜’ŒFASL-NIL™&‚†™‚r‚™‚s‚r™‚ ‚b™v‚L˜’ŒEVAL-WHEN-LOAD˜‘˜ŒCOMPILER‚?™‚ ‚5™‚P‚™‚ä‚õ˜•ŒLISTP‚嘌PACKAGE‚Õ˜•ŒLITATOM‚Å™‚X‚µ˜ŒCOMPLEX‚¥˜•ŒFLOATP‚Š˜ŒRATIOA˜’ŒFASL-T™&-™‚¾%™'‚¥˜“™‚¾‚Ÿ˜“™‚Ž™'œ™\˜–@@ÉXgð²@g ¿@B ¿@A hoHo ™\™˜“˜“˜ŒHANDLE˜ŒDCODE˜ŒNAME:™‚'(™[ ™[™=˜’ŒFASL-SETF-SYMBOL-FUNCTION™& ™‚¾™'5˜“™‚¾/˜“™‚Ž™'œ™]˜–8@ÉXgð²@g ¿@A hoHo ™]™˜“˜“˜ŒHANDLE˜ŒFUNCTION2™‚' ™[™=˜’Œ FASL-FUNCALL™& ™‚¾™'-˜“™‚¾'˜“™‚Ž™'œ™^˜–8@ÉXgð²@g ¿@A hoHo ™^™˜“˜“˜ŒHANDLE˜ŒFORM2™‚' ™[™=˜’Œ FASL-EVAL™& ™‚¾™'-˜“™‚¾'˜“™‚Ž™'œ™_˜–‚£ejó§kh ¿he#¸gµh¹a¹@ÉZgðŸ@ ¿@ ¿°.Jgð˜@ ¿°Jgð³hoJo ¿@Élÿ ¿@g¿g @ÉH ™_‚ÿÿÿÿ™˜“˜“˜ŒHANDLE™‚ CLOSE-OPTIONS™‚©™‚˜Œ&ALLOW-OTHER-KEYS‚™‚‚™‚°v™‚(f™‚'I™;8™;1™<™‚‰ ‚•™'‚Š˜ŒCLOSE‚‚˜ŒCLOSED}™'m™'R™‚A™‚¾)™‚0!™'™‚a˜“™‚0™‚¾™‚[˜“™‚Ž™'˜–"o ¿o ¿o ˜Œ3 top-level forms™˜“€˜•ŒPUTPROPS™‚€™‚€˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚‚ÂÄ‚Æ‚Ç ˜“™™f˜“™ ˜ŒXCL™ ˜ŒFASL˜“™™e˜Œ COMPILE-FILEš‚Œÿÿ