FASLPU
LPRIEXPR,8 `4B[PRIN2 !@ "Z` B`+/,xP@
LPRIW.59*@@g B` Dg 4BATOMBF4B NCONS+
  `XCONS(C"
 B`OFL* 4B*FORT 5B*NAThC# 4B*DEFN 5BTERPRI `B % g5B 4B  Bg "WRS@h+Z "/,x]DR(LPRIM *MSG 4B *** ".B,xxLPRIE.*59*@@g B`*INTH$Q 	5B$  Bg@@T "
ERFG* B
d `***** " 	5B) g B " R/+,x MKQUOTE QUOTE "QnHLIST2$8+REVERSIP *  4B3Z   XO 
  +. jU.W,xP-GLOBALTRACEFLAG**COMP*MODE
xSETQ
xUTRACEFEXPR.b59*@@g} B`  Bg@@@
 `4B`[ BgZ` B`GENSYM Bg~F Bg~ gGETD Bg} $ gGETiR4BAALREADY TRACED $+C g}5BEUNDEFINED $L 
 g+8 g} gCONS Bg}F
Zg}[g} g~TR-PUTD gREMD g~0 Bg| g~[g} Bg| gI$Q 
 g| g|-L $TRACE1 "LIST5
i0  z LAMBDA "LIST3  $ g`@Q g} g~  $ gPUTRG$! $ g~SETCNTRS $ "A1 g~  $ "+8 g BL1 g}/c"
HH4.q59*@@g~I#
 B` Dg FgLOSE $FLAGP4Bk "

0 Bg~ ` $REMFLAG g g `Q@ 4QPUTD g~4Bp ` $FLAG @1 "/r,x  @c.59**LAMBIND*QNAME B` Dg Fg EVALQ@ADD1  g g Bg} 
a$	4B*** ENTERING  " g}1B+%G$ "PRINC :  "FSUBR((`R z [gMEMQ  Bg~5B `LIST "!@B
 B` 4B `PRINT! g~@fQ `4BZg+
ZgAPPLY"H0  Bg} 4B*** LEAVING  "" g}1B+FC "  " g}!0Q g}SUB1#  g g}*SPECRSTR*#!/,x88X rUNTRACE.659*@@g~@ B`  Bg@@ `4B3[ BgZ``  B` $ g Bg~5B&NOT TRACED $$ gD+ gZg~ZZg~[P0 g $ gREMPROP% g~ g`
 Bg~ $ " [g~DELETE% "  	 $ "+ g B g~/6"
.I#]((@TR $TR1$&`7UNTR!nUa $$$&p8FLUID*NOUUO'(x.D59* B`!3 "
 B( Dg ` g Bg R0SYMBOLIC0B(+A g+C g! "*W/D,xh9DEFLISTRLISSTAT)&)')*xW( IGNORE&'*xTRSET1._59* Dg+^ Bg[@4P Bg~ B`4BLMACRO+z [ 5BMR$CANNOT BE TRACESET $,+T g4BQTRST $, g~
 4BQALREADY TRACESET $-+T g5BV $, g~
15BVNOT TRACESET $- g~+] g4BZPb! g~ $,+\ g~ $,(` gZ`TRSET2.Zg5BG/`,x D" 0E.59**S*. B`(5Be[`0B+f "+~0B+v H04BsZ`[VBL "/ BgX!@
! $/ Bg~Z`Z[EXP "0u*-  g~ gPROG = RETURN/0///1/1/0z SUBLISD02+t `CDADDR2 Z`XO +~@@g `+| Bg~[ Bg~ ..@ g BgZg~5Bx g
#/h;R,x((`` $
$+HUNTRST ${T$+0),)3)*x,3*xEMBFN.59* B` Dg Fg 4B
 ` Bg} g Bg}@J g  g} g} "3LIST44OUTDEF$
4 ` Bg~5BNOT DEFINED $5+SUBR(4@ 5z [ 5BNOT EMBEDDABLE $6 `REDERR@#6 Bg~ g `SUBST7  g!@`0R " g~ g~ EMB $7@&] ` `/"888EMBED.859* B` `4B7[ BgZ` B` $ $7 g Bg5B(NOT EMBEDDED $8 gBH +  UNEMB $9 g $7 g%Z[ZZg[[[g(
 z Zg[[ 4B4 "+4 "ZgZ  g+ /9,xh UNEMBED.M59* B` `4BL[0
 BgZ` B` $9 g Bg5BC $8L @ g+;  $7 g $9@` g%[Z[ZZg["[ g+;/M,x9w@)8)9)*xFASLP