; RHQU*]*USETQPHAS1VERNOQUOTE86xTARITHPBIGNUMFIXNUMU*U*UFLONUMSYMBOLRNLASSQ+INTERNAL-STRING-MARKERGETCNTP1SPECIALVARMODEU*U*ULISTP1MACROGETNULFUERRFL Random piece of data - () will be substitutedMSOUTLAMBDAU*U*UP1LAMLABELLABEL is no longer supportedCARCDRP1VNFUNCTIONCOMPPROGNP1SQVU*U*UEFFSKTYPEPNOBP1LENGTHP1FAKEMAKUNBOUNDComputed function cant be numericWARNU*U*UComputed functions are not generally supported, This code is being rewritten using FUNCALLSYSPFUNCALL Unlikely crufft used in functional position T and NIL are verry poor choices for function names - you will most likely lose badly!SOURCE-TRANS*:ARNU*U*USI:CHECK-MULTIPLICITIES*:AR2FUNTYP-DECODE*ARRAYGOFOOBVARSBound variable used as Function nameUNDFUNS*LEXPRU*U*UXCONS*EXPRPUTPROPP1ACKJSPSUBRP1CARCDR*FEXPRLREMPROPU*U*ULSUBRP1MODESETPAIRPTYPEPEQSORTSORTCARP1FUNGETFSUBRU*U*UBARFBad function type - P1NUMBERPEQUALQNILPNULLP1ARITHP1SETQPROGU*U*UP1PROGCONDP1CONDANDOR There are not two or more clauses here - do you really want this?NCONSL2FGOU*U*UP1GODOP1DODATABad DO formatCASEQP1CASEQBad CASEQ formatPUSHU*U*U+INTERNAL-PUSH-XPOP+INTERNAL-POP-XSETF+INTERNAL-SETF-XSTORENUMTYPP1ARG-WRNTYPARRAYCALLU*U*UARRAYOPENSUBRCALLLSUBRCALLWrong functional designatorCOMALNon-standard type info*FUNCTIONU*U*UThe function pointer can't be rightToo many args for SUBRCALL or ARRAYCALLNumeric function-ptr?ARRAYSTATUSSSTATUSP1STATUSERRSET*CATCHU*U*UCATCH-BARRIERCATCHALLUNWIND-PROTECTCATCHPASS-THRULOCVARSCAAGL%CATCHALL%PASS-THRUU*U*U Obsolete form - please use *CATCHP1SYNCHRONIZE-CNTSTHROW Obsolete form - please use *THROW*THROWEXPRP1GFYSIGNPP1SIGNPU*U*UBREAK*BREAKPROGVP1PROGNERRDECLAREEVAL-WHENLocal declaration at wrong placeACSU*U*ULIST*P1ITERLISTNOTNUMPPRINCPROG2P1PROG2PROG1READ*READU*U*UREADCH*READCHTYI*TYITERPRI*TERPRIPRINT*PRINTPRIN1U*U*U*PRIN1*PRINCTYO*TYOAPPEND*APPENDNCONC*NCONCDELETEU*U*U*DELETEDELQ*DELQCLOSEDGREATERP*GREATLESSP*LESSPLUSU*U*U*PLUSDIFFERENCE*DIFTIMES*TIMESQUOTIENT*QUOMAPCAN*MAPU*U*UMAPCONCARMAPCMAPMAPCARMAPLISTMAPATOMSP1MAPU*U*UAPPLYBOOLENUMFUNP1EQQTEOBARRAYContradicts declared type of arrayHUNKHUNK2-TO-CONS%HUNK1U*U*UCONS%HUNK2%HUNK3%HUNK4PWTNTPTFNEVALP1F*EVALNOTU*U*UP1NONUMCKP1BOOL1ABLEMEMQ*:TRUTHRETURNP1RETURNBOUNDPSYMEVALQSMU*U*UROTLSHASHFSCInvalid 2nd arg - must be numericFIXPFLOATPNUMTYPEP Numeric predicate applied to numeric type datum is a constantU*U*USETCXRRPLACXQNPCDRRPLACDRPLACACDDARMEMBERU*U*UASSOCSASSOCP1LSTNTHNTHCDRNegative count to NTHDAREVERSEU*TMAKNUMP1VAPMAKNUM on numeric quantity?Lost function - P1Wrong number of args,<,<0 ,<-,}7@g}+Z g} "+6@7bzZu+`Z0(0`1B` + g}dA-, -, Bg}`# A@ "+-, B`+\0B`G @  g}4BZ Dg}` g}@ @0; g}-, -,@@`b Bg}`ˀ-, g}@`7B+# g}` B`+\1B `] g} 8an++ g}`3B D"++-, Bg}`  (  $ D@ g}b+Z[g}ZA0B +g}[0D`mZg}[g}P(D a+`0D+;  (   g}b+Z2D+A[g}@[``A-,1,X-, Bg}+\1+C @00D`Zg}[g}Z[-, Bg} F@1`Q!+] `# -,% [g}ZZ`'XC`@ 1@;+R`)`` @ 'Zg|,,X-, , Bg}[Z[1D` ` "+\ " B`+\3D+\[g}`3B `Zg}-, Bg}`P " `# -, % H"[g}`'@@Z  (  " + g}b,+Z@j & -0a g}b`7 +w` 4BwZg}`-, Bg}4Bw, 0`as/-,!-, @ '@,,X-,,A" Bg}-, Bg}+\1B`  ( @1A  $ g}b+Z[g} `@j & 1 g}b+/`+Zg}4FWZ5HW[ 2`5J[  Jg}`[Z1BA!+ +-, B`+\3D +!  $[g}4B+-,7@` +( 3 J[` g|C` 4" +!5 3 J7 Hg}K B3`QZg Bg3+ "4B+ g Jg}`0! g}`3B +/-, Bg}`@([g}5BM 9[g}5B![g}H`!3D+\ `#[g};w[(Z (A0H`m@j & $ g}b=[g}-,=Zg} Nw "w @ @ ;+D $-,3 &+F $0a? &  [g}aABs $@ 1 [g}!` g}`)+`+!C1 `Z g} & $"[g}!5BW+!0B ( +T g}`E+`1B +W1B#+W0B ` `#0B `Zg} Np@1 *p (` $`( z VQ`aG & `aA ` "-,3 ` & $$`!0@`a+W`)+` $(-,013 (( & $"`!("+W+!0B+vZ g} & $$D[g}!5BW g}`)+`0B#+ g}P A`I+`0B"`[g}0D%`Zg}[ P2-,1 K-, z Ƶ-, $&(-, Bg}+ 1M`0D'+ Zg} Z[`O Bg4B -,1Zg}[`A-,[g}-, Bg}`#1B(`# AC 1B$`#@j Q $) "b "" Bg~`# "$ Bg~336@g~`] @ $[g}1 S[g}1]Z g} &3[g}!5BW3+,[g}1D&+0D*+,Zg}[4F"@@`UIZg}Z[`SZg}Z@b[4D(*`U4B,Zg}[-,2@ $+-, Bg}+3 g}AaW+`0B(+x[g}+3 g}1A,+`Y`kZg}-+`[`q (Zg}[g}.+`1]`u0D/+UZg}DZ5FC@j & _ g}bZg}D![+B[g}1] Bg}`7H+F (Zg}[g}.+`0D/` $0Zg},+SZg}`aZZ5DNZ[`Z]-,[g -,1,X-,-,131A[.+`0D1+X g}`c Bg}+\0D2+_ g}-,`e Bg}@j &3 gb`0D4+f g}`"-,`i Bg}@j &3 $5Eb`k` ,8@ A,8",<6 Bg}`m+q ,p,8A@,8",<7 Bg}`o` A Zg}8 Bg}`q` $Zg}Ab[9Z -, %Zg}Z[`'Z[@@ D` %+4D1D + g}`sZg}@`[`' g~-,,X-,A q-,, Bg}+\0D:`)@@1рu+Zg}Z[/-,!`-,Zg}ZZ-, Bg}AAZg}ZZ4BW`/1D;`-w`@  `#Zg}4BWZ4DW["Z1B`A  (   $< g}byZg}[ B`O@ [1+& "`M " B`++ *=" { & $> g}b@@`%+/7@`+/3B`+/ g}`sZg}Z[ @AZ0B`oZg}Z"A[1+7`y0B `yZg}-, 2A" 0`y1B`y}`  ( "h  $? g}b -,% [g}w`Zg}Z-,@``) Bg} -, Z ` -,`Zg}ZZ; !`  (   g}b  J`"Zg}Z[`'Z4DX  ( "`A!  $@ g}b[g}0B:` *%@@` '@ZZ,A,X-,[g}0D:+d `a? 1[g}-,`[ `-,!`-,0-, Bg}, 2+\[g}+vZg}[-,1 2-,@Z[-,1 -,AsZZ-,,X-,2@  9-, Bg}+1FA+x 0+~A "(-, -,0QB,X-, Bg}+\CDEzPq{IE74J5$$[(Z (0H`@,8F+ @`[-,1 $0-,Zg|Z `+ [-,1,X-, ( -,`a1FC++ @2`a0FD+@[-, /d-,AsZ-, $G-, @0`a`;AsZ "-,@ Zg|[-,1,X-, -,0P 2`a+$@[-,1 /d-,AsZ-, -, "`a0FE+00BE`Q@j & $Hdb@Z[-,1 -, 2Zg|[-,1,X-, $CaC-,`a "`),X "pa  -,+`0FI+A ("` & g}bZg}Z[-,1  -,@[`-,1@`,X-, $J-, Bg}+\}}z @ @4BKZg}4DWZ5HW@ @[K-,1,X-,0 Bg}+\[g}` g}L Bg} +\`Z g}4HWZ Z5BWZ  24BT[`zZu[ -,1 @ -,-,1,X-, $M-,0bA Bg} `#+`Z g}Z PZ 4HW Zg}N+`+mZ g}Qz z`Z 4Bg[*`U`dZg}[`-,1 -,@` ` g}-,-, Bg}+\1DOADD+o`  (  $P g}b( g}-,+` g} A`# g}`I+`0B$`[g}1D ` @ 0DQ`Zg}4FZZ5H0DQ+[ P Jg}`0DQg  "a Bg}7D0aa` `-,1+`6 `1 +Z g} & $$[g}!5BW $R[g}F0B+  `#[g}`7Zg}` 7[' an`7 2Zg}[7Zg}[-,1 d-,Zg}Z-, -,1A Bg}[g}0BS`=Zg}`+`0BT+"FZg} "-,`+`0B+&Zg}R1SIz:w N+`Zg}5D)UVWXz 0qt2hmZg}[Z[YZ[z [`Oh3[g}mZg}4B9Z4D9Z5F9\]^_z 8%V0[g}m6D`+9abcdefz sY5"[g}`4B9Zg}Z-, Bg}+!g3hg5 gihg{ jg hg= kz 8a@ [g}{ $ g}a+`[g} @ /`Zg}4FW[6  `[`OZ[7 0P1+N $#@[5BL@[0B(+NZg} "l-,`@B[6 +S@[[0B +VZg}Z@[-,` "@5B\Zg}[/-,!-,Zg}Z-,-, Bg}` @`Zg}[7 `Zg}@A[`Zg}[[`Zg}0@ `Zg}[`3B +mZg}` Z-, -, Bg}` " an `A1.+![g}9`7Zg}[6 0@A+Zg}[[+Zg}0` 4B} an+ 9E04B $m4BZg}Z[1`  Zg}Z[+1eZg}Z[`Zg}#  nzP([(Z (0H`+ " Bg1B `! +As[1B++AsD"[1D+ +  (  201A g}b `# g}`)+`0Bo`Y0Zg}  `Y4NZ  G "p`U 0N+' A7c "q`U+)`U0N`A "rZg}-, Bg}+[g}0Bl`c 1Zg}ZZcZg}`+`[g}0Bs0`Zg}Z `#Zg}[`-,1[6 +@[ [+@ A`Z[a Bg}5BB3 "t-,3 Bg}+\!E4 4BH $R[g}0B`  01A`#+I `# g}`)+`0B"`=DAZ g} & $"[g}!5BW[g}+R@@Zg} "+-, Bg}  Jg[g}0B+d+mZg}[u -, b!%Zg}[`4Bh6D+^Zg}[ [1Fv+h4DbZg}[`'-,1 $ $+-,`-,1 -,0`0-,1 g}-,7-,1 $!D@[.`@@Zg}[`'-,1A $+-,, Bg}+\0Bw`1CA g}`+` 5B\[g}0Dx`HZg}[-,1 -, y-,2@d $&-,-,1 -,P( Bg}+/1`1Dz`1`0D{A@@+1D{ " B` Zg}[9@ "Z5B `-,%[g}h @[`' *%Zg|ZA@[`'-,1,X-,,X-,0`, Bg}-, 6 0A`1``1As[ DD`nb`1  (  g}b b +\ [g}g[g}1S`=1D|A@`=+3 $Zg}[}4B3AA[g}0D|+%Z0F+3+*+(( Z +3+*S+3Z4F3 *=" 2 ( & g}b-,1 @2-,-,1Zg}[-, $S"-, Bg}++![g}0D~+BZg}B[6 `Zg}[[@`Zg} 7 `Zg}H -,1 -,Zg}ZD(a`'+`+!1+D0DWZg}1[6 +J`As[3 8an `T(5NOzP]`+QhzPV-`[g}`[(+TZ(Zg}Z-,0(  Bg}5B/+!`Zg}-,1#Q`E+` `#+![g}*vz@(A+~4Ha1A[ Z 0F+] g}`+`1D+c @@1 +Zg} Fg  (-," % [`'@j% J[@[`'-,1,X-,1, BgAs[`[gZ[ an `("0.`3  ( "`  $ g}b      z |$f "pCa [g}0D+ $a?0@2 Zg[+ ` -,a@[-,1,X-,+ @ g[g}-, Bg}+\0D`5  "Zg}[aZ) *= ( & $ $ g}bz g5sU -,[g`@-,1,X-, * Bg} J`+\ # $R[g}0B+!  `#+!@j"h Q  g}b -, @A %,8 g}0C` $m` BgZZZ[@@g~!`  H Dg,8 "`@a7@``[`7 `i T "+6jkz [`v[g}%Zg} Bg~! ` Fg}`' B`7@g|`w+F%+=`Z1D`+B6@g~+B[4 R`s @@[` Jg|+F [`-,1Z` D``+0/as Bg~a?A,+\ g}0B"`I3`@@ '@, Bg~1,3[g}-,3`I+`D@2  (  $ g}b6@7dz,Lu +`7B+_ ` g}-,+` g}@`0-,-,,x* :Uxyz0 x:8"ARGSP1CARCDR-CHASEGENSYMNREVERSECADRCADDRCADDDRCDDDDR*APPLY[`O@,<4BjZ[ B`A+ #6 +t[`1B+n+ #Z`[7 +r3A+ # Np+{ `0B"+ # ,83Ko4B #Z  NpZg~[ Bg;` 6 1` [g0` g ,g `  Bg,8g,8 p5n  `@  + 0n` 7 .,8 . p 04n ; g-,1[`-,3`-, pZ` D` Np+ @ -,1 $-,0 0` / `-,@ 3+ " g-,1 g-,1`,X-, $-,@[  -,1,X-,`'` Y  `#  g~,Z[[@`!a5B *3-,7D` Ya-,1` Y,xh xɖ`(" Has been previously used with wrong number of arguments,<,8,8 gb@,8Ko k ,8@5B ;3+ : 3aAa "+ S4H =6 `  g Np "p Bg[` 7@g~` g~1B"5B NZ` 82Og+ N7@g~ + I g~0B$` [` 82og` Z` 83/g` 3` 0@j & $b/0.T,x" ]NOT-OF-TYPEFirst item in list is an argument somewhere, but is of the wrong type%-,1 d" -,,X-,7  ( !n@0 $j" P1ANDOR,8,8Z 6@`'` Z5H b[`'` 7J+ eA[.` B $0@,` @`aZ B` ]-,`-,1,X-,0C-,1 $ B`[.jU*U,xx" P1LSQLMBPCONDPP1LL++$-U*U*U-$ **$//$ 0FIXNUM-IDENTITYFLONUM-IDENTITYU*U*UFIXSWFLOSWNOTYPEIDENTITYP1AEVALQ0P+0PMINUSMixed modesPLUSPU*U*UMINUSPZEROPSAMETYPESARITHP function came too far - P1ARITHThis EQUAL test will never come up trueEQ of a number - EQUAL assumedFLOATFIXIFIXU*U*UREMAINDERMUZZLEDClosed compilation forcedMEMASSQRP1GLM1Q1P+1P-1PSUB1ADD1HAULONGUGCDP1SQE,8-,! 0#[ !-,-,~,8 1H&+ {0H*` ` T7@g}+ cedfbaz cK\*4B Z D`1Zg|Z q , ,83Ko qAA7@g}+  `0` 0` 3` AAAA `1B` 0%` 1B` '` AA3z1o` 17@g}+  `0+ 0+ AAA3` / `0)+ 1B+ 0++  A 1B+ 5-z7o q3+ /Zg|( 4D / `1B+ 0'+ 0++ 0B + (0'+ "0B+ #@` G``[-,1,X-, `-,@A Bg|` qA[1F /c[-,1,X-,` Bg|` @b Zg| c[`` o `0%+ 60' + 61B+ 60B+ 7@` o` Bg|` 3+ ;@[ -,! 7@g}+ ?7D`+ ?` 7D+ Bz jU$ `-,` 1` z jysU `-,0-, Bg~ Z[[D$ Dg}-,% '@,0`, g}-,,X-,  Bg| g}0B+ Q3[g|q3+ ^B[ (3Zg|Z ` 4B ^[` Z Fg|` ZZg|[ -,[g|-, Bg|  Jg ` @+ hZg|Z Bg~[`54B hZg~@dZ5D hZg~-, $-,P Bg|` $$ `  H D-, %3` ]@[  ] Zg|[9Z% Zg| ! Z[9Z3р%` E E@,8F $ `,@[`' Z,8,8,8 %`@Z[`' Bg` -@Z[ `'Z Bg3 " 1+  1` 6@7^ "% g}-,! JF , ,8 3Ko @[`'@Z[`' BgD"%1B+ 0 +   (  7@ 1 g|b[g-,1as-,% -,[gy-,3 Bg|a,` 5F $ "` [ K "` [@0F+ -@jZg| ` Z3 ! Y Dg| Y,` % "%AA` o g}0B` o `1B` g09` g P0 0B` o Zg|[9Z5B 7 "@%3,8 "`Zg{7@` ` [``'Z }%3-,0 0 $[` Dg|-,1 `Z` D`` u/AA Bg|`; 1B` 0 ` @0 , g|-,3 `-, Bg|3+ ]As[4D T@j@0AA Q $b1B` 0 ` "0  (  7b`QCg|Zg|1QJ3`  z - 0*v @ 4J c[(Z (0H+ `7 Bg `0B*+ 7@g+ i6 8+ u` 3` + uAsZ[4D n1Zg|-, ` Zg|Z[R4B uD@1Zg|Z` *= ( & =b` @ 6@g` 3` Zg|Z`` Zg|ZDc [`5B }Zg|-, ` "&AQCg|Zg|QB+;0B&` 3+ "4 *= ( & $b "*QCg| B`P A+ d+;?+  ` Zg|Z[ Dg|` %0B` %@jZg|Z0 `  %Z Dg| ` A1B + A+ 1% + `s30B+ Zg|Z[ Dg|` @ + )@jZg|Z ` @4B )ZZ[Z30B+ ) " Dg| %1B ` W7D+ .AQCg| B` "+ 0 ` AA "` 0B!` m0B+ 4` y@@g3Zg|Z`` q6@g` yH(D 6D`` yЀC` y *= ( & $"b6@g+ FZg|ZZ4B FZ5D F( cedfbaz cK\[g|aE Bg~4B FZg|[[-,@1 Bg|` 6@g+ X $$[g|4B X $D 3 v % * 3 g|!H " #ˀ Bg|-,7D + U[g|,8g|Z`` "@ g|-, Bg|` 7@g` @jZg|Z `  Z Dg|` Zg|ZZ4D;Z5F;dcefzPC L4J;[(Z (2H`` [`55B l@1[`55B l``G5B l@[`GA4B;6@g` 3 3[(Z ( ` AAA`0 + r`  `1Bc` ` D(``5 + }1Be` ` `@`G cZ8[8 82N_` @[As[ Bg|3` )@[0 AAA++ `1Bc` 0` 1Bd` A+ @[`54B` %1Be+0+1Bf++@[`G@4B@ S +`as@ Bg|3-,3-, ?-,0 Bg|? B`5B d+;7@g+;AA1B+ +; `1Bd+ 0+  (` U``5 I *As[3 J`` +7@[`G Bg~ U6`7`IAAas B`3+7 `1Bc` [0` [0+;@[`G Bg~ cas3+50``G Bg~4B;As[36` 0 "$ B` "-,13-, ``AA-, Bg| `0B%` { "+WA!! g}0B+C6D+B%+B`s H  "+W7D`+FZg|Z` "+W 7 8+J5BW%+WAA4JN[(Z ( `  +W34HVAA[ Z 0F` `1B!` K+V@$a4FVBs[ % "7B ` 3 g|-, Bg| ,@d"& g| + * 0 0$I8" SQUIDIllegal arithmetic construction,8 ,8,<,8Zz f)v,80  g}-,7@`+}[`B6 +m[`0+n@@g~`+{Z`[ anb+v30` Z`[Z3Bg}` Z`[[pM` @@g~@+{:pZ` B`+h@ ,8,83`7@g~` "0  -. 3 gu-,3 Jgx`at Bgy-,1+ 7@g}+  Z2Bg}`-,2H1 -, -,`3`6@g~`7@g}` p;` P( 0+`1B`0`1Bf` "P0 $M-.'%dz xB[p guZ BgyWA gw3 gvAs  Bgy[+&`@-, ZP+&AZgy-,1 Bgy+(+(Zgy Bgy@` 7@gy++ gy`-,` `3@@gy Jgx-,7@`+AA[`6 +7[`+7 Z`[ `nb`s3 ` -,+?6@gx`yZ`[ Dgx0+?Z`[ gxEgt BgxZ`A@@ B`+/7BgyZ@ @0P+K gy-,1 -,0@ gy ,X-,  Jgy`@`a@@gy-,1+ 3`B" g|-,3`3+X  ( @5  $'b3 z :'mw g}Z(P zcbj"` "/,x]*U*U "0a Pseudo-strings aren't good lambda variables Binding number variable to NIL may be a bugBinding number variable to quantity of wrong typeSPECIALPNLNVCRP2UNSAFEPNLNVEXNUMERVARPP@ P1BINDARG-,%,8 -,1H  4Bf@ D"-,3-,7  (  O@ b%,87@g~+k3+k@@D g`'`M3` g`' B`Z 14Dpq3``[`U4Bv g-,`D13-,7@j & $(b`D`[`R g-,3-,7DC  (  Qb1B7(-z ru0`M[``M $ g9 B`9[ Z0B+[`AA)9`0B `[`[1[`9 `1B`90 `9 g`' B`Z 1..-,aSd`-,1,X-, -, Z[ B``5[ B`* $baU ``M-, B g`'a B`[* Bg4B&7 `ID0 g+4B& gaU[`,K:+5x;Zu8"P2P 6 `Y[`6 `[ " `[`0BS`iZ`ZZgZ` (Z[`` "` A!A4BCS+B7D,+=A[1F`w @   +=-,+C7F`+? "@ +C5DA-,+C "+C@`]-,,xX"QP1BASICBOOL1ABLE 0`4BI]/v[z or [vu*,xH"Wrong number of argumentsAttempt to take CAR or CDR of a numeric quantityP1CCEXPLODE,80",8ZZ  ( "   $-bzP,Lu+q $Z[(D aZ4DX  (  [ g` b`6  B` 4Bdas6 +das[2D1+d``. $a+qA7@``[g0B`as`z -,1+d "3+ha`-,1 $1-,+m2B= D@`wzB'i+m@j &3 g gwb-,0 013``{3-, +r "K<]-,17@`@2+w `-,3-, $ -, g~-,+{ " @d,x(" [-,1 $w-, ;Z`-," X"|[ [As5D`-, + `-, *>-,1,X-,2H $-, $S-,-,1`0,X-, -,,xA`"6 `-[``-`Z`[+ an A0 + ",xX" -,1 ] `'+0"PRSSLUB P1HUNOZP1E1}`A[1[`C1] b@ `C1F/`C`'+9[-, `3,84B'Zg[`O! Zg? B3m;Z[v ] Z3[m?@`7@``eZgZ-,[g-,b@c-,1 3-, $S-,`'B/,5B9 ``'jU*,xx"7MACROLISTP1FVFEXPRMACROGETL[ 6 +C[`Z4BC[`[17 +C @[`[@ 7B3` `-,` "`[`B[`7F3`[`Z`Z`aP-,`[``A(#z I[`[B!aA7D3` `-,` "`@7D3+Z[`[`Z?,X`-,Z`-,`[`Z?`S,xp":P1KNOWN,8(#z fab4BcAs[ "(-, -, P `-,3/,x8" ADD@dZ  -,-,1 $-,  0 $-,-,1`[ZZF,8[ C0[g@-,0``X QD`I/,xH"d@ 1Z4DvZ4Fv@``[ a,x"r `6 8`AaA[`0B+} `-,++BZ` "-,+ `` B`2B @kU+x "+ x"P1PFXCOMPILEUFASLPUSHICOUTPUT,87 `Hb5B =-,=-,0M+`  ( ` DH`+ E-,/jU",x 0"GFYCEXPLODECGENPREFIXMAKNAMˀ-,1 3]F $a"G8"|p1-7,8,8 ,,8,8,80`K,8K<j/,xWx"/U4OHOME|p1-10 &H $ `aA 3 `-,1D  F-, BF;-,.U*U;,x$?P1LLCEKMODELISTIGNOREVARSSPECVARSNLNVSNLNVTHTBPU*U*P1LMBIFYWrong number of args to LAMBDAP1GLMP1SPECIALIZEDVSUUVPUnused LAMBDA variablesNLNVASG,8 b,< I -,! I#L z9+[g},8  JD";-,;J "@KAZ $@[L"[#Zy I#-,  BI,8#,\ Pp "p  B` $#-,2@"3 $-,3-,3  ( " `  b,=`,8 p5nQ7@` +P  `,# `a# 0` "` ,g `-,>pA@`0 B`+J,8,8  "`#7@`+`[``0 g~-,*`),Xg~-,1 `Z` D`+X/  (#Ig3   Bg~#M`ˀ-,7D` g~`-,30 +p g~-,3 Bg~#N"@j & b K /`,36BK` JK+|4J| D00 K@a BK#O/00,&+5h X"'P1L,8,8,8@`!Z5F[`' B`7D+[ Bg @0+%   gb Bg8[  D`7F+[0 g -,0D3 Bg,87B`)Asa D` 6D+k/7$ 5H035H%,8* Bg~4B a7 `? g~-,1+ g~ *,X3*g~ #,x3XbP" J,8-,1-,-,-,1 $(-,1@7-,3-,7 g-,0D7,X-, -, $-,@`7 $-,,86D`i`k *-,3/,x0"I,8AA6 +G`0`w0B+Ga@[7 +GBAAA B`4BG[1D"+D1D(+D0D$+F (Z[`` "/@,x(" m,8,8 -, %,8 "`-,0 7@``,8`Z`5BW g}-,1  B-, B g~-, %[``'-,1Z` 0 D`+P/+5jTx"P1LST-LSTGETSASSQNX2LASTZ,8 ,8,8[1F`1`0F 1 `Z[ *`U "-,d11[`-, $S-,`'+/D0[``5BzZ`[P BgA7@``[g~0B`[``[`[@4Bw `n+w+yZ` B`+o "vz Ÿ`@!AsZ-,7B`Qas0Dv0`Q6@g`Z`[P BgQ g1 `Q[` +,82 "`,8g~7@`+[`-,1 @ -,-,1 g~-, $&-,0-,1Z` D``d1/ $/-,`'+/Aas+ JgQ`E0DS`QAZQZQ[ QAs[AZ[ DgZ``0-, $v-,-,1 g 1-, $S-,`'+/` @ Zg~,,X-,7D `0`]-,+/-,/+5h 8"Cant use this as 2nd arg to MEMQ6 `g[` P 0`i "`{Z`[{D"Z1B `y  (  1 `b`{Z`[,x"0U*U*UIGNOREIllegal local declaration Local declaration occurs too late in functionREMPROPNUMVARCant locally redeclare functionNMPSUBSTFROMNot permissible in bound variable listU(- Repeated in bound variable listSPECIALS:LOCAL-VAR,8[6 0@+[[ 0HO+[Z@ 7@``'[`-,3Z,80,87@g`[g7   B`[g`[g[ 4BV6@`7g[gZgQC`)Zg Bg+J:R z "[3DB1v  (   3b`#Z37@`+[`7 0H +;4Jk[(Z (2H`+c g}1DD# `v5Bk  (  $S 3b ( +[30B:+u $H `a $: `@ @0 `-,1 $:-, `b!A-,-,+0BR`b J `-, BJ+ $T ` d $T `[31B+[31Bb! `-,-,+1DD#[``4B  (   3bH+Z`[31F+[`-,1`[3@U,X-,-,1@Z` B`+_/,Z` B``Z` B``0 g-,@-,,8 0,86@g~+ g 3-,3+[[g~ B`a0+"0+"4B(2 `n+(-,  D"-, `-,  (  $V@ b`aZg~a[ Z2J``Q 2-, -, `-, D01 { & b7@`` `)P7DW`u  `u `-,1  $:-, &: $ `aA` FD1 ` ,g `-, -, `` B`4BEa@ Z "-,-,` Z B`"h1 &H $ `aA 3 `-, F -, BF7@``; `-,;3`as,8`@b1B(`as `-,-,  g `-,AsZg~ Bg3AA: Fg~`1/,x@"}FUNMODE6D `0`-,`-,,8 17 +c ``+~[`7 5Bi[`[1F@ +i+~3+y[`-, Z[B B`6 `[`2B` `8[ F` `7 8` ``+x[`6 +y3P+~ $m[`5B|[`X`04B~Z[ g-,7/0.U*,xH"\FUNTYP-INFOFIND-MACRO-DEFINITION*RSETLISP error during MACRO expansion[`4B an+ #z ƿy[`B b@5B [`4B [`[ H 0 1+  +[`Y5B   `9,8 --. -,1Cgy , Bgy "+ 7@``1+  ( "j  $Z gbz,Luu#,x"LOCAL-VAR|p1-17`-,2@`1 $-,-,13-,7 P,X-,,x0$|p1-20[`d -,1 $+-,,x8$$U*U*UDEFCOMPLRMACFunction to MAP is macro, or randomnessMAPEXCFVFLLEXPRPVRSTSLVLARRAYDIMSU*U 1-SUBLISEXITEXITNMAPSB,8Z-,~3 [g~ B`6 +Q[`0+00B`-,1Z`[4D5 @Pan`Z`[ Dg"($z a5i gaD@1   g5B? ( @ g4BB $\ g5BB @@ `Z`[[0D BD" `  (  AB g}b,+Q `` B`3B @+QZg~-, Bg~`S3`6@g`[g~[`[g~Z[-,2@1 $-,Zg~-, Bg~3!P1`7B]`7@g+_(#z f gB4Bm@(1`+m6@g` $l @`1;-,-,-,  $^`Z[K,-,1 ` -,As-,+ D#``3` `#Zg~Za5BrAs-,`@[b3-, $g-, -,b g~-,`)``0Bk+ Zg~ @ 5D~nz Z4[g~-, Bg~[g~-,0Zg~[ "_-, ,@`g -,-,1,X-,&,X-,2`_a9O:_z @m//a -,A@a ]`',` $[Zg~```!,,8,87D`#2bzPj'+!Zg|Z[`;`@As[-,AsZ Bg[-,0@as-,[g[`ZQBAP2b_zP&[{m+!+ __2b_8_zPvn+!__2b__ zPs6{[ [c `XHZc[Z 5D(H [ [-,1 $+-,`U `0*, $/-,-,1XC`ZcZ[[g{Z[,8 "`7@g}+<[g}@ -, 0B `m[``q[`-,1   $h-,-,1XC`Zg}` B` Dg}`c/,X-,XC`6D`A3``[XB @Z [ (XB(`[`0XC`Zg[`XC`/ g~@``0 ca Bg{`'/,xC8"' ,g7DW`  aA ,x("GONE2GL|p1-23[`v d5BX d `a Bd` "a,xH$P1TAGDEFP|p1-24 `6 8` B $e[`,` `ejU*U,xX$Is this a PROG?PVRLOPVRLPROGPP1PCXPKTYPP1PSQPROGTYPEPROGUNSFP1TAGRepeated GO tagUnused PROG variablesLSUBZ@ "[7 `@j &3 $f@ab+h g-,` g%D",8 3  J; -,1D"g ;JD"ha!d%"""!i}j#` $ 1A#v g#-, BgC`A $L[ Bg} "a@Zg} Fˀ-,,<`,83,8 "` "-,7@`+-[`ˀ-, `7 80! Bg~5 `` Bg~2B `-@@g~`5D g~`U4B@@g~`5 g~ J``7@g~ `Q } `` B` ,g ` "-, d-, Bd BdZ `!CO `3B`O@j & $kb@``0 ``S ``-,1 `Z` D``/0C B``3 "paN4B5d# @j & b vq F$ d, d Bd ,1 1 iO J-,1 -,-,-,1b j-,3-,-,@`,X-, d-,3-,7@b h-, Y-,6@g}+L!! `a@5DN`A[0D+QH@`0 "`-,,02 &`Hd0l i6 Bi,x]`P"P1SQG`Z`[7 `Z`[ `n`  Z`[`Z`Z-, $1-,0 B`Z`[-, `-,+wZ`Z[7   !+p -,+sZ` @Z[aZ`[`Z`Zd -, $1-,,x"[LAND`Z`[*`UB2!Q $am6@Qwz6 AO}`OD" -,%Z`A@[`',Z[,8@Hbk hˀ-, Bh3@0am,8* B`-`)) 8an+@a B`+#7 8+ 1v5B@@` jC`E $# jm4B! j C Bj jHd6 Bj-,1 $w-, 7D+'-,1nU*P,xwxJgx"x*NOPOINTBASEIMPLODENot acceptable as GO tag Z0B`]A"-,+91B`a `k  @3-,nFo, +9  (  b /0.@#,x(")GO to non-existent tag d5BB `AH"3B+B-, $1-,  ( C  $pb` ",xP":@b,8 ,8-, [ `',8,83+S g~ J@@@[`'7D`Z![@@ Fg3  J+U@[`' '@Z,3-,0H `-, $S-,6@g~@ +\+] g-,+^ ",d /,x 8"% ,8 @!b3-,7 B`7D+k8[Z[[QC`A-, ] B`/+ `" Non-SYMBOL for assignment in SETQU*@Don't SETQ a pseudo-STRINGCOPYSYMBOLDont SETQ T or NILWrong number of args to SETQ,8bZ-,7@``gZ`@bg~`g[` `n`"0  (  b ,g bD"+ [`4B  (  $qPb $[`a+ [`1Q@+  (  $rb $@`[`aZ`-, B`Z`Z5BZ`[[`1F`)6 +Z`[[0DS+Z` T0F+SzPn\6@g~`/z,Lu`3 g~@ -,@[`'-,`1,X-, Bg~`g [`@Z5B![``#Z`0[ g~` (3bW . Bg-,3`] FH0XJ g~-, g-,Z`Z Bg~ D``,(D 3`q  (   g~Ab@[ Bg[g~1DS+= 3[g~-,6D``0 g`3-,,x@"lU*TCan't be used as a variable - you lose.CKCFVTrying to specialize internal temporaryUndeclared - taken as SPECIALLost LOCVAR - P1SPECIAL`@jC &3 $sb`); `v15B] ``  `@j Q $" $t `b`6DW`@j & Hb `b `-, $H `#a F `4B\ Fa BF+`7DW`  `H  `-, $:-, &: $ 1aA` F `5Bj @j Q $u `bXJ "0.D,x" These variables must be declared special by user - the code for this function will probably not be correct,8,8D6@g+t7@``@j &3  `b@0  `+ F[g F"#a BF [g  aH @-,1 $:-,As-,1D -, F@ @0 Fa BF `[g-, B` Zg Bg+n,xX"!Hd!7D`a6a!`!# `#$ l 6 B ",x`" DCGO or RETURN not in PROG+  (  $vb! ; } h#H"7D#"`7aCa!`A# `v d!A  `C B+' `3B#!+'v5B' i `C Bi`O  ",x"1ˀ,<-, `,8 "-,7@``g[`Z8 83np+2[`XJZ`AD1 B`+-ˀ-,A:U,x " QSOBARRAYINTERNNU*U EGLELGEBad args to SIGNP-, S nZ[w,xy9z9z y&4<9" $Z`Z[,85DD  ( @5A   gbz,Lu+YZ1`  aZ5DL[-,1a[`-, -,+Y[-,0@1As-,Z`-,[` P(21+S1Dz+S0Dy+U-,1 $+ -,+YZ-,13-,@c  $S-,`',x @"oU*U GETCHARNEXPLODENPossibly illegal STATUS callP1STVALP1STQLIFYB,8 b Z[{@@``@[ ` B`-, R`,8 1-, n3+go`AZg[w, B`[g0DA+lH"[_+mZ_[v5Bq *= { & $| gb,8@Z BgI  $A B`Ias0DA`[+yZ B`I0B+ ,8,8(,8g~`yKo4B $} g, Bg`9 ``I [ga@  , ,8QZg~`yKoI[g an+@a[g-,1 -,+[g`As5[}Zg~Z1@`a[-,1 -,-,1+ B@ ",X-,+ ",X-, @2 Bg@[-,1 -, $ 2a-,1,X-,   -, B`+'@-,1 -,0@DX B`/,x "Z`A,8Z0B+<1A5D1 g0+14B1)4B2 "`! g B`kZ Dg;4J:([(Z (2Hg+6-,1` g  "`0B +B[g1+A1F BA +A-,1` "` " 1,xH")XSUBST $a5BF P5X ~z0x?j $~ah~xZuP",85BO0D`z- R'*+N1 z:w@+cZZ5Fc[4DcZ A4JV[(1D` zP@\c*+c1D7e z}j,sU+cZ [ (1H(`5D\ zP@\c*+c4D``1B` zP- 0*+c*@[1B z}j,sU/+:+ x- g*x}iOUx}iOUh"IAND or OR loss - P1TRESS,8aP16 +x}&1wz =u[K[`v5Bxa![`6 `[`[2B+y [`Z +y+x[``1 an+y[``]4By[`wAA +y .` 3[`0`0B` 1Z`[k Z`Z[k A 5 .` 31Bv` ` Z`Z@  [k7  .` 30[` Y` Z`[8 8` 3[0D+ ZA1[8 8` 30B++ Z`[`4B AA .` 3[`0]` +0B/+ @j Q 0 $`b ` 3 ,x,2X"f,8 "-, D -, %`'/0`+x" 7-,A@kU%`'+x" EROSENCEKShow JONL - NLNVASG@ ,8K,83` [7@`` Y K!H( "a BK+ - "+ L`[ g 4J <[(Z (0H+ /`Z-,1 &H $`ZaA`@b Z-, F-, BF Xs1  J`` ;v `[v ( ,8I6@`` + G[`[g[@av Z` D`` " @j & $`b@+ ( $A,xp" M,8 0 "   1Y` # [+ U H2 " [g[ `-, ;[3/iSx" M,8` &T,XaA `-,  K-, BK,x" [A#UNSFLSTNLNV1,84D t1+ tC  `7 8` K `` `-,7@`` [` K $Z` B`` 0`X` "/,x(" c,8;v4B![ Z2Jg`` "-,,83+! (`[P`! &K g~aA g~@-,asQB`! $Kas [ B`0D`!A g~@ + } "/,x " A}Z1D`!# `!%-, A:+! ",x"!Let JONL see this code - NUMTYPEP,8@Z0B`!35z6'UAQA+" `!7- zU+"0B+! g`@  B`!? g-,7+"1B +!" "+"[gZ B`0B A`!m[g[0F`!W[gZZ8DB [}+"Q!`!k@j &  gb[gZ[1B`!e `!i $( g-,+" "+" "+"1B `!q "+"[g`!}ZgQ BgaA+ B`4B!> g-,7+"+!GZg[Z Bg0BQ@QA+!E5z6'U+" - zU+"0FS`!1AAZgZ[}+"1F`!+!O@bAZg8[}+"0F2+!\Zg[ 6 +![ZgZ[8[1 B`4B![6 +!Y ``U5B![3 `}+" "+"[`!4D!g Zg6@``!+!f[`8 @[9Z5B!fZ` D``!`!@@`Zg,83+!wP`8 $[}Z D`5D!o@bg +!w6@g+!q Dg`! g1B`! `!1B`!  Jg@+!i/0 7@``! ` g-,+" " `+"  gaq B`! g-,71+" g` B`3B `"3}+"  ",xP"!CONTAGIOUS,8[ P(1F:`"1w`"0F;`"Z[ 1H A(`" `" " `" "`"mSz 2p8@ 0B"/ [g B`Z")@ [gX B`4B"Z[+"T[1D  +"0Dm+"# +"TS`"Z[0F+" "+"T3`"k[ g1H (+"#Z g[ (5J"$ "+"TZg[1B $ +"' `"O+"T6@`"S0H%`"U "!AA!+"T1`"Y?`"[ +"T7@``"_ P "+"T $*4B"5Zg[ A!v"i7 +"T6H+"8[ g0J%A!AA+"9 "+"T1+";?+"< +"TP(7@`+"> "+"T $@"Zg"6@``"`" [`}( Z Dg +"H `"1D+"J  a Z` F``"/+"T Zg0AA[}Z D`[g0F +"R0D`"`07+"T "/,x""4B"Y an`"E`] ``+"[ ",x0""VFASLOADBA7 +"_ "+#[`aAA6 +"i[`[0Bg+"d+#10B+"h[`-, Z[R+# A "+#[`+"wZ`[ Z1B+"p +"q " +"v0B `"As[[qM BA+"v+#0BS`"Z`Z1A!A[R+#1B`"3B`"+#01SZ`8[R+#RS(z H`B#5A[0DR`# `#5S`#Z[ (00F`#50D+# # `#50D(+#aqA1I[Ym:;JwzPx4J#[( Z (0H+#`#51+# "(`#5aQM`#- "`#5` B`L(3B +#R`#5 ",x ""\[Z`,83+#! ` Jg+#$`2B`+#$As3`#=:P/+ X"#ARGARGLOC$7 +#/ `v#Y `1a+4B#. `)5B#. `-,`# @a "`#[`6 +#6[`[ @  0B+#5[`-, -, `# " `#[`Y`#sZ`-, -, A`#0]`#y1B/`#y[+#>Z`-,0P 3 `#+#AZ`Q*`#0BS `#Z`Z[*`#1B`#2B +#IZ`8[*`#1B "`,x "#K ,80,8 "`37@``#[`04B#] F B`4B#]Z 85N#]   [aE Bg~# [a a [g~[+#\[`-,1`# "0`8Z` D``#0@/4B#h $-,a $ gl3-,`# g#*[(Z (0H`#z :w gl3-,0@`,8`,8,86@g`#3``#3 "a+#t "+$[gAC B`1BR+$ $R5B$ J `v` 5B$ `4N#} 8an`$ 50 `{I`$ $i `{G`$ @ { `{0N'`$ $ `{O@0`$ $= `{0N)`$  `{AE`$Zag Zg Bg+#o0A:P,x`"#Has been previously used with incorrect number of args -- Discovered while CKARGS@1 ,< $),8Ko$-  `d5B$ $p-,3  $@ aA`$E[5D$Z 82Np @`$? "$E@j & $b/ !,x H"$Used free inside a LAMBDA form - must be declared special W$s@+$2,87@``$a[`[ g@ v5B$-Z` g$] `02 Z` B`+$' " @1`$s7FK`$s; `v5B$7 `A$s@j &3 $ `bD,x8"$$Has been incorrectly declared *EXPR or *FEXPR -- Discovered while WRNTYP@j &  b(~ #z u9iG `"$u;