;*EU*U*WORGETQUOTEBNCONSSYMGETDDTSYMVALRET:SL SYS: :EXISTS DSK: :VP xUTZFASLREADOPENSUBR,8*FASLz C5sMERGEF B`!# ,,8,8,8)",OPEN<,8 #,8IN,< "p*FASL*CHECK/(b5B `CLOSE+( , ,8,8g,8* ",EOFFN< ` ,,8,8BF ,8*,8+",*ARRAY< Bg * .@ XK ,,8,8,8+,8,",<  g .QC( g ` .QI( ,,8 0,8,8,,8-",< g .XC( g ( .QI( g ( .XI( g .Z * .QK g+( *- "/,xDSKBLOCKFIXNUM x^2bdGLAMBDARiDRN x>0QT %t HFASLREADCLOSE,8 .[4B1b ` .[ ,5,8 g .Z(b,8",*REARRAY< ,9,8 g .[ ,8",< ,<,8,8g",< "t/,x-FASLREAD,<,8 .[,8 g .Z,8 g .Z`,8 g~ .[,<,8,<@(,<,86Bg~+JEOFz8XW@+^ g.. Nw~ "w~  Bg1n+Y * ` Jg g~(.,<,< w0n+X pA. g w* Q p(. :w Np+Q/ g g ( Nw,<,< Nw p0N+n g~ g~Q@FASLREAD-LIST B`[ 82N_+iZ*EVALF,8 g}INC-ATOMTB-INDEX g~ ,X(.04.hQI(+hXI(+] g-, g}I# .XC(Z`EVAL "CONS/`+^0N+ g-, g} .XC(@ g~ Nw~(NwA. g~(.4.v[+wZ .Aw~,8 g~(.4.{[+{Z,8 g} Nw~(.rA.,< "pFASLREAD-ARGS1 w}(.wA.,8,< "p(t0,XXCONSNCONS,X,X`aENTRY $/+^0N+% g-, g} .XC( g~ Nw~*U*U(.rA.ACALLAJCALLCALLU*U*UJCALLCALLFJCALLFNCALLNJCALLU*JQ NCALLF NJCALF          z +pw,< "pASSOC w}(.tA. 0Aw},8 g~,< @ 0(.4.[+Z $,\-,1@tC ,XEXT $! B`Z@0[5D" w}(.rA.Z-, QB+#ZZQH `-,/+^0N+< g~ Nw~ "w~ B`@Q5B- ,-,8 *w~,8,8g",FASLREAD-ERROR<!@ g~,< "p/5B8 g-, g} .XC( g~ g} (a .QI(z8XW@ Hg~/+^ g~ g} ( .XI(+]0N+H g~ g~ B`[ 82N`+GZ,8 g} g~ ,X(.4.FQI(+GXI(D g~+]0N+L g} g~ g~FASLREAD-ATOM@ 0"+]0N+S g~ Nw "w D" B`3N`+]Aa4N] g~+]0N@+X ,W,8 *w~,8",<!+]0N 1+\ g~5.] g~+] g~ /+H//,xt =QFASLREAD,<,8 .[,8 g .Z,8 g .Z`,8 g~ .[,<,8,<@,<,86Bg~+nz8XW@+J g .. Nw~ "w~  Bg1n+} * Jg@ g~(.,<,< w0n+| pA. g w* Q p(.:wA@ Np+u/ g g ( Nw,<0,< Nw p0N+ g} g~FASLREAD-LIST-SKIP@ #+I0N+ g-, g} . XC( g~(NwA. g~ Nw~ g~ w~(.4.[+Z "/0@ +J0N+ g-, g} . XC( g~A. g~(.4.[+ Z "!/+J0N+1 g~ Nw~ "w~ B`5B" ,",8 *w~`0,8,8g",<! g~,< "p`/5B- g-, g} .XC(A g~ g} ( .QI(z8XW@ Hg~/0@`@+J g~ g} ( .XI(+I@0N+5 g} g~# g~+I0N1+8 g} g~ g~FASLREAD-SYMBOL#+I0N+@@ g~ Nw "w  B`3NL+IAL 4NI g~+I0N+D ,D,8 *w~ ,8",<!+I0N+H g~5.ID g~+I g~/+l/0 /,x (a,8@`,8,<,8,< w(.oA. ,< Nw p5NY .Aw g(.4.W@[+WZ ` B`+r=N_ .#Aw &,< $p `POP-LIST$ B`/0@+r p0N+e .Aw[`,< a $pZ`$ B`/+r0N+h@ Q[`QC`+r0N+r `LENGTH$@ p Bg Dg+|/`0/,x@ w,8,8,< p (.oA.0N+ p(NwA.0N+ E `7 "+ g Np+@K//,x0,<``,:,8,8,8,8,<0,<(.oA.,< Nw p5N% .@QAw,<,8 p5N `NREVERSE%R(b $&PNPUT&+# g~ ` >p B`+// Bg+< =N( g~ Nw~ "w~ Bg+< p0N +- g~N Nh "h Bg+<0N+<,< .Aw,< Nw,8@b p5N4 `+7 g~ ` >p B`+1// Bg wF0(.wA.4N<MINUS' Bg/,X@*g-,,X `(.4.AQC(@`0+BXC(///,xX   ,8,8,8,8,<,<(.oA.,< Nw p5NU .Aw!,<,8 p5NP `% $&& +S g~ `>p B`+L/0/ Bg+`p+\/0/7Bg+g ` g  g(.4.fQI(+fXI( " +i `A00 "/,x8 D,<,<0,8 .Z,8 g .[ `0.. Nw *w,8 Jg "(-, g .XC 3/`+ `..( Np "p B` ,,8 g~ .Z,8,8@ g~/.-, g} .QC ,8",@`0< g-,//,x%h  0jLSUBR-0 ,,8,8LISTIFY0R(,8,8 ",ERROR<(,xFASLREAD file not in FASL format)R,FAIL-ACT)',< p5N "+0N +-,+/.-, /@,xH .G2Ng ",x;X~+ 3iR ;