‘XCL Compiler output for source file {DSK}export>lispcore>sources>CLTL2>FASDUMP.;1 Source file created Friday, 22 October 1993, 15:15:12. FASL file created Thursday, 4 November 1993, 12:58:56. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜ŒFASL˜Œ{Null}˜–o ¿o˜Œ2 top-level forms™˜“€˜•Œ FILECREATED˜•Œ FASDUMPCOMS ˜“ ˜“˜•Œ*˜•Œ;;;˜Œ 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™$˜“ ™1˜’ŒDOTTED-LIST-LENGTH™$˜’Œ STATE-CASE™$˜’Œ FAT-STRING-P™$˜’ŒREMEMBER™$˜’ŒELEMENTS-IDENTICAL-P™$˜’Œ END-BLOCK™$˜’ŒEND-TEXT™$˜’ŒWRITE-OP™$˜’Œ LOOKUP-VALUE™$˜’Œ SAVE-VALUE™$˜“™1˜’Œ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™$˜“ ™1˜’Œ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˜•ŒFASDUMP˜“˜Œ18-Oct-93 15:40:08˜Œ1{Pele:mv:envos}Sources>CLTL2>FASDUMP.;2‚c´˜•Œprevious˜•Œdate:˜Œ 3-Sep-91 17:55:43˜Œ1{Pele:mv:envos}Sources>CLTL2>FASDUMP.;1˜–Dgio ¿goolg ¿ggg ˜ŒDEFSTRUCT HANDLE™˜“€>˜•ŒPUTPROP)˜’Œ%STRUCTURE-DECLARE-DATATYPE˜‘˜ŒSYSTEM ˜ŒSET-PARSED-STRUCTURE9˜ŒTYPE-EXPAND-STRUCTURE4˜Œ TYPE-EXPANDER/™%#˜ŒSTRUCTURE-OBJECT™%™%˜“˜“™%˜•ŒPOINTER˜“™%™{˜“™%™{˜“™%™{˜“™{™{™{™{˜“˜ŒPS™%˜’Œ MAKE-HANDLE™$˜“˜ŒSTREAM˜’ŒSTATE™$˜’Œ LAST-INDEX™$˜’ŒHASH™$˜ŒDATATYPE€€˜ŒHANDLE-˜“™‚ƒ˜’ŒHANDLE-P™$˜ŒDEFAULT-STRUCTURE-PRINTER˜’Œ COPY-HANDLE™$€€˜“˜“™‚„€€™|˜’Œ HANDLE-STREAM™$˜“™‚…˜Œ BLOCK-END€™}˜’Œ HANDLE-STATE™$˜“™‚†€™~˜’ŒHANDLE-LAST-INDEX™$˜“™‚‡˜“˜ŒMAKE-HASH-TABLE˜ŒTEST˜“˜ŒFUNCTION˜ŒEQ€™˜’Œ HANDLE-HASH™$€€™‚€˜“˜ŒACCESSOR˜Œ PREDICATE€€€œ™‚Œ˜–@Ù‚Œ™˜“˜“˜ŒOBJECT™%˜–"g ¿g ¿g ™q™˜“€˜Œ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™u™(˜Œ{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 ™.˜ŒDEFVAR *TABLE-ATTEMPTS*™˜“€+˜•ŒSET-DOCUMENTATION™‚Ñ™‚¾!˜ŒVARIABLE™. ™.&˜Œ+Number of table lookups by the FASL dumper.˜“™‚Ò™.˜–1o ¿g X£jc¿ggo ™/˜ŒDEFVAR *TABLE-HITS*™˜“€+™‚×™‚Ñ™‚¾!™‚Ø™/ ™/&˜Œ6Number of successful table lookups by the FASL dumper.˜“™‚Ò™/œ™2˜– jc¿jc™.™/™2™˜“€œ™4˜–Ij¸@¹@ºI²-I²#I²IœIJð“Hjó€h²hHkÔi$HkÔHi$HHlÔ»I¼JºL¹K¸°À™4™˜“˜“˜ŒXœ˜’Œexpand-STATE-CASE™$˜–@¸goH™‚癘“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜ŒECASE ˜“™‚’™%˜–&gg ¿ggo ˜ŒDEFMACRO STATE-CASE™˜“€ ™s ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES™5™‚ç™5˜“˜Œ&REST˜ŒCLAUSESœ™6˜–>@ ²0j@Êð”@ʇ…@ XlCð’j°HlDð‘k‰o kð@ ™6™˜“˜“˜Œ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™7˜“™=™%™‚˜“™‚™7˜“™;™%˜“˜ŒQUOTE˜’ŒFASL-TABLE-STORE™$˜–&gg ¿ggo ˜ŒDEFMACRO REMEMBER™˜“€ ™s ™‚ñ™‚ò™7™‚™7˜“˜ŒVALUE˜Œ&BODY˜ŒBODYœ™8˜–*nX¿@ Yj¶Hý¿noHI ™8™˜“˜“˜ŒARRAY$˜•Œ %EVERY-SINGLE˜•Œ%FLATTEN-ARRAY˜–@HÉ:˜Œlambda in ELEMENTS-IDENTICAL-P˜ŒCLOSURE˜“˜“˜ŒX˜•ŒCOMPILED-CLOSURE˜•Œ \PTRHUNK2œ™9˜–‚@ÉXgð²mR²@g ¿@@Éh ¿@Élÿ ¿@j¿@gg ¿@Yg¿ghoHo ˜’ŒCHECK-TABLE-SIZE™$™9™˜“˜“˜ŒHANDLE‚‰˜•Œ ECASE-FAIL`™‚–[™‚´;˜•ŒBOUT+™Y™; w™‚‘o™‚‘i™%V™‚™Q™‚—L™%B™%2™%#™%˜’ŒFASL-VERIFY-TABLE-SIZE™$ ™‚™%‚„˜“™‚Â~˜“™‚’™%œ™:˜–I@ÉXgð²'@Élÿ ¿@Yg¿ghoHo ™:™˜“˜“˜ŒHANDLEC™‚+™‚,1™‚Â)™‚Â#™%™% ˜ŒTEXT™%>˜“™‚48˜“™‚’™%œ™;˜–`@É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.™%#™%™%™%œ™?˜–@g ¿@Ah ™?™˜“˜“˜ŒHANDLE˜ŒINDEX™Y™;˜’ŒFASL-TABLE-FETCH™$œ™@˜–>AÓ¸@ɹ@g ¿Hnýó—IH Ilÿ ¿IH ™@™˜“˜“˜ŒHANDLE˜ŒCHAR˜ŒREMEMBER8˜•ŒBOUT160™‚,'™‚,™;˜’ŒFASL-CHARACTER™$ ™%˜•Œ CHARACTERœ™A˜–‚²A ¸A Y–I €hºA»B›@g ¿A ²@g ¿@Hh ¿°`Jo̲@g ¿@Hh ¿°@Jo̲@g ¿@Hh ¿° @g ¿@Hh ¿@IB ¿B—@K h™A™˜“˜“˜ŒHANDLE˜ŒSYMBOL˜ŒREMEMBER‚ª™=‚ ™Y‚—™Y‚Ž™;‚€™Yw™;`™YW™;@™Y7™;*˜Œ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œ™B˜–‚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™B™˜“˜“˜ŒHANDLE˜ŒLIST˜ŒREMEMBER ‚ˆ™=~™Yh™YT™YE™;1™;!™‚<˜•Œ\MVLIST™4@˜’Œ FASL-LIST™$:˜’Œ FASL-LIST*™$,™‚ ˜ŒOBJECT˜’ŒOBJECT-NOT-DUMPABLE™$œ™C˜–UA ¸A¹B›@g ¿@g ¿@HB ¿Hºj»KJýó¡°@AK¶B ¿KkÔ»°êB—@I h™C™˜“˜“˜ŒHANDLE˜ŒVECTOR˜ŒREMEMBERM™==™Y'™Y™;™;˜ŒLENGTH˜’Œ FASL-VECTOR™$ ™‚ œ™D˜–‚³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™D‚ÿÿÿÿ™˜“˜“˜ŒHANDLE˜ŒARRAY˜ŒREMEMBER™‚­˜ŒINITIAL-ELEMENT‚«™=‚¡™Y‚—™‚‚€˜Œ FILL-POINTERt˜ŒARRAY-HAS-FILL-POINTER-Pn˜ŒADJUSTABLE-ARRAY-Pc˜ŒARRAY-ELEMENT-TYPEV™YP˜ŒARRAY-DIMENSIONSH™‚‹?˜Œ ARRAY-RANK7™;+™; ˜’ŒARGUMENT-ERROR™u‚Œ™‚„z˜Œ FILL-POINTERh˜Œ ADJUSTABLE]˜Œ ELEMENT-TYPE2˜’ŒFASL-CREATE-ARRAY™$&™‚ ™‚„œ™E˜–zA ¸jA ÿ³ggA ¿A¹B›@g ¿@g ¿@AB ¿@HB ¿@ÉA jHl ¿B—@I h™E™˜“˜“˜ŒHANDLE˜ŒARRAY˜ŒREMEMBER r™=h˜•Œ\BOUTSc˜’ŒSCEILING™‚ÀZ˜•Œ %ARRAY-BASEK™YB™D9™;-™;™‚< ˜•Œ %ARRAY-OFFSET˜ŒARRAY-TOTAL-SIZER™%4˜’ŒFASL-INITIALIZE-BIT-ARRAY™$(™‚ ™‚v™‚wœ™F˜–]A ¸A ¹@g ¿@Ah ¿@Hh ¿HgAgI ºH»j¼LKýó¡h@JL¶h ¿LkÔ¼°ê™F™˜“˜“˜ŒHANDLE˜ŒARRAY˜ŒREMEMBERQ™Y;˜Œ MAKE-ARRAY'™Y™D™; ™‚Š™‚œ4™‚.˜Œ DISPLACED-TO˜’ŒFASL-INITIALIZE-ARRAY™$œ™G˜–bA ²ggA A ˜@AB A œA oÌ€h˜@AB A ˜@AB @AB ™G™˜“˜“˜ŒHANDLE˜ŒARRAY˜ŒREMEMBER \™FS™CJ˜ŒVECTORPC™E2™‚Š+˜ŒARRAYP$™F™‚‰™‚<˜’ŒDISPLACED-ARRAY-P™‚À™‚v ™‚w7˜“˜Œ UNSIGNED-BYTEœ™H˜–)@ɸBA ¹hºI‘IhºHJ ¿I¹°í™H™˜“˜“˜ŒHANDLE˜ŒNBYTES˜ŒVALUE™‚, ™I™%œ™I˜–.j¸h¹@ºh»HAýó¡IJn \ºL[I¹HkÔ¸°Ý™I™˜“˜“˜ŒVALUE˜ŒNBYTES™‚s˜ŒFLOORœ™J˜–)@g ¿@A h ¿@A h ™J™˜“˜“˜ŒHANDLE˜ŒVALUE˜ŒREMEMBER#™Y˜Œ DENOMINATOR™Y˜Œ NUMERATOR™;˜’Œ FASL-RATIO™$œ™K˜–)@g ¿@A h ¿@A h ™K™˜“˜“˜ŒHANDLE˜ŒVALUE˜ŒREMEMBER#™Y˜ŒIMAGPART™Y˜ŒREALPART™;˜’Œ FASL-COMPLEX™$œ™L˜–xjAó‘h„Al€ýóž@ÉA oAó‘hŠAoó‘h€i²@g ¿@lA @g ¿A kÔXl ¹@Ih ¿@IA ™L™˜“˜“˜ŒHANDLE˜ŒVALUE˜ŒREMEMBERr™Hi™Y`™‚™V˜ŒINTEGER-LENGTHO™;C™H9™;™‚,J˜’ŒFASL-LARGE-INTEGER™$4˜’Œ FASL-INTEGER™$™%'‚ÿÿÿ‚€œ™M˜–7A¸B›@g ¿@g ¿@A B ¿B—@H h™M™˜“˜“˜ŒHANDLE˜ŒPACKAGE˜ŒREMEMBER/™=%™Y™‚d™; ™;˜’ŒFASL-FIND-PACKAGE™$™‚ œ™N˜–‚þ@ɸ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™N™˜“˜“˜ŒHANDLE˜ŒDCODE˜ŒREMEMBER<‚ð™Y‚å™Y‚Û™Y‚Å™‚~‚¹™Y‚®™Y‚¤™Y‚~™Y‚x™‚~‚[™=‚K™Y‚A™Y‚+™‚~‚™Y‚™Y‚ï™Y‚陂~‚Ò™Y‚È™Y‚²™‚~‚¦™Y‚œ™Y‚v™Y‚p™‚~‚Y™Y‚O™Y‚9™‚~‚-™Y‚#™Y‚ý™Y‚÷™‚~‚à™Y‚Ö™Y‚À™‚~‚´™Y‚ª™Y‚„™Y‚~™‚~‚m™Y‚]™Y‚M™Y‚=™‚,‚.™‚,‚™‚,‚™Y‚ú™Y‚î™Y‚㙂,‚Í™‚~‚Á™Y‚µ™Y‚ª™‚,v™‚,b™YY™‚~J™YD™‚~5™;)™;™;‚n˜’ŒDCODE˜‘˜ŒD-ASSEM‚b™‚è‚ß™‚è‚f™‚è‚홂è‚t™‚è‚e™‚è‚U™‚è‚E™‚è‚6™‚è‚'™‚è‚™‚è‚™‚肃™‚èQ™‚è=™‚è0˜’Œ FASL-DCODE™$$™‚ ˜’ŒFASL-LOCAL-FN-FIXUPS™$ ™‚è™%œ™O˜–‚¿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™O™˜“˜“˜ŒHANDLE˜ŒSTRING˜ŒREMEMBER ‚·™=‚§™‚,‚Œ™Y‚ƒ™;q™‚,f™‚,^™‚,8™Y/™;"™6™‚~ ™;‚¡™‚\~˜’ŒFASL-THIN-STRING™$L™‚\*˜’ŒFASL-FAT-STRING™$™%™‚ œ™P˜–@g ¿@ÉAjl ™P™˜“˜“˜ŒHANDLE˜ŒNUMBER˜ŒREMEMBER™‚˜™;™%˜’Œ FASL-FLOAT32™$œ™Q˜–‚‰A ¸A¹B›@g ¿@g ¿@Hi ¿@H ºHi »h¼h½h¾K_’O°*½J_’O°¾LMNA h ¼K»Jº°ÐLi ¿B—@I h™Q™˜“˜“˜ŒHANDLE˜ŒVALUE˜ŒREMEMBER ‚™=w™Yg˜•Œ\NCONC2_˜•Œ FETCHFIELD7˜ŒSTRUCTURE-SLOT-NAMES/˜•ŒGETDESCRIPTORS'™Y™;™;˜•ŒTYPENAME˜’ŒFASL-STRUCTURE™$ ™‚ œ™R˜–‚€A ¸A ¹A ºAÉ»@ɼA½B›@g ¿@g ¿@H ¿@I ¿@J ¿LKjlIÖHJÖl Ö ¿B—@M h™R™˜“˜“˜ŒHANDLE˜ŒVALUE˜ŒREMEMBER x™=n™‚˜h™‚™V™YN™YF™Y>™;2™;˜•Œ BITSPERPIXEL ˜•Œ BITMAPHEIGHT˜•Œ BITMAPWIDTH9˜’Œ FASL-BITMAP16™$-™‚ ™%˜•ŒBITMAPœ™T˜–`ejó§kh ¿he#¸g @gggoggH Yl‘ ¿Il ¿gI ™T‚ÿÿÿÿ™˜“˜“˜ŒNAME™‚ó˜Œ OPEN-OPTIONSZ™‚ƒN™‚ZE™‚,=˜Œ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™‚s˜’Œ PARSE-BODY™‚À ‚˜ŒABORT‚‡™]‚™‚o˜ŒSETQg˜ŒPROGNb˜ŒMULTIPLE-VALUE-PROG1]˜ŒUNWIND-PROTECTD™T>™‚v˜“€R˜“1˜ŒFASL:WITH-OPEN-FASL-HANDLE˜–&gg ¿ggo ˜ŒDEFMACRO WITH-OPEN-HANDLE™˜“€ ™s ™‚ñ™‚ò™U™‚™U˜“˜Œ$(HANDLE FILENAME &REST OPEN-OPTIONS)™‚˜Œ (BODY DECLS)œ™V˜–W@ÉXgðY‘I†Hgð³%Hgð˜@ ¿°hoHo ¿@g¿@É™V™˜“˜“˜ŒHANDLE:™‚+&™9O™%F™‚4A™%™‚™‚‘ ™‚4™%5˜“™‚4™‚‘™‚Â/˜“™‚’™%œ™W˜–J@ÉXgð@ ¿@ Hgð–@ Hgð‘hhoHo ™W™˜“˜“˜ŒHANDLED™‚+(™:™:™V/™‚ ™‚4 ™‚‘™%?˜“™‚‘™‚4™‚Â9˜“™‚’™%œ™X˜–Uoºh»J¹ns¼JW`@h ¿ih»g‚ h¹^gð”K$NÑhNJ ˜•Œ*CONDITION-HANDLER-BINDINGS*˜’Œ*CATCH-RETURN-PC*™u˜’Œ*CATCH-RETURN-TO*™u™‚=™X™˜“˜“˜ŒOBJO˜’ŒCONDITION-CASE-ERROR™u™YC™‚w6˜ŒNORMAL)™‚D™(˜›˜“˜’ŒCREATE-CONDITION-CASE-LITERALS™u˜“™‚ ™‚wœ™Y˜–‚¿ekó”eló™ll ¿elÙjð¤la¸i¸h¹@ÉZgð¢±yA¢±hAið›@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 œK gð€h˜@AH K ˜@AH Kò'A¼@g ¿@AÉ ¿@L KØ@AH KØ@AH ggA @g hoJo ™-™.™/™Y‚ÿÿÿÿ™˜“˜“˜ŒHANDLE˜ŒVALUE˜Œ &OPTIONAL˜ŒREMEMBER‚¹™‚+‚§™;‚›™‚<‚Š™R‚z™Q‚j™=‚b™\‚S™;‚=™G‚4™‚®‚-™O‚™‚Š‚™‚­‚™N‚þ™B‚î™M‚Þ™A‚Ι@‚¾™K‚®™P‚ž™J‚™Ln™?N™