;$eU*U*UDEFPROPITERLAMBDAFORMDISPLACEITER-EXPANDCADRCADDRCDDDRW*]* MACROxITER-FETCHRTxITER-TESTSUBR (ZZZZZ[Z[(h`0,8,8,8,8-,| -,,8i 7B`+%ITER-STREAM-DEFINER $[[GET g{,8[gE`[ Bg{[gZ[CONS Q g| g| Bg|Zg{[*NCONC 0 g} Bg|Zg{Z[ g} Bg}Zg{ 1-,  g~ Bg}Zg{-,   g~ Bg~Zg{-, [ g Bg~0Zg{-, Z[ Zg Bg Dg /+/7Bg~+*Z4D)R(`OR $ XCONS Bg~+*[ Fg~ $H: g}*APPEND ITER-STREAMS $  ITER-VALUE $ ,8t4 gz-, NCONS $   @1,X ,87Dg~+6 gz-, P@ $+7 $ g~ $,8 gz C $ g} g~ $ g $ ,X g} DO $   H3 $ g~ PROGN $   ,X RG:UCOMPILER-BIND $ /$ 0(SENDPROGSTREAMU*U*UNEWVALSTRDEFSENDFNSETQCOMPILER-BINDINGS-SEARCHQUOTEUndefined stream nameCARITER-SEND-EXPANDERU*]*UERRORStream can't fetchRETURNFUNCALL  xFETCHFETCHFNITER-FETCH-EXPANDERStream can't sendu*U.U  xFETCHFVALUE-FORMITER internal lossageITER-FETCHF-EXPANDERCOND     xFETCHRSTREAMSU*U.WRETURN-FORMAPPENDMAPCARFUNCTIONCDRLAST    xCOMPILER-BINDING-LISTx`,8,8,8,8,86Bg~+Q7Dg~@ +P ,O,8,8g,8",<+P "+X[[2Dg+W[Z gASSOC B`4BWZ+XZg~ Bg~+J/0.U*w,x HTEMPROG2CDDRCOMPILER-UNBIND    !x!xU8STACKITER-STACK-DEFINER!"x &Z[ZZ[,8,8,8,8Z-, 5B` g~`,8,8 ` ,8 g g}   ,X ,87Dg}+k g $E  +k " ,X $ g~ W-,/,x YITER-STACK-FETCH!"xh3,8-,  $  Z`[  $ ,8ZgZ[ $@4  ZgZ[ $ z <$f ,X Z`Z[  $u`/$ (pITER-STACK-FETCHF!#x,8-, P`,8 $ ,8ZgZ[ !L! $  ZgZ[ $  C ,X $ $   Zg c!Z[ *`-, $  `4 $  ,X $/k@$ 0ITER-STACK-SEND!#x,8-, ,8 FC $,X-, $  Z` c]Z[ $/$ 8STACK-GLOBALw:\$"x$#x$#xITER-STACK-GLOBAL-DEFINER$$x,8Z[,8@  ,87Dg+*Zg[ $E0  ++ ",8Zg~-, 4B1C Zg~Z[ $   !@`0 $ ,X ,X $*g-,0w*p/$H"MAPCITER-MAPC-DEFINER%%x &Z[ZZ[,8,8 ,GENSYM0&,X,8,8INTERN&,87Bg~+W@`4 g ` g $% ,8Pf g $  g g tC ,8 g NULL $'  ,8@C g} ,8 g~ $   P`4,X $ ,X $ ,X 0 ,X +e g ` g 0 $% ,8 g~ ,8 g~ !Pf $ $  g  ,X@``]  ,X /,xX7ITER-MAPC-FETCHpFC%'x,8-,  $  Z` Z[ $ ,8ZgZ[ `! $  Zg[ $ ,8ZgZ[ ,X ,X w. $ /$ xfITER-MAPC-FETCHF%(x &-,0 (Z[,8,8 ` $@h0  ` $ ,8 g-,1Pf! $  ,X $   U $ /,xxLIST-OUT-ORDEREDITER-LIST-OUT-ORDERED-DEFINERpF()x,8-,  Z`Z[ @c]  $,X-,$ITER-LIST-OUT-ORDERED-SENDp@4()x*-,,8 $   tCZ`Z[ NCONC $*  Z` c]Z[ $/$ LIST-OUTW0ITER-LIST-OUT-DEFINER*+x,8 ,&&,8 ` Zg[ $* ,8 g   u ,X /,x0*#xITER-LISTW*]*NREVERSE+ ,xLOCALITER-LOCAL-DEFINER,-xLIBDOC;ITER-1LSUBR `(N{c7 8+( `-, +) `A4-,/,xX.$ $-Z,1Pw*p $$ P*STEPITER-STEP-DEFINER./x,84@,8-, 5B/ "/,8Zg-,0i 5B2 "0,87Bg+L ` @0 g Zg~Z[ Zg~[ !@ $. ,8 g Zg~[ +!L $0  g Zg~[  ,8Zg}Z[ Zg}[ <!NH3 $1  NOT $1   $  ,X ,X +Z ` g Zg~Z[ Zg~[ $.`:! ,8 g g - $2 f0 Zg~[   ,X /0.\,xp-ITER-STEP-FETCH.2x,8ZZ[4Dj-, [ Z`[ $0@C  Z`[ $ ,8Zg CZ[ ,X $1 +s-,0 4 [ Z`[ $0  S!Z`[ $ z <$f $  u.p/,x([STEP-GLOBALITER-STEP-GLOBAL-DEFINER33x32x,8(,8-, 5Bv "/,8Zg-, 5By "0,8 ` g Zg~Z@C[ Zg~[ $. ,87Dg~h3 +Zg~[ $  + " C,8 g g~ $2  Zg}Pf4[ $   $ ,X  $ ,X /,x8tU8`ESCAPEITER-ESCAPE-DEFINER44x,8-, [ Z`L`1[   $,X-,$]8HITER-ESCAPE-FETCH45x,8ZZ[5D ,@1,8,8#,8",< `-, !L1 $  Z`Z[/$ %k@0PITER-ESCAPE-SEND45x,8,8-, 5B)0 ,),8,81,8g~",< g-, c $ *`-, ,X c%Z`ZZ[/$ X$x;