From 442fb32fcc83d8fba1ab50dbe23b8c14301be908 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu> Date: Tue, 1 Sep 2015 08:07:31 +0200 Subject: [PATCH] restruct: test suites has separate directories MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Daniel Kochmański <daniel@turtleware.eu> --- arrays/load.lsp | 51 +++++++ auxiliary/packages00-aux.fas | Bin 57768 -> 0 bytes characters/load.lsp | 8 + conditions/load.lsp | 29 ++++ cons/load.lsp | 81 ++++++++++ data-and-control-flow/load.lsp | 84 +++++++++++ environment/load.lsp | 27 ++++ eval-and-compile/load.lsp | 28 ++++ files/load.lsp | 18 +++ files/load.lsp~ | 17 +++ load-format.lsp => format/load.lsp | 0 gclload2.lsp | 48 +++--- hash-tables/load.lsp | 18 +++ iteration/load.lsp | 26 ++++ load-arrays.lsp | 50 ------- load-characters.lsp | 6 - load-conditions.lsp | 27 ---- load-cons.lsp | 81 ---------- load-data-and-control-flow.lsp | 82 ---------- load-environment.lsp | 26 ---- load-eval-and-compile.lsp | 26 ---- load-files.lsp | 16 -- load-hash-tables.lsp | 16 -- load-iteration.lsp | 24 --- load-numbers.lsp | 129 ---------------- load-objects.lsp | 59 -------- load-packages.lsp | 39 ----- load-pathnames.lsp | 30 ---- load-printer.lsp | 44 ------ load-reader.lsp | 20 --- load-sequences.lsp | 45 ------ load-streams.lsp | 57 ------- load-strings.lsp | 23 --- load-structures.lsp | 7 - load-symbols.lsp | 19 --- load-system-construction.lsp | 12 -- load-types-and-class.lsp | 23 --- load-misc.lsp => misc/load.lsp | 7 +- numbers/load.lsp | 130 ++++++++++++++++ objects/load.lsp | 61 ++++++++ packages/load.lsp | 41 +++++ pathnames/load.lsp | 32 ++++ printer/load.lsp | 46 ++++++ reader/load.lsp | 22 +++ sequences/load.lsp | 47 ++++++ streams/load.lsp | 58 ++++++++ strings/load.lsp | 25 ++++ structures/load.lsp | 9 ++ symbols/load.lsp | 19 +++ system-construction/load-file.lsp | 227 ++++++++++++++++++++++++++++ system-construction/load.lsp | 230 ++--------------------------- types-and-classes/load.lsp | 25 ++++ 52 files changed, 1166 insertions(+), 1109 deletions(-) create mode 100644 arrays/load.lsp delete mode 100755 auxiliary/packages00-aux.fas create mode 100644 characters/load.lsp create mode 100644 conditions/load.lsp create mode 100644 cons/load.lsp create mode 100644 data-and-control-flow/load.lsp create mode 100644 environment/load.lsp create mode 100644 eval-and-compile/load.lsp create mode 100644 files/load.lsp create mode 100644 files/load.lsp~ rename load-format.lsp => format/load.lsp (100%) create mode 100644 hash-tables/load.lsp create mode 100644 iteration/load.lsp delete mode 100644 load-arrays.lsp delete mode 100644 load-characters.lsp delete mode 100644 load-conditions.lsp delete mode 100644 load-cons.lsp delete mode 100644 load-data-and-control-flow.lsp delete mode 100644 load-environment.lsp delete mode 100644 load-eval-and-compile.lsp delete mode 100644 load-files.lsp delete mode 100644 load-hash-tables.lsp delete mode 100644 load-iteration.lsp delete mode 100644 load-numbers.lsp delete mode 100644 load-objects.lsp delete mode 100644 load-packages.lsp delete mode 100644 load-pathnames.lsp delete mode 100644 load-printer.lsp delete mode 100644 load-reader.lsp delete mode 100644 load-sequences.lsp delete mode 100644 load-streams.lsp delete mode 100644 load-strings.lsp delete mode 100644 load-structures.lsp delete mode 100644 load-symbols.lsp delete mode 100644 load-system-construction.lsp delete mode 100644 load-types-and-class.lsp rename load-misc.lsp => misc/load.lsp (69%) create mode 100644 numbers/load.lsp create mode 100644 objects/load.lsp create mode 100644 packages/load.lsp create mode 100644 pathnames/load.lsp create mode 100644 printer/load.lsp create mode 100644 reader/load.lsp create mode 100644 sequences/load.lsp create mode 100644 streams/load.lsp create mode 100644 strings/load.lsp create mode 100644 structures/load.lsp create mode 100644 symbols/load.lsp create mode 100644 system-construction/load-file.lsp create mode 100644 types-and-classes/load.lsp diff --git a/arrays/load.lsp b/arrays/load.lsp new file mode 100644 index 00000000..1e2f0bd3 --- /dev/null +++ b/arrays/load.lsp @@ -0,0 +1,51 @@ +;;; Tests on arrays +(compile-and-load "ANSI-TESTS:AUX;array-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;bit-aux.lsp") + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "aref.lsp") + (load "array.lsp") + (load "array-t.lsp") + (load "array-as-class.lsp") + (load "simple-array.lsp") + (load "simple-array-t.lsp") + (load "bit-vector.lsp") + (load "simple-bit-vector.lsp") + (load "make-array.lsp") + (load "adjust-array.lsp") + (load "adjustable-array-p.lsp") + (load "array-displacement.lsp") + (load "array-dimension.lsp") + (load "array-dimensions.lsp") + (load "array-element-type.lsp") + (load "array-in-bounds-p.lsp") + (load "array-misc.lsp") + (load "array-rank.lsp") + (load "array-row-major-index.lsp") + (load "array-total-size.lsp") + (load "arrayp.lsp") + (load "fill-pointer.lsp") + (load "row-major-aref.lsp") + (load "simple-vector-p.lsp") + (load "svref.lsp") + (load "upgraded-array-element-type.lsp") + (load "vector.lsp") + (load "vector-pop.lsp") + (load "vector-push.lsp") + (load "vector-push-extend.lsp") + (load "vectorp.lsp") + (load "bit.lsp") + (load "sbit.lsp") + (load "bit-and.lsp") + (load "bit-andc1.lsp") + (load "bit-andc2.lsp") + (load "bit-eqv.lsp") + (load "bit-ior.lsp") + (load "bit-nand.lsp") + (load "bit-nor.lsp") + (load "bit-orc1.lsp") + (load "bit-orc2.lsp") + (load "bit-xor.lsp") + (load "bit-not.lsp") + (load "bit-vector-p.lsp") + (load "simple-bit-vector-p.lsp")) diff --git a/auxiliary/packages00-aux.fas b/auxiliary/packages00-aux.fas deleted file mode 100755 index ff71d4f679574ac5e2d08790bafffd132e86d9e9..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 57768 zcmeIbd3;pW`9FT|+yH}w%!DBj6?DL;!3rd7MiB{wB`9cE1;q{_2_%xuOu}N>1ZzR0 zqHQg;wxV{SE-fxq)Gk!5=ttX9tF3Ld($*!|MXJ_PH@@%pbDneWWM<Nj`t9rW`~LB} zkb9ozInQ~v^PF?fxik09hN&~Bg<RLMhv%H*5L=RKDCJtQ`*{UWlsjckPn?UKA;Q}u zsLFuaM;MYV9VadX>gY+RL{OA*18DiYXVAl1+IAt3*=~=v+oSxpEFl99TZRql<e=o= z4s|uXEK)vOl9xx-EA6#}zj&IU8D*^@JGQj#W}}_>r}h6^5mg4Z?~gyaJ^lRo&d6Uk zZ(QT;KWSRuM?*(?=1qC;rQ<$DR@NVnKO4s_`{J%sP~Mxg!T5{gZ}QaV{`&BruV4H8 zWeW$Le*2!2AKd<ryubYFjXYHS$HQ}aI|q;H%5n$LeqBj|&42;f=z~xj&%%E<XxaGB z=|;}FZs_&h&`<A%eo;5{Z+1gJ(v6*9cjEX<KRQ6j=GT~R<bSps{;zgJuLeDizw~2g zH}YQqV>Ww^0e^nF5a6HdMot;(;#v4l=!Sm|c!y@;FX)Cp592lJ40N6!-BrsFp%*%b z)93|CPv`$RboO)lIQ!J;uM`*~IIj9-$>#w=&vh0T8$SP>NGxw^X-*{DtJ~TW2`ACe z+|ceMmZ5MGGv>`o)Yi4tEpJG+*R{=?RngeeTsN<JX=9zK%U+YHSzS#5)r}38gYn#z zi8(5vqOm%etV=p|HI0eZww9W@WHM3Lyi)LG9nCfE4X~uPA=z5pUQ;jBnq;D7WnJ5{ z#+FqM8ZB>ercGVd*3!H@(cICLsBT-{(Nx#mo=j9Xw=}P5a%g;FS#>f|alw?SBA}^y zMO`A<(A3&kmsnbz1l-=%(7fD9HYAdDjdeBciPq|x71hh@C_cHSX=zKNv9G43Iq4*5 z>9V$DqO~Jg@1RBdrA@7BenWGOK!{9hTZ4e6ePU&GV@I73YMNRRK)5ED*iuu|*plpM zs{@x18xh-5ftJ>$I7`JOENy76mD+}8C_+pVb!}}eZBApuQm~9jwu~qpH==~-@}^cn z4N@a8>8<VcZFSYP#HFfMT8&~=6N%#p3HvzsTU*^;?IaRQ(KC_~Ai;o<^({?xBQHgy zMmDz8R5y-<?%`BCqGTjmk94NboH4l~F>1u95o7(#N&%3>|M6hGoAS?KIg<OPVaIU| zy&WgyOt+%+I%uzVC4CKFIE{W-uj}zNdb#3D(&#&NeC$l4FH!jibbMO97C$&DE(Y)# zXs?MRbf(Z%gzz0sq3aM9`jHg64r!q~s+aNy8j765DfDAg=*3F!1)2>Rt4mVo{!#<< zvJ`si`ldXEo_c++OrcYUJ*raZHb$&lm_kQK`p1$Kdg>*(K84=L=XRXd6uNe;)UHmU zr^b0>3O#ipuqA~aNs+%Jg>Kg<tlpVI&rjjsl|qlD(08ZMxxTT-o)kLgWP9vQp%+>r z%6%#H)c$=Ug??NLf92-ChAX%A_~6vIQ~B9_?L9glMrGyZ$HI>qrlVu~6~~>UC-=uW za$-3k;`OXNbnqySlaC>etCw@=fZ!qGOrb;j1b-Kz>zO)-_6Ytaai;vCU4p+(oGEl@ zhv0uA-jn!7!GA}bDRZb*@MnlKRSqo?{C|k|CSE1@BgB~+hsp(ih&WT?P>JC85N9eJ ziVJ=_ai+kbsNlB}XV)Kc1iz6uyZq4M4?#HjdgAQrLk9)FnmD`o&;h|W5${KQpWv4h zXICHEBX}EecJZNIz$>>;xD15K?LAn`uN-!ya_cLVn~&tJEI_w>`V`YGy)QX>a9QNU zDUNf=qwIxcBO)hW2@&Y3?Gs9+{n*n?`w!XvCm(v1TMt+Mq;q1W`*`IqKWs0Auu>J4 zYlNBh>GC#C_#@byj#Dc)Pv}KxKIFCMR&JZ{2(ZrKh(Kp0PM191V=oBqTbcI!b|{SA zJkjasbLi9HG<HM(Ehigi4pHRM1D8nu%tZo5I~On#TOY05KBXvJdFJMWNT0~&VMr=8 zTM9LmTVJZ&*1E9seBpZp)S00Em{|vUxOCsqXFw}U;Vkkwho*2wl`}7e^W6`qn=+5U zKr6FQIbWvHqP?>7061p|=g&#S$eHvYO_;QoX90iA#H-v^6{lI3y8L&vwYYTOrS2p# z@k=Uh^J698sO((li~LL%ks|CNidBiNQ7f(NQg`OI@{-bhl(_k^@{6ShIx8UQ(9hs? z*Zi0?Z~ly}Z_lmV`hf)cZ|}p|Z9Ad}aOJj(!j;?SG2lBG@Z`+O&F{JGBPut4;8t#{ z=+!Z1=GG-({>;%IarAbE*mUz_(TgvcwD?hU>Xjfu3b@7n_FqbVcE0x>O>jEz1^Zv_ z+L5Ne>67c<1i>Fc|7TSH=&btxMj@Zj|Bt5sy?51ruxIiAlk49E!5_tc)jv9`{=ZSk zC-ncL>3{Fv>Oa`C`2WfEZ-U^D;=k%2omKzeDC86R|IzfncSQXMdlvscx&BQM{89W@ z{iBWk`55}|RbKH|?t?qupoq`@zH)0$QTqa1awZPOG`4-hMl2lnSHyWu++R_`yCaqR zD;9F{soeiKW^hc86=h&=CHvOFPsUkPEa^N<aa$|uE3bHr;xE4B(PcX@jedvq+xrg1 zvJ*35Vdd7!vdV4c#g$tNzRa3!WtCfhTDcW7edk09*w$mmi6jpy`Y~4xmD{#FzY@jv zJ$tTmoYH-jTeq3nYJT|WY+S~s6jhly8WQR&_u~ZBXw_a+-+8mhdw4HrH>t*HA)C|_ zZLQos9Wz@yfwO<eIjwT*X7Y9}7e~kewk0y%OF5_rll0NfVyWKWx#V9*kA8Mv<jO5r zeN=AiUsSpI@~9X2>?ydIQ^~>~8B10l?Yse;VrA$1?}&?E6Bo-me@1lk5w|@KzjvMx zcS@O#yM|IiPEqAnnVE6vnFCLOU$J`^?Gp#56s=aruPoX@%6?NCrS}P~^J`GdP*!eL zCX^ecx#HV2I#(9$6!LwhWMtBUGKZqjT=-CKAwRE#7S!k*BYgWiC&M*H=OKwsE~2xB z(FtSe!!{eyJP1$+m`#9w|4#|fTEqgW(Rn9P8=zH4xQ`y79%Uk9byeqnk$Gj&F6i`Q zwigIv#?r=&aA$*bk%^fw!P(tphSh=xG218P`--H@60;L13eBY+<sR~zm>E!G_G=or zb$@3bO2+KhU1RnvmXp*@D}tC!0<($Px8IhSRdPHcW~+(Xm{kn=I5E4j=n3fXV|0-A zB1SB2j0ks5m57=ckw7O8u!NO@2Qlgt@_j{8W{J_ev=+^!9_8~QPV<8l!uJZ-3|O zZ<!c{u*R?4=I7O(sL@U<f*1`(BNL;|XofLXgm5rM^N89Qop}7mi_u}|@M9E4U>GBo zHb#UyhtOahd%^_gjz};Jb7c^tC}nKBuSm))G5R&FMRTb~Nky7R2GkgRUikKRKK`bO z(TJ`wx(3@8_7JTIV)Sn?n;0bkAw~|u!5EbgwK00{*pC;ZLYU~ssD$<+MlA7Pd?noZ zfoL>&BusEFPG(psco3s9A>UUdWtJG-Ls4ih^(c$UZ^oJdHAa^T-~P^9|6yWuQP&u8 zt4Hm$B8bs*U^X!t4+t@O0pVbba*5g){ig8a#i$%Q{1`2yy@(M@{FfLJ?)<H2G%*q; zI9Ew#SSffAqa{MVuSm))G5S13p}EwftRlaOkpVSE(}Zt-=la7YMxXB*qbb-PQ#-8) zVstl{O^gNtLX7qz9E?%t8!0imci_j1Q9X3{G1^Fb5hIrPFEJwA`F+u7VkAs(u9eKN zQt%)~TZDXHk(60tbSXulxzwXvO@0$218R(h3g7<Di{KsS?EmQ+BQBq)omK=f+74zD zqqqJpG5R9H!5BS8)aKE(13pHK{Kb~+w<@<4oGBt@Su<ff=IPGeqH6G&kXpI*@yhKF z@122=ZDOzBnsYg8w?AAcZvM1$JkhOhfU$E4Ik>LD`fS_gN-~V!RE`BmWb;+n*UIF( z?Yc@3Dz^{9hWUzCf><&|D>v_pR*t`7wctXIZ1$u{!Mz1>r}BzNjJjy$wpiuXs&M7j zPa$8n&_GU@*a;)zovjj+zlO2Lmi;dmRngQfw%uK0aTM%_<Noe?v)FUR9sZh$yX@^% zhby;L;vN?){em!TtHR!Uv$(M}_rRfBam`M-pR%ps5G}^!ypsvHeZoVSV>{>njiDL* zYJXG(Ass2P+uwOAYlDz>{?!j@UvluGl@ih`Oi0hO`I9xIh1o*-^Dr#hR<MLtWDn_B zu{{XsU|NP76<tCq_Z3WB?cIgqtalf-eX@vNhKTz22euV_h2|oj`%FAv$6V9dgCW{B z_=Z@Qc)lco+u!+{zo0gV=T4#~MSm#mvZm;15*&m&YdquG;(2K=iD#5nWRK@7tV&7I zpV5@`cxFq{N~CBxa{L<*U}GEH2l`}joh1v^f*E3yU0_W(4)apy_g|NIPV3htp4Up? z_IG}cwLv^9iJEvekt2J4zS)z(=`Nnd+2UCwO$zqqcN@<y(ZG~=uA?a?o(R?|shwFA z&CJlts%#X?INoP&o3zl}d*f}jPZrLh2q*Td1^=eG{$gyxxfrsYb%z+2!S6&-6^!?Z z61e@HXRtPi=aEjJCZ2=Ik$nnn>*4%|c$Q>~=bJffQqW2(vghYiu{{{?!)aN1ex^io z(q7E!{yoJdHm0pdTkFjY#ZMT^cX8dZ*Q4*yT*R}C7m)1}F2|7VEMSPX4gOXHRY5%8 zkihNleC;*V2JzfY)Wq{=(k|=#*&xB`E<ek%#q)k_`Vr4Kt;inFf3hkiKVPINA32_@ zHJ*F6Ajn7eY{dEhDymONR4ImL&lcP4VsFB&NVU!%zAAA&KM!UHas9FcaDV5utPSE? zMbyN#gB;oOv{-`FU0lnv#g!K{82ChASdl%hU!#F3as4b!$r@L^BJJ4$ry0(pd-ei4 zx@V7^cjG*B+m>BYY~&UC|0=-S5McZHM8Q93KJwNq6em1_)a$(D6~<}s-*ZtF#P<vd z<o?c)tPSFO_+_9bz6IpSKCd3+u;_MPt;`nRx8Wz^TTd&p$9IC*9?SzL)3U7b?Q-4U zvk#IP<AW%V?s;CZ11M*1+xP^E|Euu+8CRFi-ytf8-r~CS0HJGeGp+M+LeJn1W#<nF z72_6C=RJh($EO&by9wps{&nZq359S6vh$0C%H`98vx_RX-)q*BuXipceGjAuw92i& z=$uOOU*&q)g?%{bkI7BwF7yJ@b9tZ77fmrA{u$({yl2~m{2IwWms|N=r2K;PJh;%6 zeJ{xu@&l>u6HdZV={y4j#Fia|JG$~w>!kDN&KN##>fCvA&zdxU;rOaa73WQwK6P$M z$#9?}X3nh|asJc`QH^GD;QJKqb;<U#&N{8FuC=ADeRy?q?eK=>%`I(p!{r+v$>B@! zHI5ah#fMHB8Xr0tf3t_ii*Xu;^Rx>tkaCioCr_G#(wB&DtqkvI9j@PVNyd{6XPs5s zg0H101z(K_c&nGyHLe+6i?7DC*V!iVp%pX57bq-lX>D(4!WVnu#YynCuZfQyHf)#} z)zui9SPWZfo-t_Xw7J7!JFJ~MoMy8WCZPkLGPjh~74U6}v@@Pc%_!DPMa?v+nGUED zf0U1QqggA>aULZcljS@UJhKF{QDe&)_&XPW=ds2%geZ|UCRNsGX}b`-i|}_*DnArx zYuHA!hOr~dr`F7DpS1j}F5g5dccxzuU)IvmTpO=$jyE*dt>zc1n%m>;)yvVwJ>DC? z1SLPzZajGO=vtId|LN$_Z=gIKiOlKZPL%wv-|3hLYEj;a@+RV#n4Tq$G8egcIxYlL zP~M4hEpg0x_o3_$89dy}=Q!@_sC#^Fuka4ED*|m0{yJYedUOeJCoeiJukhSRpH<<F z&cx%!pEkN^D5%a%{7u1M9Cpni-=w_g=FpV9c<8~r;w5<{lk>_Z=apCFRZhvPnw=NF zFt7OH6yoH(s#$r_NqOO^xNgWX2Inv0uLMJ911Xd9qSu5b<rQA#LFne3>3JogDaYi+ zL4l^pdEs--w?NqLY5cAJ1nqKQ_r6ci?rgLRBmN)P&UUn``ULInM7y1zpxw)8ckmOm z8-)BQMm~KU|B9e%9@@2{oqYEYy>u1(Z?ku9-X1TMI7T`SU0%`0tMBb&)B1#-&D-nM z=k4<*=RJYH171bm^XT(~-XgT~dby~rNvoZV+5~HRu(l<w*0v3OfXccol}l;Rhp22w ztE_<Bizzomxv90&VAC{Po5R{A+IAW&wzUmx>#=qjYNx>;)=t*8RLji%|BwHNB4EEK zXulVjZkqjGU^?C6Q3v<naUlKWcuWCX+V2l)b+^T*wB{r&?e`0<++SgL$;0BZ&r8Ag zYlW@nHGqf3UrNK@NW<Sv!}(oH9>zPzIYseYL-xNPk2}Y5*zXbh-$^Tp3!UG`=Yg9y za@g;t+3#iYTEoNE|MSD6EyS&V>b4VA0CyndIHLCQ`#3!2s(t3F;5dbb?AQ?(9UT{n zvN^WBy$<3|ksJfH>{Np+{RsuEopIHVn|yLueOLvG{kxSPYg@sU-NDTq!E3c1Yfr(g zUn=hZv%)?{l5W5N4eTjej?;3QmJ768rsYa4uhQ}cEx)DZ{aQY*<*&7TRm*p@?5PPi zK+99K9H-?pEf;8cK>K-mMa5b1Vmv`IEIt<BLN0MmhexLKO&8h$_HUb!X&yg<d+N9Y zfg|iL>gPDQUq@GeH|jXq8iw5PcadqKP_MJV8p`SQcbF3j_d3MF?a6sR6zb6s!E-A) zJ@CzK)b%Kbyc|wHIh#KXEje5AaJrHp8V*CzBiu85HBq<c0}zlil(gq3<D9bycu!jB z<P<|f&qu2WUY`%}u?q>dLsie8QdqBzy^enoW%z8^-fJ*H$LUQef5YD~pTQ~O<P_mk z{9Y$K0VHQGGBbQO8G2KD44ErjXV9*f#jhUYVSBH#@ZG%g6s|(<hVP|XCp-fc;rqq| z%n2XD*bIN4a5(&3m=?aDaBjE<c^)7f4L=hCyq9qQ@H}`Devons!}D<tKSX#?cp*|D z{4kx3hu@{leN;On?2`T{4J{6Dq79EzPKncdIEw$VX7_aZl!d?hHqhK0TKmKhf)^qQ z!Y_CPHzMxg7a1xi=T!Rs2e$1?-JxjC6gZsoA~f|raR6-XO+L<r5|Um{9`PrR8G0f8 z*afy@iu(X`!qcGOm|+xB9$riOX$*Izlk*ahlBJYIIc@k8Sx{4pUhPw|4wSql0H4qO z=Laalo8epTI~0XgCsH!^y(<ZZ`y-~g?-P!O?||XC9}q4KpFpoZBpeTaiJ5zpaB<{8 z#68z>iIhaHK_GKoLCPY%kS)0(LCPaPVe=e8DkGy2oZKFQR7JjpmbpCzSs1~`%IHgX zYz{_5gio>L9^;M&QXlyd?aFm&aBJie8Wt6#J@O3%CAXhjhnm$9KFN|hz~usdW8_z~ zV4%xR-V~{z(n5C<q-~DOruT!~*+8~Lc2mH~ZY$V!M3@V?Biv0uc1D;Cxg!PH6$uk5 z5oC8HLZnoXJ&^%KM!DCa&ECjXB4fn1eUaW2J<h!ldLDD4D^cX$n0FU!EX>_SC&RZ> z-7N&2@F{G0E8Pu;iy4S-(c7rgGn@lj&oKK?Mi0%_?(G?7Zwhs}rN+S91SJ1zG|!od zR(-FX46s+U@6Ovn4?m9n>wBZ=`?t}&?@fer!c|DizBdaCM6`i5r-9YG))C}5==-h5 z0ruX5)35Pob8I2F@=7>Da!$o~%PVF4bFM>|<&9>uoFsZ8?+hA|GZ=jrxs4f~(+3QZ zZwPf3@*{G`J)~X%!I3*f*qew*^aL^PIW&vLN$n?=M2i=p4`Vg(&WZgDQFLQtpd=J4 zhI3x58kC&aGq9^iY!5o2XN=E2^@_a(J>ggxjO-nI7CgtqUWS-HvCA=!<;IR8NBYJl zLRDU@AI*rBLuNGg0O0)CC@PN)hE1_pE6)968z8M9HX3pU#Bv~WVC+NaDvX_l^Rcld z=)>b;zsCSMK6Vx4A0Hb4o<XtWA#HGMIwr>xVuuid6JuY2gm{drsUfimuz6_g9dMo$ z8wsAG*dUxwj?IRIQ(_;2|I}E2*jXIA73X0w57IU`IqyPEbUB}n>>0ik=l;Kdv|Z6R zydv0Au(V;h6Mf6$L^|LB2K8-^pVk-5o#sUU={1sN3cz=~y#NRN6HTK>yc}}h3qzvs zdM^>44Kt(fc_sAs-!LcozW05?17TqF18*e+59kf^qaS*Cux-F=4Bk=iM#6gtJ2}Uq z81Q|<p`2}mSFvqQ&Q<8O0jE=bkDOnEG~jXS?V0lpETsnQhl|l(IgtXu_ams$a8Bt! zzy}eGXz!fg5FQHw(PMJHJpgc+aG#vBv3we^gt~Hbo&a1>>qPtJBu@Y}4wIsJIR}OU zz8YB{jpp1<`V~l$XnxK;Cjy>>C`S9`ycY-DNr|zX82JYvMA7~^D+s?!YYK9XAx|l- z9FVh?@a6PmV9w=307vM_u{mF*^$W>=T+Sve4+i9s=lGo02w%>K56UTq4NlGqGBt#7 z&go6?Ql?YSa5>Hcne<fv3fZm4VvJGvii?Gz8t3E4!2Uee$=iTD4o81<H?ZT|o#>Bm zf^g^fCWYMaT82ibq42+$6astU&oHd}*enODj+}#tRo>GKM)a`{RMt;@SpumnfmN2k zUbv339%r*KuJk!G5bM0(Kwv!j6qAv5J?+a9NM#AEvIO?RUt`Ms%sj7^cL1#mqt7sl zDdbna5P?*Pz$!#wFU%!h^x22eS79gbUU*#?{XLVLLSFEN2&6&;Rv`j=$Jf?1JJA;z z>hSS+M9_);fpFBx`yRTZF#0k_2nD|43lvBN3akPJ_QKy}F1#uN!>6+=UQ>ayP*E0r zkHd@t-}eOy<c5FAL>4#{<`)1Btg-sQ2wX~+kBY#^<>b$Ci4;bjV#f9qBpx}!==Kt% zII@zX_!ze@(yzoB#AR@KG~%8Q%Lc=Ws4Hd+hT{fwBR5jFK|+yP0pb}Y`64$Q2~mAN zL86iS8MBxmg^^Xr&1io?;*l3=Sb-qLkuRZlq5}jei9Cf&iVhT{%o%hxB}5xs&OC!x z)UCl-kt!!5xw1l#urp{i99S4_cDcT%11*6A26Q7&(tU%3A~GBe;zfFLY_>|<aD?Cd zjb0{!iAEODm^MKQBRd)8q#*IgB^;LRqP{q?iJjXaNJ->2)~s|nBFY9YuY)nG-1&^} zVBA4>qN@d|9Nboi;I467P*a7m&&bQzCu^bfo_|91*`N*_fzBd-P>q_4K{&x&FxR@= zIK)~pD>#^8dBwZ}p$)}u!{p}0mY{2LVvnQidc-Qh(=&E2czVSyhWp{zY2fS~dl8-- z6T1}WKC#~+MRH@cFsyIvMR=1Jdkt_T_BvWcoc<5W<a2}jUHDr7$G&W!r8Q1;r+XiX zfNpdjBDA#3iQeSyBiI1&Yc41Mf~BS7oaoK&(?TY^%Y8=ZqenT>+uY}cPWT({AA~+` zj1&E~`?Amp?{;4&oLuHaZ+8z9tOa<7%WG@FvWC@8^iKDEzytD_uXnjjPFyKr?04NT zV1$oB?ioG_k?k2Slrxt-J;TiZp5Z?V{B42%D)2o5|4ZN>3e0H~i!?cNO79uwpz0Yu z6X!ua5W|w_{VuPN%*zLZyfmO2Ig{5%gM=biGT#m2MZN+F_|5}O3=ghtK)yVzc{!YH zKM;QkBfXiiKa{?YN4^6)qCaw}yg1@;kpEbaVa}kRpixQm5tmnJ+Va!D76Ym+22ooK zqP9GqYRi7L<!P#aLdS^M@>HrVPa9jDLDwS$#nE55Toh3KGl6;os(OQ{dV{F?U!|&l zHdXzvQ`P@gvM=ro+5-2Bqc6H2sK$eVMgyuwgQ!M>sK!60YW!2G#+Oqyz9v}?jb|b+ z_C@=KDv)oHt2wRYg_Z(#B9obc5kbO{w-JhHerUDO4qzNb`-QdxDU9sG0FL$#-3lZg z84799g3u3u6i2?!ngO9_fRse8#XyV>6t=R+pLmr&HuMf^$|JYn96e5u%E-gW{pcWJ ztBTw}a|VZcVJ=u0d63JU69icjIgZGQg49Q@r8#jyS|ht@!B7#fI?|JgdXgX;Bd?RK zNRTa&O-#Cz#f2S_IF+6%$j-=grf{(!yCMfDZCGds)a{NO$Fw<31nh}SqUh6wZLc$s z<7YAaF!P*1Bw<VqmouY#B7@guBILuCGJ{GaIcU&eJ&D|2FrvZ^;ukEDku@^Nf|}hR zoX8M&p*})>TEGwoItxjX6IwpcmW-`c@;)2U3c4FK0&8Co;=_0~I#1k>-^!ku8JY-s z&+t^7#o|x<?IZ$X;gE22VQ3>N%&K~kfp1_aFT$N7@qxDn1|<>DUD0`=hf#8{%@6q( zbOXAPtC>Rv2}NGzCD<U|;Fi{;6TMK{h9h5u)ab<_S`&@@n?1NVM7IhfE^96kBp#VX zX`dFP*z|28#Q2m%8ki4D#JaM`dd^7Ip`XC4^2j0jy;N$dB7Y}RBgn!Cjg8idfF+S1 zF}v!dratlpl`aci35M248Iy3iC|w=7ivsFHqhaXA$QXvVA#^H`Es?X>=2BtXVP@DB zA%=5jWIx?*3~}PW39;uy(VJo921T~Mt~02Z7x!pOXb?6k3}tH&N&~tPS!Ww06p@9t zK|HfcxlB}touMDXDs!oB56ywN*xSs~*k!Q7jU}Kn6#G3`yx3E)At%;`+8)lJPt*VC zy3pll5#bHy=z1~6iOgkpY_QT#Lu`%oO(E{8Vk?k>xDf}5SO@?P#hyYhdCs6m&?SY@ zt)br7vCyTf1D6b_%RPhWa?c=MWH{rzO{~d@Ok!xS5kcXI>=HjO=J1{dJsk8XOe~9D zAL8bSs=g4YGN2oIjWP_Pstn>qPT<V;MdM%Oe>iD=$w-f!z}fHyL3EY-WkKSRLgvIy zL5d@}Z1WXCu*#i?p4=F{DRdLIkhJA%fh`7fBgK?!kdRsO8pMlS#+sW$n-J1)g!`}P zE<vJZ`FKl+>!89&8R8thRnjXSxq_bECN;&8(X9D~)RaU{V9hthlCsDh%&>2XmE~qN z{cS-iBY&XM-GX3*FdE;HL9sA$Ck5OdI%Od5qw#J{^bTRGkKE4jcBde%k*8p8^e#bG zqf2gu=lLAHgGw<nN}`X60LJ2{K`adDMw+R@Alfem(G~yWA~hUoXN>m?5;cK&A~X{5 zDKt~ZlTs6pyvj-He*`IpC8xvieD383-2*k1(LEt<@@dK4fh7ji@nsMlUj|W2?omr_ z<DkDc)sp+v65POaqW4Sa;`j<WkOyQ6DK?$ASK5>qgC7*6%ozNTAmz@W7tnk0=nq4@ z<v=Tc6j*6MwbCGJr9nKS@y8-6Jh-tA>(YIKXuN)6taJwDpi|1CKMV0*29^9gP+~ys z6oY7|7(_$y3!}tz%7IiRztm9N!hZNwh_@Kx#^Gm$t=KsHoFEu1i;-<5(dR?c@zES@ z`E6i}0o7rHsKW;F2J>w^(ch)o^7~X<UPw)lKS+%x$V-A0JN<vaWRLdo+HmuP8;M-+ zYNT>O2f)7GaDq#*xbk?RDChtf@wjd;Xh0*6b9+Gtz<iJQCJS&i>*rMo5n#+4L$DF+ zERQ!S3pxN6c#{cob23nc0xVRa+?yQleOs6b5AwJ%C}`l`<V5ctp%adK+$0n<aBp&w z$L&Eu2jL=*8-{{LC_2?U4)Z5;0xtIWDM>*iS`IUgwjykw@;Jv7w8GQVy(<Z}IMLxA zM{NOiHzPc5IC!UPq{mH%`A~-Uo9qQ^9tKoAdWOgQPVBidame9j-hkS32GO1~h&PyD zC5oOY+QMf0dzQ!RxK4B9#iBx_D(0->=sDh^<BgJuff56%5`(A`gLsiSTr8A(oH4_Z z`#51w5=1xLlSN~p$)XBxDDIiXajz7kd#{%tB^q9iz~%Qlin9~$hf$MXKqJH9$B;Jp z11>rVB8%=q#PW}2+@hhPTZs&n6<eriI%a_UlZeDaMKmVAh_)1mibj#`WFjS@qU$kh z<ex&MEL8MaN<N)!%0opzpn&15sSFj}1PAg*P)}8;Xd&W~UqZHpp`sNSYx$)_mV}D_ zffUFebuCP*4;2kV&*hIM(i$pSj_ZH^7$U1fMNd)B_&)&I7%G~Dxix<>1#Afw)zG#I zB0EAw5v&&SrwlK`DkfC)5@`8TiR=m$eUIUoMr3!W=oGe@PGnE0XdFGQq=3DlqF>Xw zDkA$rMM(;nP2`DC(f1kKIYbV?AL^NVCF1;isAz}>WFC=&p`!JynNOrMRCI(fSi~3{ z4i)hOi~Pl9P<kX(G#TBNpJ0vS75$t@?K!9kdqpD|on@?vdqokpSx%(bE4rLD^+Za% zqI+p*1CcVX=nUF+DF;ZoS2P{*&u^UzX_a2lKDuxjkt(lfAh`28=)yv;=xxS&<)=}z z1Z)iNs!M^?dqp0tUfl|$)hoI-2gnABUhNg#OaU7yV53*`Ds9`$S!Ih?bTw<PBHIqH z=ncmDYTCBbEBYm9`P+!>@``@QSbv^uyS<_+hUz*Bz(=~c=YTOY=m3n5MyGkaTg_2A zJs3a+)B$7=9Y6-rWo4xqrOu%5Kvz!me2+J{De8hilmS(gK~$7Muo%1w@!c3*<nfj` zTVE8kHlVgPh_*I}UUV+j>4F0;x>%5C<Z(njdWj%9l0R)ma%3RF8BIt{abz)~9$g|x zN#t)_j#mp(7I^_(9bGC&dE`Qht`Vd%@^uQR6{IS%AOxgNkcE-$2yt|oAWI_CShHN_ zlKMy^S1I-05iqny*rCw|xlXLcC&e(KFxu`N6E^|q2m)Y04S+#300!|Qlc;2+Xbea8 zA(YWof<&D`?;v}MqnCU9ynuoIOd!{QD%T(?*C1YGJms!cxern9IwRLC5Z4P*7+JuG zZSc5fi93Ua!;_NeChtAfxH-^hK-Fjv)o2jacx9@_&!%d;N;M8b1f!ob8aW9$(Jg`$ zJA>YXnI+L}9zPVJ!`B4r4d_NVV=G;kFQ!J-Z%<YKc~yS_m0YXp<&O3aLE^^y>#X{f zn0m{jU-bAH4%L4tP;Wr>-XQ9|K{SzXQ1x;{_{*yPScZ6~sy_+SNAxSI{z-Prjgnx+ zk@H#eRY6K3S7Jm)ZxRGIv0uh4Q5n72;|EGKY*%2I0o5>rs9^?C!){T--li?LdHh-e z609GFSUmb2j~{YT?(KnG1FBqus9b|+yzfxCl3;fV5{<~mVs{CG3;iGroRa8IybDe; zN*)Q67|@MO=2T`7?Noz!=3daF5{Gakhcm)sszi2BKlNmzFgVE%FCUkhc;xRK>icCq zQ0(N?af*)cn%|o<>!q+l);SZMJl^Y%dZ+NZ8RiF<-l^np<WnS1K0FR%vSo|BPFPs% z-OsCPn7b|S0fJ7LGnTiP&BEdLLGT_V91Zh+vG)+C|H9+(`b5Wjm~b58zC>|-!PM!! z%FAl_Z@8p+ukni<4!=L(c%2mSM0f*KdWYETK$zbG^Im@!?9Ye4?E(G^=?5Y1Wr#cZ zcc|_e9*t`8@q7T{W5_vq7^0642S7PFCS0`uaRrexm*#K~@F~UlXSzQDAhSdMSuVdS z;K*J$f4qECAv~C`kIX+?zR(bry<PqUw+dW^a+4ze9J$pQcZQVZm$`q2r~%*O;$xz_ zk}yX^e!0t!y`1=cte7PFa*}j&82cdSZN$L)0RwyLr;(>2=??G2lM(vWiaEm$U@Um; z-U3p&OYqv6Sf|Y+dF2~W^(jPq6+?L1v&a{34HsF?uqBLgg?EeJtb)yo!COJzVh9qz z2%1Vkru}rbKTZ0xlC7P5hW_*+=wNp=n=YYz9P({+l<rMAr#jB?eQ*ZfQUS<g_#eUL zjwAmJpd;qZo9Vb`vWt0)yi|c#D=}8CSL7c+jy(mB%DD4GNyi!W9i^XcXl|)f@`DuC zDJiVKQu>7f>#HfOEh(%YD1B4F8b$Z;paD0gu+CKa50v$+Qg@D9TIw$3X%X$INoo0P zO3SY+{hgrYY&MeSY&r5S<@f+PoqYDqXnsM(y^A5+r<L->aMZgueTcY@;r#{oE`H42 z2;!J8c$WVupvRup2Px-%kL`y?eeg6urf>GJZ<Y}K9J}gnGV&JpSm~;Jh=#6PXnN|Q z_tk=NJ&*!_RRmfb_x>M4%oznBKaIxD$X{utbY&jqbRNCY>3;@asXNad?Tj3&<N}aK zPEbTVAI&!ix;v?y-z(t}IQ>?!b$TbA4#8~WwD4C0Ri|$ZoEDI|Xq^5koqmU?IDHct zPe<I0(_ic2^f!4|l7~3ms7N^o?k)Gh6mfbf8apHBYNa^+c}3{-^Wamb`IQbH;`9#{ zF;3r3r#DkMSJylOr#pvPr#I8-ozQ2T7XE($Ri{52I4$4;q>pj>Dmr})QE~cnWPAju zae7M^r+2)s7MPw^WFt&+ulWv45vPx!F?w1nO;2Nf;X$W=20q)<N;W;Mh;cdxR=CYn zUas`O=@(D4PB+tOer{`=7XIx()#=v2X#xL=D&zEJbb2VH8>idIxDbEF>0}qDKeJXX zFg>lvKDgtq`Z`Pzr$3Lz=xMDqJ*^0xegu5Br<H7aS`p(kUq|iAHgBKO1E-()ly!O$ zoqi1ZjMKt@QZL`>ivy<x+=MFQ^kO=_m#FmgC1m_NP~-HcyEwh<eYL>!v?2}-T>1r= zB2Lo~^t4ur)4UY$pwkb4&-S#EO;0OgoGyhBcM6r4D?M;}|LN9gytvG9F2bL2TKFFX zsy#g|a9Y5^-qz{qbozXv;&de$uLNqGp3%kW*=yAT)6<HS)9G1TV2U{X5E`SWwNjk^ zydre^PVm{DR<h}7MU2yzA!hCgRK8E?fzv-2Zk;}XP9KIo<FxQ!fHi_T9S@uq@Vlro zJw1d@zf4q|9!kdJ`dFt=>f-dL_)!`U)6<G<q|>LagDK*46&j<bwbJx7))YMG^ey1C zJ*{NZ(~20UhtO$RgOw{iaQf~M*6H4K`YPx%P7D7lK-K9!fztx=tH8$TTsnO@QE|F2 z8TSA+J)PIZ=>coi0@Krq?4#5D+F*(}{VE!xr?t}bv?6r+2JqRQR<h}7Ma1c{i7?&$ z={}{|7r?tW^{s@5rBX@D24SIL+}KYy__egt<Wl>D`1=(yKFP(_8~7VBbFAaOdn!Hv z;&JB8F^(H{xA<u3D8~)CYXbZX$34ZJijRm4JMOW%W8Clf_$ag=;oj)uqenaLTz3sV zJuv*Z_v%)=FZ%eH634yR{ds`HnhoyP@BxG29|L*YT^D!R4L%m_Kj*&b*N=rgcep<Z z>S51=?#cR)%9%59PuIQI9T4DWI__`WR|34uabIy~;Qp(Te+JsW<euf@Wu=bmg?i&Q zkf|?&z4@W007v^ip-=nxnecaHXgIgtIL@4TChVOM;+OAvoHY&u&^;rxN$bZuSRgDK z?Ko%8gWQ+cJ!fH6bM`!F73>nhAVaW?f<c2|_X8U%>3NU|;9a+C-B?+P{n4Pi*Nv6c zn4){uO`x{1*Wl#-*|6+gH@*t!Bv>%^I?`V=^nL5ju^CZqEO)LcMN%DuEOy_gnf-7{ zE;&onVhA#LA?lgISes5!@^Fw_ggl=M&$%{<K%Qtb3QKOc#Bt8qr4iANbe=-HvsWSv zf44y?->WQB(H_ludv@ewy5T0}u-5OPBmX>i6#Qxe`HYn~F;-_R1uzbFPawzS4Z!{d zZ1U9rreQjn{3QUqK98J+QNv?4G?jltk;O)>x60`WKfUD6P^mjRw32+|xO2LFFhLwx zD7i;ALj4(^0{I>YoIqN|IA9f%csds+s5zuru^f_1!Wx|<kZ+=~?nOpMmA;-#KUWvo z;%UQ_lid3S7eAt+HCxH{iXvwMdDF1bUZ=!{i0zL-r&9?$C}~yOxepnt^dx%8`ovz! z*n>Fbcc(Z2mYnPMu0v`#<4fS~+2b5%3bVS8>{g#c7^X0-4azS#PML?iHt6yBM3LAA zoegxVWOlA=67q?4Qzf<gDt=(yRLO0NKfi7Ql}?r9jwsW?b>laJSOiO^N_NMzqI2Cj zb_T0uPvB@AgCvmjE*5+5f(a!T>omsvE(3$+cb$@%-xmm3^1IzmdLU1<Gaw^Zg8V+L z5!Q*qxfAWCFu#xU!&BY|w@!HY32v|F_@Nvoc!ky<gj4Pi_w=!;8P1qVhW`@41hPnm zZ|J8P{&ND%@Emm7$lBBlfB1jT@afF(_f>xh7Ugb{TLb-);%7nP1QIh-{KNjnB}ws9 zG(b%8EojW_Lzaykp>#>{A*zHezGs*;#fNE)q<EPkO!4Oon@MpSB)0#XDq)I0stuUp zJ&+Nqe4=%V9fcI{x><J0?@e(4EIHR5G%3CW?w)uivlb~{CVhAb!XPPb(2as3#SMC! zph$6p{uZc7@iR3k4{M5_rT7s|af@$UKY>b3il41aTh@=~Hwt>e5|iTPTCrpOIrgGk zYr4R>;0&AM^Tpn=aINIp0j8EIemod7#lNCtruZl!ON#GSGNV4xUbGoGrg-^@MwCtQ zYtc?pe7YZ=@{5(nPw{eOt2rdazo7Me7}P!Ajg+OPIAbO$z6h32Ad95<aY!GT#2W}O z#cu{MvMM#j|MC%2d|uobvxNF*yVIawQv5kcoIqk`ijUHmNQz&i2vd9o8f%t~T&i?Q z@ypanwz%FfX^OAW8cFdjiZIxF4Vy`E8zi<rph{MvFJo#vQ@k@!KG8a*Dc<!?l2iT~ zeB(iJlHyy|%PhVF?uO3R6t9&&JOWlpaf2QYuVfZC=sAKS#SPjH)TDTwCgslcW)@$j z_^$P47Pt8B^%JPnq<FnD?O8wmAc(Jzw<+GJ6?@m8W7ml`#YdfGQ~V0C_W(>Nxp$!P zk175k28yQm50%UmFF-p+2dk8)l`JW4*O{ziitmUUQ8vZf&`wf3>4&HM4(0Jvd>^iL z=8zQsv(}d*$nNFtn-CGKQy4Qz@wWj?Ad95<tuRVb{2v6E;-?lO#V<-t@ldf*@*mbI zGK=3f#PIE){&ns!#8p!K5=fjtVrGgj(3nVyuUCXAem)u_HZqG}rF2R0pQw{;(P5Z0 z#h=s~N%7|uVX(hy*i4GsAhG?us$?blvPO+(ia!-7pJ<(8M`fAC`=mGkmYnPMm=xa! zcV9n;NsL*1hxFk_gh5i=ptlK%S=^wH3yKss==(rTieINmxldF4dc~j66u0<+^%JPn zr1%$=>G}2JqrDvG8CYUw@ts<6aQ!)UYhzQqV1iBYyTsmw$097hfgL=U;(x@D)fE4u zl9}R1ge)n3Sjm#&c57r){Gdkocq7r74}Fs2H~Zl!e@}V*6ff_Z;-iO}#(ccN{g(S2 zL<A|$m`RGSh2;~-A}K!MI8E_u2r$JT0WflPYKs3#k^e2l-%$PgsQ)`|F5)UFegqOH zkeHd`mupNU#cx%FDPD@kHpOpOx}<o%Dq)L-hDlTWSgny1FII%XUT@e;irXNu{SB&w zDSoduV2Xb?P(IN*m6789hXPLd$P_Om&!0DWei%MKGfDIO2hx$pqk|>S4SJ5C$a8~M z3yM59=$C<-JpZ9)W~b))j}$+wd2aC|>nBjD$@6{6v~k0DJ~;OfEHQchm{x4raE{%Q z+dThZqRsQ)ioI{agp&7=GCY{)Pl7@7ya)P~2lM=(kR{LiD_Qc~Zs~2Fmz-qUK&%`S z$~DiQ^21Ypp7Qv4Zf~0Ff_$^q?}AhAGwu%|BFJ;bO!9mnc4HIBB6<E(U^12W$Bsbq z{9FJduQ}D2AzRL4iw*L><@wYi!*`hapL5@ae#!HVkT`+F%sl_PMo{wnaYdNt$D&hg zp8s6wlIPXxBwLglCe8B(t&u!mtq6m?%&?g}w?Sh2^{Rw<?y2$2^BV%?6RlJKDbMGo zcp-VdaRVk*XMDUjZqrTCJnxi_ybZCCJU8g$f+EiidPq>@xj|1n!RGlP&CDGe%#!7G z#dmHnOBRdo+Ax7iO`iW%nRag&-wNVRSYq=0uvYBZaE`r|RBO7<d1bQA^B(er%Fn=r zk`py6ndf(dLGyf=l9}gE2wC#HOv#ex_Ewb5^DP=?<#A4~&^-T_AD;5tl*i9=`-zz5 z`R}!!&w08Zy5EF|AkP^y$@7~5OdyNo`H~Yg&%Z~2^Z6?PMmDGBdFe;Y^KYRwk2vl^ zyKd+O=$AY{J`Rl}X689B9y}z^Usr^A?oJ8v{7t1xo<FEgvPH3B(mdy<^*kic4=BQ5 zpKsVqp4%X?{W4P__f{@e<C*8{m7c`*$vTym=NM$GQf!y(-fgnG3ZC9IU9-EtWXm~m z&2EEM3ySPE=#_#ZyAApfP&11cg!KNOX7>QWL)Vp?<hE$#1gbQ-U8pQo<9C5}1I#d~ zJxJ*b&#^Z>YaMg^c&g3pQn7Ww5M*`*ravCc>}_Ds%$}uWX7;T@mdswPWXWuM)6`~m z=gCHt&FrISCo7ec{Lqwprx+eTv+W1mn%U#Eo^RrFPYZ3BmYUg&mt^)?uzUhpB(pn# z$qar5uGEs*O#nu2O3m!bkC@p#v=KiOafgTQhknWI+aPfQiJ6)Gs`@LLou>g}X8#_I z5gS>I4^X;fHow}ygDpbnIOdeOYdAz}B(qBtVX%u0o5^e&B(^U%6_VKxYXfHXLZu_K zM_H#XH?+(JdHEs@&zB$(*7WvPon}mgg0H6dhdS>%zJ10S`Agit;vpZM#BnEp$1Q08 zlF`!Jt5=~&sZj5u&d6$Ix(iIBu2tly+BC`;`JnE5A4I()pYT*JSm5-NuQT=bI!DK; z!5N#xt>b?Ec^A63cTkDF`8dRRa9h6o1E$-0fa$~~p!D`OmYA0L<B9SS&W;q${un(m z_iEuRx14oEsp4kK={jQzATySGpK!)4=e0m*w1x4|?{2=FWX3FnrO$T=_U1Q%euwIF zo%3Q)nm^h71+bYrQOCdhn`cc!!N2?^p;`0u@ymet%P$Shn(ksa;4j|^&DsO|_?KTE znzb5w_?LfOk6Dd~1^@ED*kji9Snl&Le|yha*P@<(`FFW9*P@<(UdhbiFrI&2>8xvd z<2wQP%kSgPoP=8bd4HezZ`jDcV<yg8fDrR9Ki8f0Bh>OQe`ILZE>!a`|KgsrUO;sC zm+$nL^(uJzmwz9ALN?z$IWN}7%R4?V-|g2cik)7l$m!GP9FU+#K^T}b!140V>NCF2 z45UJj2w3oyEEdFj#oRu9Sm^=@_w_l;z|`AyXT(T9W{5K*HWHLR15>zj18$_zSg`Q< zYuC#Q1mdj|qPoY77zIYHCGg-B;qR9Nfiq&(fLJm32Z6KyKr5#Q4Jd$|Fqj|*U-Sxu z;xWVm_tayJm3Tsq)yHxxa9n|!e!RAX5?V0Gw@>5_4&<`-1m7B|J(04hKCX6)`XL$v zVHuhuc8Ui=I7t-runrZetyGVsI5`IY&c+(<6b-wyIduetumwGdOHbg<JL0hP(XgQ2 z)SfoR?<dFk6cENnSWmaCGh$4N^1?4q77vC8Eka0?5yxnod?f$Kt(#mY-z|lsB><6E zrPAxASA!lZylyfAI?7Zq7^AHUTH8g*7#OXIMkQlYbV9_q!H_%0oj-74pGD&189kiR z7#Yh(xD$`H5$GcEOtrHI?K}$z#S4Ojoj;J~oE^ANSrbUd4XZwIqhBvFOf;rrg0;?J zBvLi5VPn*S3Ie!@sx0&~WldEFh{AzsDJW{Er}!h?Sear8*k>p^`eov=?DKPnATiGi zgc$0~5e|XoJQD!Nnbn1Wq`?a@FtnZf5dznJFRw4oE?|dvb;s(4#)j&)HUIH<tMU8Y zjUBah{3&Z^WJj`Xq$S`z14%>SPg^gqsTsMtY+Pd8nBg7GE1FwYH4krWXzo}&e0g)n zNO{$qZP-;xa*Ya6vCfE*fnAP$88hAo4eE#*+Ra}aA5jmd9Q^Wj%?gFv*R<9V^hmD7 zTblu6(zaxT0$;+#3n~nY{@AyzWh42`aur}<%$yL`&;l|*xM@NDh`7*L-AtjVhhfVa zmIH=qElV%OkER>AZngPIa)YJ0gs|2-=%X~U{JuEIm`FqR8=T%~chQyMlR~G(^#291 z(3}D%glS~u*S&u^;r8bjeK#lMy|ez;AYJP&1N`Rta{+(eJ-76{-+F7paghEYq-))U zY}pg<+{1aDw``MXyln#;zw5B^=QgnMznzrER|)A|Cwt>v()bl=e3Nj#oZ9%SLVBf} z#^0C52c+@c!ugBT#(RWxpqs|$((3UvdKzs$E5+ogB#h5)aDvTFVY7?Lb#h9xi%2-7 zYqR+#NWafvY|qPaXZTSCb5~Xy&*P|J1vLzyz)Mp!6p*l@YqJO3O%Gpu=B%-+S~^x< zdD%>Fb^F@$yuXBYcstiUw6bmHdDGXNb>*Vah{B5&EV}NN%XZxyIyDwLIp)P)Ui6!r z!{>!x^>SanXu;-(pPK&m=H%v3Ni0;%%FU+oFGsHIwhj&d->UqJw`bkU;Z@;9o0AiA zJny;nZz5WExaR_XcKz8MPrdS1vSWET)&c4_-Lpa6xFIy#1$Kqoeutpvo<HNv)gavB zhMx%EVg-Fi1pP(??M@T)OA++!`cM@G-DLzlyWR@=xf{MS5cK{!T6ATI7QMHwt3@A* zpl`1aEu^5|8A0Fn1-<Kr&kh6~5J7uH&@a*i-5#QA@2v}6NI_SH#I^U<S&P0E3ZEMY z`i2O4K?L2FCg|59=ojlkb1CQ^Bj^{tpl3qiO@W{zYw6k+kFNb|ZCBSed9>)Zb)iKR z^ams8Heb+(q43uOK~IaI`$W)FX@b5hg8sEOw3LFb_QbV+t+lS*?uB;*f_90ZgCgkW zG(o=;K~Jp>Ra4OYM$l76kT)-UcBm>3^j~|SAK*3!-t_2V&P`O;wI`CxoMmmv#LDVM zr@F1JVPzeV8oYkK9oLG>>k_8mHNpXJJAPK6$!Ti69P|VwuxV>Yvfjb9uCC2VB$D;j zZFRK(E^TT}EbUm9;IpRW#Pr|V*5Gs`>ym=wiHk%Fv@L6FS;dQ38^pIZG&i=?tZ<gD zX|GFAy_1-6K_XebvMy2ATr16JG9KWiL|k*~+M25y6Y`q}{>3BF-jY~am#BfM?RB+@ zR=-(eb+SDnp5W<h2wVv(<q}gdb3uuNQ>invVr(L@93NX#@2a*2n6b1vS?54jZK8${ zE~?cXjj*+0c~f<Ag#$a5w}^@wcwSutlYE7I^-*m@vU+J_oiVnpqZP}ARrqNJ1hcie zy}r4+sm@V7@VN})>Z;qo+}hDj(RIsO+M24{VQdY4grUu;NhX@ASEq$WECh37L$bA_ zxuK=m!EXk%!*Fyb+8|6NJe5LcV@vaL1iZQ(9@TWTCDGlu=r=BN60p9Z8AV4MdcU!w zsTth0Egdl3@S}edt!*teb;+c2Sw~$*9o4lvt@R8Fy1KEUX(^JzR6%%4TdgDv`qg1q zqaHR%pCWYZHDPto4JAC4@-zzJP1dwEw6?b(ip}k9YZ7?D6VnOZ(Nx{Gg24s30Xf9z zG_QoQt!tcR4ULVh=*{Lf(`iUbkzUK1x<qSBvY}n#f<_JX$k_Har>(kqh3Tobw(2!b zD-x`sd3n%JjI|goOiX}w=}5_fc39KUxU^-pS$?H@*MU%%ad^PwX)|U{g;^Xg7&;v_ z2t|XaaU>Vnry?Dd(Cw@&O*SMjP?}nuRV^#(niCzZGB%T~PDeANR#zKmmO1V9l8_iH zh@*;3BHV4&a5G3he1oyQt-3X_tQBd@g(@sDT~H(GKW)y`slsi#LdG}kV4h$Un!FT+ z9BwwBWY{yTe1nW29nCciZvwfFq^_w)wjtiBrp>H46XR;^ScwXSBS1!G5+ju^RX4WF zN><34Xkw&{1&rckOGjG`Cn0#U63a?v2(0o)5!S9jM`M<$UAjiJNu=1}GU2o>*HvkW zmZeN2vrt{ujMZyXD_m=nc>z7K8vTguF}5O$8EZ$!q@;s`cfSQ{B^vk@7IYO1t*L2j zNp`f=QA2YzG~0|aeZYP;^N*%>QnHmZMr&hr4YJ<1rUs97sS%hZm^Mi#+1LUV)iw2y zj~Su~lTt$~dIbZh8k03A=Ju9Wr?F*u1G2=yRJ=^5res}Hb!$D$#B?_f-7<QN__wT$ zlhLwe4GGw4bHBOqQq1wNsR<gn(-5Kb69d2Aj0hR1NOMUVnR;+B>41r}A!XdtOzvCS z8`?Y21}&B~RxeLFEseE_y45vx_^}uy5k@TMP@4}XR`6d^%)#ZQwq+HP)Py4?5mF~B z3?s~HND`z+&5G*fnB)*G%o(s?RXt{P<SBBAz8X_GBVc%tAQuSuhlz*pgw#z^qHUF? zt?7MqZ;EbSl<@XD%L~`Uvr%@EV)`*=<TJS@XcB(d`4wVoFr+%#IrG~gjh^7##HmEm zSY~<=M7l{H1{rgjxkT~8Nu_?~V2b42U&kvGCVP$}nQM@<Esfx;hSwd<94@28B=k?M z%#{dCTLULN88^(NnH6JrZ7gACqd#<FM(!q8Bvw@?<uc6+zs&J8GMF<>hR8Niv|u67 zT;rgJnowgR&IV1@D=-`AsDS}af~nE6Y#HCF$csl1E}1`J6jK$KJF^f#vZIIXM9*Mj zE=sOxZpS54y4ChC=SunjYjMe-om}<kCBvXdAUjHI&o$t3KC`r>1ZtX>$K{03c9DT0 zi<J}7R~AP#wPw~amk}l(s+t;_VIyW)D;94vB*>9rx(XLZ$KU>sOxqLJNH&<MS=K}? z%gh8y8F)W1a~3NkjI!!xq&S0#nWPnqGML)bfhmpok(z`us?Ff{(}v3;nf`ED20N~m zwJns({4&#zF}b#GsTuWPO0H>Iik#v!D=EO4TFfD<EZgu6e!}+B$*Wkh9$hRhajhu% zjgIz1kG^Ph68H_Ic4ykuRc(lS0uFM5>R{?56V=Tv&1-0xtVYn(7-3Z|h028A!K;v8 zxTGd9E7X>ng4MuAn_`S9#zLODoJhhhr=bapSPp4SX_zDv4YhKKODsd$S6nb<sxDX= zNl0j0RR?QQ(~$3qfk?ZC01wx+wK8^aQRXtBwXSZ3>Bt2OWCb8AXey^KwH-}OYqTqP zi8pJ|>e^aF(9DEfmSBNam#k~Un$BN-OB<P<YMiAU@^F^x9868nYC39VsXyv5^GJj- z;bRSlYwQ|X9wu<XG3yr^!yY#IB4fZzyt1}1OLRNuE?<VlGNz3(OdDg$oO&b?rV~o= zuN{KfWu>{kn8DJ~%xIZ_%&a(r5=wdV%3nAJn+0KPZIM}ymsm+Y+;&@$Oc|*D`iUc! zCP>;MMg42ENn~6xbdlRw*Sx&F-r;htbR5@noQP2J8rFmh?P{kXxqO+^RM%eL!o2}6 z#0gz~Vlt+SY6`a<!72*D<K=+UHUo*76{EE_byzOrMUboBWtg<F%xSAzrhTl6nd^9U zG2IAqiWqkmnAuGz<jRJ%HRxRPnjWL|cF;CA)U4nJB<XO|$9%=rsl8rT3H}s90qP#E zLran49oX4%*^kX0etnKPN^ksmpXQl)gNX-MbiL|Sm>9RpSWP6V8@W!BxQ-i>x**i$ zFl}vaZ&=>Z(!rS#Z*+wvW`HAPvckj`5sQ<$l?|Bck}}29TBaqgz})7D@my!sak>w7 zT5vVEwsPv>T<VKYI`u8s+z5MH%5-G<(QNXNI~;OqtC4I&FIsJ8Ns!{qJLZyjs)G<a zvTO_aAd+%HOg1pxx@e>PVDaLxdwGRUtTYQUy<*D1&{c}8AdO)7(~ix#2@PGqf~r|| zHIT|Jl@9fp6{Q$<;}{jY4Xu^QpWA%iE?CxtAa-CkYVHbPX_cCOw2=wUwG6te5fi~E z$SWO<&<EpR_8iz4ahc2(+P#vy+-pleBQr<Vw=~s_ycEedl0&;;B!BsEWHok0@>7U1 zZ?)Ae=fJ=&8CP1fSV&zB!)K;yJ*Ow*e0_C07DG$vp&5eyLW|ijb2PUU$aQ-KcKj8) z38ciAS46D*%&cm}rrg(<GHt=6nL(sGS|!eNyHXpPG5$<;j2?w?z^MtN-=viGpPgB- z(lXaDZfu)_y`HhZb`8dJ16Edyz0E%vM(K+>-cm5Lb+DFeHfv$*LYf;edFfhIMle?u z6e^1*lh9peR4nblE~{(@zpE3kC@nQVtrH*K)ZWotH(_}lZVxro0IhDTsh@xkNrsOb z6Cb`jKKz1F=5JZmjEa=CP3n>vJHB8qf!^XR619#y+UiC`%=nCa>uARIpte*}jwYLh zdpCE793uwHV$NVK*rPEuk)dX`<YJbem&mk_6}oKf>Kfa1kAS5WSXBYdYR2jUS0Kt^ z4q|PRvEtLg0xr9s#*>tC=(iN`=}wgeEBGlD4%eAGMM3`!7S3E#7o5*g7Rw4jL8XC~ zC`+3!c)kVkfw&y5v%rE6C@IHz%bkC-#rXRcJiusx;G8Lbo)ymz-*~vrVhdV<6hAME z_{FA0aK1)m-0RDlYh^qakOF=KCAG@7Mp!I2-#*17OQhCoRTf=A05ZD3>bTJt>|6L$ zKr%{$^Fgh8(`T7)!7=z4jR%5l!84R(dc|UifYG!F&Y9xpS@GliR*NlY1)5&5SRg*5 zS8`RxXkXS`+iHG53d}LkTk5NAjV`d<i~Uv^`TL=^%AzZ<Fr!zj4!(_=2Zoci@VtOz z>VoqUt!ndG=3DSSpR~Y&4=72;iefJXjDcVSWs09?#ozC@T5Q2o@fa%^;xl^X8fCfH zmo?Y6dM+TP8<o^5+nQrVNiX=VGJ0jbR%Ou@1R$eVtd1Lf!M=r01*CKf4{Ft$KFfRy zj=?9`JUCVqJVQ$zD~croM$;lVXNsR^#gFq_Ew*5)_<1*5ED)d3E4eCTv@dI}Z8bk2 z1?Cv&E%nv5=2%hg#eS=dUina4WziK_n9(a%$8o-3-@@|(Qo4mpw5rW#nQy`Se9{67 zKA<EWD~i1oF#hl2=UMUh`>hsRFjYLpN{0B1Ub#kD?)7EOwXL2DNa;o;waT{USW(go zeyfaL;k(g!WYHA_Afs2TjvIZ!zJ*T(BqKRE^HE+NZ~83rEjR{W3*o`BqTm@?>R3@M z5ipt-!8ud>JS%>j-)gZ1Q^jMfWQfn`m0V>R?aP{LTg?whfjI_xOMSJiIaZXLZ=vJ? zk^zGAhuSKOt{?yzy<&A7=L_~NJTD*xS`5TTae1`)Eb}dRpHEs~!3UJ2V@0u-0!AY& zIA@BVXT{&|w_0q$RPh)q8R9c~<r-zV*OxWdwt6lg1?Ctisa3W$$BL3(@LOf{%6hHJ zqALhMMz2^MH~NBo3;AA29#{YvAUGe?syBU>`4+^t^5o!HQ4rs}lS9XfVu^s!R0row z@$;<saek}C7EBe7v63M^qgQg3WwbAAu5C3xAO+?a=q>ftw&qw-?!|tqj9&RrTV>G| z1Rx{6R>yI^VBf;?0#dq#OSG!hXPIxo$9&RU3;tY5rdKSMi*KdzK&M;K{;sQGG}Xa* zwTj`3{dpiP7POi|&ML>s|4qPVLB3d+2iek(_m!PrmgB+MNWtAcX@Lc;rJi%$^J`6m z;JgrDaOTmZB}Jtj&05vbJ<CR|x-wv~;Fo<;##YZ(ecflNvLJsXkq5@hAN6Ugzi0_k zsXn4&Uz`JyVGqvyl{y~3)iUI?ZZMSKZ1vyo>z{4GKlr3M7VNJku|q7pL}>`^fwdN~ zwv*8sZ=Wx8ojDe?{*cW&G*KOMo!J(&K4!~<=haGnk(~!RFH>Pvy24)0bqCk>JSlp! zX%w6v$`Ci#inGRMne}X!{Uk8Lx>Mo1laW-5HF7psSp?sqEcOZZEUEbuWqCr&EG+h& zZodgwEcm)l%19qu^$(w=%7Xj>A09}$qneVveLol2?phL%40~|?n|vMBao*K3TWVVU zrM|K`7F@0*CWM9WQJUnTMXaG@w3d3lS#vCCjVGJ6{-S`*g4UsIdH5++Khw9iDpO%q zx<ce(XVyIIn;~wl6=#jjk}kG?__M`4kPDgaRGGTq{9Wa?!O9}|J!OgNEwwC3makQX z-LsseRs5wP9*|-|{-(DfW#pl)n&h)oS+FGLx3Z)2pTQKlT6=JZ-;)`#hv2Cg9wW5O zmWNh9f1#WQCMFAB;gjZA@Bt+;M=X4dnklJi5o<dct?_U8#?P^!^@nWMp{sm{W?Rtu zm@PFwqbA+tTU(W>uqs_4QuA=u)Vw4^+*~Wp8k;49Y?svrMp$>Q_T9-y&7K-L8>}pX z&r_BqelBE4sn)9c?pgR7U_4d@EEc@lCuO9Mt-8)<sj}b(eQgn@NE;P9fI+g|^=;qv z4B1oh2pEq!T4qa4tN)k2{y7%xrTUo=7Uo-fct{>v#2QLQYw5p(JhY%So^00oTYT&1 zSkO9@Ef1ekEC1?STa~G>DqSJ+@JQA?yemW8Tr18Rn<ZUr|J)ZCk?BrG2F=&V*<fW6 z{8eSyqh*#U@@}o#+da#pTD3o5vEc7~Qbw-Wsz3THRTg|opRq*J#k9Ky``xy{UeWAO z1eZyX;M{=c(RlDzWqD-FL#zMazW&)39OCPrW5ElR#2m5kH<c!-X%TBX8LjaHedFg? z(E39*>rk`LHrs;M$84#2ysAIjx3(%%VO6?9q~^wT*;bJsXdD7@bFDaQY?chNU6vCV zVcp>`JMqYpRJSO%4OSMxe^C}^K(|s{tqOO~64R=I0gDAs^GOSghTv?gN`00p3l71< zYdny2r>cK;)eMrINq*$Jo*{cXU+IeDMlG|YrqzF$uYZmO`3Nx&CWM9GQ<~(VMXaG@ zw3dF#H*1ast??pHtM>+M7PJm!%fl6_{u<xfs!WAd=?amDTe9ZitPF8;tvG9JmUOZG zGcPd0c82vKOCJ79xoxnr2(Hi$U+8yy#zebFtCn=nvO=p`0u~Ey@<|I!*9K=>wbf^- zvfw5>B*_CwXV=ztw1Q;2>(_oyX2`x<KYRX>mf7;q>c7R;Kih&&`lLA)JgOw-h=muc znUb0ov9^=Z8sFEqbdCkBKV-8GJ?*p2wxIPfTWUV4CcW%iTa~G>DqSH`b4S+H{APx@ zxmKJtHcJNCF1s@@!n$+7cPAsM7HZ^du(Al|TgG_o^>ZOZ%7a?9uX~oKwCWcDiv|DW zlQPoBRvq$Lsw`;lJs=P5g~JYDkZgDT&38RR_H%dypU0oH%$Ax~|FB@yXTgM$m=G3z zSZR`n7O{qs(ONphH*1ast?^{D*1s08S<pI^Ee}sp^;3Lnt1=Z<r7J`p?#!BpJu<}2 zwc@O?S<=P!Pi|mDraKuK^nh~PU}X_(zxi;zenQV*>EL0%3GtZXPikpugR}jNzMp<- zIY3MMnf(;SXJ{F;G?4u?`FgFtK}-AT@?(lW*-d-<xo1E9Bxrz^_H)oFiqFt8L%-6m z*YXA}?I(7RDgLCE>Fw=jN&WQh`T#BMXG>EQpP^-Xd;6)!^;&;}miAMS#}t3EoA&np zd_TQCJwQu)zkZ71Gwki_Gy_KJz1m{EF=pQbwIga6ZR*$^x4n$d&_R?Y&Y7+9_;VOM zmj0LJ@6bD*U)0jxPqw#XKd!y!s-Ls9v^SKk|Hg~pY~wTo?-$`=`3~w0E4vf4*A^Qm zyRbH`g7aLB`-NIA*Ydw5|Ig~zYg*cyoc6Zi$F=t+_476@?Tt_Cf8d#c7HOQ;=?yQ- zXK%3Bys|rKyJ@m}<aBwTQ+eC8{OW&MK7XN{#~E7Mn{oDD*2lH?ZI$z$mg#rnjJDux z<8+JOg|Ttks5?9xC);l}PT%fkJl>&k|DKjV*7Cn4f3x1!_?(vZ4w1d*@^S60P(RPr z(%v<){s)mVkoDuIdbhyx9ndYPUEA4ftR06o&(h`nLgW4`E&r_Le@p(a)UV%YY42p% zo%_eN_geMy1}*Ka4C{Zof7Xvfx`nlT#k#<?YY;on+q|-?-gJ3yY25#%WiOTc-;#gQ z0Hg6#E$#N&ZdgCAy|1X8ziMf>+}8he|EwQ<bv<kOw&>c~&hxh4Y@F=sEM49}-Lm2J zOmcim%m0@A&uBkx(9&)L?Jnx$+B;4CoTa7R2U`Er{j+|Q>h;<3+3T_$hqm8roa_hY z>GH;F+$U;zftLR*`M+1cUeeO;P3&sFJA3VpA>H0@>XQ3TEz|ca>HN+JJUW5LKTx)} znX=wO%`NS9Bk(BRh@~A3jkUw^^qOGuRre8iW&kZ6De+vA)Y#{NQjrAe+Ugps$*53k zW4kj#9?Tgbk4lf=lLM%0k+&+0sH-<$qfgZ1IY=KfE%fOdX<^|@Yrw{))B`DElRVEb zVtETR;WR>28u3e$NoNF}#o~j2V69u)u^f`Bo0sE(CPf>Xmr;tTTDr8YZl%TW5J{bd z5he@rK?3DhNf~iYBY3#`vLnl$#>3sYy;<p=b0jN0$BAZHTYF9qr&iZ;sjBf4)6VX! z^j;2si8TH2oUqfWYn;?N&*|+P)N4~$I*2+Kccu4nmgwBvm7eP?E>5Kw*mL?i_VtRX zwVspbeDSnYisg?uN3znf@GOaEH1P0Rzi?K1KPQ@%9&_v~5mSYEPJd@lR{jF#;HYeR z2RPBu+2{kE16k>X&huI6I>1wn0qi;17h;}cUs~F=0e<7VD?u^O!F!6c9G-)B?q)eW z2k+X=a(GTWgUU3{asF{My@KiCI+^jOry(R&dj5=1`mVIRnxyo@Y4i(4eh^PPoR$ea zGat6AoD#i80+r({IJ-_}UhM@vn_o|YF7~UOIjZ>gBB#)?FaET{><`Ls-yCbd#Ppid z?H<|E4_kh{=2`l`Ex+!)EIkDMw8wtQ#?twFN2HhMqahAU?{E3j=z}f4?kz0;$)LMV zFkV!>Q>OHdI$lbQ8hH_@>l8W%HP3Av&R70&<+sxW$XVmORQMxKD-$E-Xcc;9UXdkR zf2|e%%<;HY=$Yf4_pV%LV8%H8y3jMnJD-!%kfm6Ox72q-=OaMzE}RB=tsDLv+^fna zKhh2TSkR+c?2ik7=KOq0H*)y1^x5?C2j8;MKiv)evTo>`LC+Qk-n+{t|JH8kcY+>8 zz8xOjRodO%@b6dt^m+JK!jEyJ%I(i1{;?Z5{{X$KM$?ZyaBnZ0{k*4`jXnZ&9g0SP zp3m%t|6I_s>8<UCzYX-ET_hXi^TMBb-Tz`Ya-5nryqpIwkiokr6Nz&x<|Jm$m^&|# zzyrGWncGBrQvwg1He>CTg@pHPwIr4|wk*XvfokzcJKo#Sf%j0z<Lr1x*NAavjxK}b zEKGQOyqPbg;p<MY&cpi%%o`ZY3lZ=J8F?RrVDe0O7gqb=uK(i9%tw0h+GhXVME;u! z{1*=R@5k}q3+BHB#ebUFe@r^_)j|I2H00@P`}n(0O?k;iA~9{wq*+rFQ_r7*u$mZK zxHj2>2d3rS35h9-&Yv`E2A-2m%$rqVxu?&(VDhAyi3_Gpn>%%0V&0_5Gp8o-l&pO( zS(itu6Eo(`!o%>kk06DeHcwvk@*m%@!AEKFY&BouM$kOtpQw|ixO9?`GvDB19yTv8 zpFVTO<ch?o5u-+oHBS=z59L#wys;p7m0RZfd+_9V6P~8UD<bfoxP(YZeMuB$n3u}< z&o$du1_f`WN+hslFe1`k-@)d5Zr8q!E^+S4#2kH^yaKP9NquLXyaI|1x_dYuRVL)- zr44)rJ`l|CXAOSWx9KGkHLI%`R=gwO^180klRP&u<SS$T3kO$}+%jNVlf&+3Y+0mq zTcm%4z{~VIM~}AH_IBT6%d@p1rWZNvx<FB<3;?$pw!PgS*|Ja@QZIRId);a~<)D$p zwzvBzTh6r=;NgMGZI`1G*wGaG?S9Lala<@rZ^hYiKI%VAX>a#swv20g+E3lqekD7# z0IYAM+5MX><7%+gZ`)h{o3*{Q)9&+ZY2(QD-0G#bUkw^n=tnI6e$eg<(|01YHT7T; zrnZ;PB!liBm#F==ja^6Da(!BRyFakyztgrnww;xCWm<c?54EM<s<!MBYaan{wYDFn zM7v+L<!QE~wcf_hx^=y_w`_J_YfJWT>X9D5U8tli+urVfZMoKVyb7`U6?JY0kcU5? zP1o6uF3i*U)A9S!mRk<n-tMQvAF=%-XiNKTd%N$Be#G|s)7snpd0gA?Kz-^FPelMf zi$CVB)o=Ild$fIt2G+*i`X5y}FQQDf-|qJhYC@<O<qpP=mGh^x_V&I&bhK%*&u?h} z+s>AM0XbE_y?<~(+gm;>CLR9=DoC^b+x6}9+TP9+-L-!Q71W>Zr){6UMkOx~TOLh; zr9w}KRDZf$+s^XlfsjsP-LYc~$Kx|Brzz8UkL#xWOY02(>ozbdCcS-eH|?Li!Zhfg zc0Vn>{TOYZ?&phJO#7`dRh*{Z%9*I`yK>>TfNnCB$A@;UvF$AN+-};R{$s<jG3`EH zdVBV7T8O0Ko&RInFHCEYhDzV*5Hk(*9DZ5>oq$gQIthO^e{Ei}I-CCRbEf^*(kj#S F{~w*A1ls@r diff --git a/characters/load.lsp b/characters/load.lsp new file mode 100644 index 00000000..63ea04dd --- /dev/null +++ b/characters/load.lsp @@ -0,0 +1,8 @@ +;;;; Character tests +(compile-and-load "ANSI-TESTS:AUX;char-aux.lsp") + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "character.lsp") + (load "char-compare.lsp") + (load "name-char.lsp") +) diff --git a/conditions/load.lsp b/conditions/load.lsp new file mode 100644 index 00000000..31a162da --- /dev/null +++ b/conditions/load.lsp @@ -0,0 +1,29 @@ +;;; Tests of conditions +(compile-and-load "ANSI-TESTS:AUX;types-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;define-condition-aux.lsp") + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "condition.lsp") + (load "cell-error-name.lsp") + (load "assert.lsp") + (load "error.lsp") + (load "cerror.lsp") + (load "check-type.lsp") + (load "warn.lsp") + (load "invoke-debugger.lsp") + (load "handler-bind.lsp") + (load "handler-case.lsp") + (load "ignore-errors.lsp") + (load "define-condition.lsp") + (load "compute-restarts.lsp") + (load "restart-bind.lsp") + (load "restart-case.lsp") + (load "with-condition-restarts.lsp") + (load "with-simple-restart.lsp") + (load "abort.lsp") + (load "muffle-warning.lsp") + (load "continue.lsp") + (load "store-value.lsp") + (load "use-value.lsp") + (load "make-condition.lsp") +) diff --git a/cons/load.lsp b/cons/load.lsp new file mode 100644 index 00000000..9f4e6688 --- /dev/null +++ b/cons/load.lsp @@ -0,0 +1,81 @@ +;;; Tests of conses +(compile-and-load "ANSI-TESTS:AUX;cons-aux.lsp") + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "cons.lsp") + (load "consp.lsp") + (load "atom.lsp") + (load "cxr.lsp") + (load "rplaca.lsp") + (load "rplacd.lsp") + (load "copy-tree.lsp") + (load "sublis.lsp") + (load "nsublis.lsp") + (load "subst.lsp") + (load "subst-if.lsp") + (load "subst-if-not.lsp") + (load "nsubst.lsp") + (load "nsubst-if.lsp") + (load "nsubst-if-not.lsp") + (load "tree-equal.lsp") + (load "copy-list.lsp") + (load "list.lsp") + (load "list-length.lsp") + (load "listp.lsp") + (load "make-list.lsp") + (load "push.lsp") + (load "pop.lsp") + (load "pushnew.lsp") + (load "adjoin.lsp") + (load "nth.lsp") + (load "endp.lsp") + (load "nconc.lsp") + (load "append.lsp") + (load "revappend.lsp") + (load "nreconc.lsp") + (load "butlast.lsp") + (load "nbutlast.lsp") + (load "last.lsp") + (load "ldiff.lsp") + (load "tailp.lsp") + (load "nthcdr.lsp") + (load "rest.lsp") + (load "member.lsp") + (load "member-if.lsp") + (load "member-if-not.lsp") + + (load "mapc.lsp") + (load "mapcar.lsp") + (load "mapcan.lsp") + (load "mapl.lsp") + (load "maplist.lsp") + (load "mapcon.lsp") + + (load "acons.lsp") + (load "assoc.lsp") + (load "assoc-if.lsp") + (load "assoc-if-not.lsp") + (load "rassoc.lsp") + (load "rassoc-if.lsp") + (load "rassoc-if-not.lsp") + (load "copy-alist.lsp") + (load "pairlis.lsp") + + (load "get-properties.lsp") + (load "getf.lsp") + (load "remf.lsp") + + (load "intersection.lsp") + (load "nintersection.lsp") + (load "union.lsp") + (load "nunion.lsp") + (load "set-difference.lsp") + (load "nset-difference.lsp") + (load "set-exclusive-or.lsp") + (load "nset-exclusive-or.lsp") + (load "subsetp.lsp") + +;;; Misc. stuff that should be moved elsewhere + (load "cons-test-01.lsp") + (load "cons-test-03.lsp") + (load "cons-test-05.lsp")) diff --git a/data-and-control-flow/load.lsp b/data-and-control-flow/load.lsp new file mode 100644 index 00000000..0daa05e8 --- /dev/null +++ b/data-and-control-flow/load.lsp @@ -0,0 +1,84 @@ +;;; Tests of data and control flow +(compile-and-load "ANSI-TESTS:AUX;cons-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;random-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;types-aux.lsp") + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "data-and-control-flow.lsp") + (load "places.lsp") + (load "psetq.lsp") + (load "psetf.lsp") + (load "shiftf.lsp") + (load "rotatef.lsp") + (load "return.lsp") + (load "return-from.lsp") + (load "defsetf.lsp") + (load "define-setf-expander.lsp") + + (load "and.lsp") + (load "apply.lsp") + (load "block.lsp") + (load "call-arguments-limit.lsp") + (load "case.lsp") + (load "catch.lsp") + (load "ccase.lsp") + (load "compiled-function-p.lsp") + (load "complement.lsp") + (load "cond.lsp") + (load "constantly.lsp") + (load "ctypecase.lsp") + (load "defconstant.lsp") + (load "define-modify-macro.lsp") + (load "defparameter.lsp") + (load "defun.lsp") + (load "defvar.lsp") + (load "destructuring-bind.lsp") + (load "ecase.lsp") + (load "eql.lsp") + (load "equal.lsp") + (load "equalp.lsp") + (load "etypecase.lsp") + (load "every.lsp") + (load "fboundp.lsp") + (load "fdefinition.lsp") + (load "flet.lsp") + (load "fmakunbound.lsp") + (load "funcall.lsp") + (load "function-lambda-expression.lsp") + (load "function.lsp") + (load "functionp.lsp") + (load "get-setf-expansion.lsp") + (load "identity.lsp") + (load "if.lsp") + (load "labels.lsp") + (load "lambda-list-keywords.lsp") + (load "lambda-parameters-limit.lsp") + (load "let.lsp") + (load "letstar.lsp") + (load "macrolet.lsp") + (load "multiple-value-bind.lsp") + (load "multiple-value-call.lsp") ;; include multiple-value-list + (load "multiple-value-prog1.lsp") + (load "multiple-value-setq.lsp") + (load "multiple-value-list.lsp") + (load "nil.lsp") + (load "not-and-null.lsp") + (load "notany.lsp") + (load "notevery.lsp") + (load "nth-value.lsp") + (load "or.lsp") + (load "prog.lsp") + (load "prog1.lsp") + (load "prog2.lsp") + (load "progn.lsp") + (load "progv.lsp") + (load "some.lsp") + (load "t.lsp") + (load "tagbody.lsp") + (load "typecase.lsp") + (load "unless.lsp") + (load "unwind-protect.lsp") + (load "values-list.lsp") + (load "values.lsp") + (load "when.lsp")) + diff --git a/environment/load.lsp b/environment/load.lsp new file mode 100644 index 00000000..be3e5b36 --- /dev/null +++ b/environment/load.lsp @@ -0,0 +1,27 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sun Dec 12 19:43:17 2004 +;;;; Contains: Load environment tests (section 25) + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "apropos.lsp") + (load "apropos-list.lsp") + (load "describe.lsp") + (load "disassemble.lsp") + (load "environment-functions.lsp") + (load "room.lsp") + (load "time.lsp") + (load "trace.lsp") ;; and untrace + (load "user-homedir-pathname.lsp") + + (load "decode-universal-time.lsp") + (load "encode-universal-time.lsp") + (load "get-universal-time.lsp") + (load "sleep.lsp") + (load "get-internal-time.lsp") + + (load "documentation.lsp") + #-lispworks (load "inspect.lsp") + (load "dribble.lsp") + (load "ed.lsp") +) diff --git a/eval-and-compile/load.lsp b/eval-and-compile/load.lsp new file mode 100644 index 00000000..82f9c388 --- /dev/null +++ b/eval-and-compile/load.lsp @@ -0,0 +1,28 @@ +;;; Tests of evaluation and compilation + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "eval-and-compile/eval.lsp") + (load "eval-and-compile/eval-and-compile.lsp") + (load "eval-and-compile/compile.lsp") + (load "eval-and-compile/compiler-macros.lsp") + (load "eval-and-compile/constantp.lsp") + (load "eval-and-compile/lambda.lsp") + (load "eval-and-compile/eval-when.lsp") + (load "eval-and-compile/define-compiler-macro.lsp") + (load "eval-and-compile/define-symbol-macro.lsp") + (load "eval-and-compile/defmacro.lsp") + (load "eval-and-compile/the.lsp") + (load "eval-and-compile/symbol-macrolet.lsp") + (load "eval-and-compile/proclaim.lsp") + (load "eval-and-compile/declaim.lsp") + (load "eval-and-compile/locally.lsp") + (load "eval-and-compile/ignore.lsp") + (load "eval-and-compile/ignorable.lsp") + (load "eval-and-compile/dynamic-extent.lsp") + (load "eval-and-compile/optimize.lsp") + (load "eval-and-compile/special.lsp") + (load "eval-and-compile/macroexpand.lsp") + (load "eval-and-compile/macroexpand-1.lsp") + (load "eval-and-compile/declaration.lsp") + (load "eval-and-compile/type.lsp") + (load "eval-and-compile/macro-function.lsp")) diff --git a/files/load.lsp b/files/load.lsp new file mode 100644 index 00000000..639404f3 --- /dev/null +++ b/files/load.lsp @@ -0,0 +1,18 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Thu Jan 1 11:59:35 2004 +;;;; Contains: Load tests of section 20, 'Files' + +(in-package :cl-test) + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "directory.lsp") + (load "probe-file.lsp") + (load "ensure-directories-exist.lsp") + (load "truename.lsp") + (load "file-author.lsp") + (load "file-write-date.lsp") + (load "rename-file.lsp") + (load "delete-file.lsp") + (load "file-error.lsp") +) diff --git a/files/load.lsp~ b/files/load.lsp~ new file mode 100644 index 00000000..6dfc437a --- /dev/null +++ b/files/load.lsp~ @@ -0,0 +1,17 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Thu Jan 1 11:59:35 2004 +;;;; Contains: Load tests of section 20, 'Files' + +(in-package :cl-test) + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "directory.lsp") + (load "probe-file.lsp") + (load "ensure-directories-exist.lsp") + (load "truename.lsp") + (load "file-author.lsp") + (load "file-write-date.lsp") + (load "rename-file.lsp") + (load "delete-file.lsp") + (load "file-error.lsp")) diff --git a/load-format.lsp b/format/load.lsp similarity index 100% rename from load-format.lsp rename to format/load.lsp diff --git a/gclload2.lsp b/gclload2.lsp index 5e86ecbe..efe9c071 100644 --- a/gclload2.lsp +++ b/gclload2.lsp @@ -1,75 +1,75 @@ ;;; Load test files ;;; Tests of symbols -(load "load-symbols.lsp") +(load "symbols/load.lsp") ;;; Tests of evaluation and compilation -(load "load-eval-and-compile.lsp") +(load "eval-and-compile/load.lsp") ;;; Tests of data and control flow -(load "load-data-and-control-flow.lsp") +(load "data-and-control-flow/load.lsp") ;;; Tests of iteration forms -(load "load-iteration.lsp") +(load "iteration/load.lsp") ;;; Tests of objects -(load "load-objects.lsp") +(load "objects/load.lsp") ;;; Tests of conditions -(load "load-conditions.lsp") +(load "conditions/load.lsp") ;;; Tests of conses -(load "load-cons.lsp") +(load "cons/load.lsp") ;;; Tests on arrays -(load "load-arrays.lsp") +(load "arrays/load.lsp") ;;; Tests of hash tables -(load "load-hash-tables.lsp") +(load "hash-tables/load.lsp") ;;; Tests of packages -(load "load-packages.lsp") +(load "packages/load.lsp") ;;; Tests of numbers (section 12) -(load "load-numbers.lsp") +(load "numbers/load.lsp") ;;; Tests of sequences -(load "load-sequences.lsp") +(load "sequences/load.lsp") ;;; Tests of structures -(load "load-structures.lsp") +(load "structures/load.lsp") ;;; Tests of types and classes -(load "load-types-and-class.lsp") +(load "types-and-class/load.lsp") ;;; Tests of strings -(load "load-strings.lsp") +(load "strings/load.lsp") ;;; Tests for character functions -(load "load-characters.lsp") +(load "characters/load.lsp") ;;; Tests of pathnames -(load "load-pathnames.lsp") +(load "pathnames/load.lsp") ;;; Tests of file operations -(load "load-files.lsp") +(load "files/load.lsp") ;;; Tests of streams -(load "load-streams.lsp") +(load "streams/load.lsp") ;;; Tests of the printer -(load "load-printer.lsp") +(load "printer/load.lsp") ;;; Tests of the reader -(load "load-reader.lsp") +(load "reader/load.lsp") ;;; Tests of system construction -(load "load-system-construction.lsp") +(load "system-construction/load.lsp") ;;; Tests of environment -(load "load-environment.lsp") +(load "environment/load.lsp") ;;; Miscellaneous tests, mostly tests that failed in random testing ;;; on various implementations -(load "load-misc.lsp") +(load "misc/load.lsp") diff --git a/hash-tables/load.lsp b/hash-tables/load.lsp new file mode 100644 index 00000000..2d23d2cd --- /dev/null +++ b/hash-tables/load.lsp @@ -0,0 +1,18 @@ +(compile-and-load "ANSI-TESTS:AUX;hash-table-aux.lsp") + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "hash-table.lsp") + (load "make-hash-table.lsp") + (load "hash-table-p.lsp") + (load "hash-table-count.lsp") + (load "hash-table-size.lsp") + (load "hash-table-rehash-size.lsp") + (load "hash-table-rehash-threshold.lsp") + (load "hash-table-test.lsp") + (load "gethash.lsp") + (load "remhash.lsp") + (load "clrhash.lsp") + (load "maphash.lsp") + (load "with-hash-table-iterator.lsp") + (load "sxhash.lsp") +) diff --git a/iteration/load.lsp b/iteration/load.lsp new file mode 100644 index 00000000..c9b840ad --- /dev/null +++ b/iteration/load.lsp @@ -0,0 +1,26 @@ +;;; Tests of iteration forms + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "do.lsp") + (load "dostar.lsp") + (load "dolist.lsp") + (load "dotimes.lsp") + (load "loop.lsp") + (load "loop1.lsp") + (load "loop2.lsp") + (load "loop3.lsp") + (load "loop4.lsp") + (load "loop5.lsp") + (load "loop6.lsp") + (load "loop7.lsp") + (load "loop8.lsp") + (load "loop9.lsp") + (load "loop10.lsp") + (load "loop11.lsp") + (load "loop12.lsp") + (load "loop13.lsp") + (load "loop14.lsp") + (load "loop15.lsp") + (load "loop16.lsp") + (load "loop17.lsp") +) diff --git a/load-arrays.lsp b/load-arrays.lsp deleted file mode 100644 index 764add64..00000000 --- a/load-arrays.lsp +++ /dev/null @@ -1,50 +0,0 @@ -;;; Tests on arrays -(compile-and-load "ANSI-TESTS:AUX;array-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;bit-aux.lsp") - -(load "arrays/aref.lsp") -(load "arrays/array.lsp") -(load "arrays/array-t.lsp") -(load "arrays/array-as-class.lsp") -(load "arrays/simple-array.lsp") -(load "arrays/simple-array-t.lsp") -(load "arrays/bit-vector.lsp") -(load "arrays/simple-bit-vector.lsp") -(load "arrays/make-array.lsp") -(load "arrays/adjust-array.lsp") -(load "arrays/adjustable-array-p.lsp") -(load "arrays/array-displacement.lsp") -(load "arrays/array-dimension.lsp") -(load "arrays/array-dimensions.lsp") -(load "arrays/array-element-type.lsp") -(load "arrays/array-in-bounds-p.lsp") -(load "arrays/array-misc.lsp") -(load "arrays/array-rank.lsp") -(load "arrays/array-row-major-index.lsp") -(load "arrays/array-total-size.lsp") -(load "arrays/arrayp.lsp") -(load "arrays/fill-pointer.lsp") -(load "arrays/row-major-aref.lsp") -(load "arrays/simple-vector-p.lsp") -(load "arrays/svref.lsp") -(load "arrays/upgraded-array-element-type.lsp") -(load "arrays/vector.lsp") -(load "arrays/vector-pop.lsp") -(load "arrays/vector-push.lsp") -(load "arrays/vector-push-extend.lsp") -(load "arrays/vectorp.lsp") -(load "arrays/bit.lsp") -(load "arrays/sbit.lsp") -(load "arrays/bit-and.lsp") -(load "arrays/bit-andc1.lsp") -(load "arrays/bit-andc2.lsp") -(load "arrays/bit-eqv.lsp") -(load "arrays/bit-ior.lsp") -(load "arrays/bit-nand.lsp") -(load "arrays/bit-nor.lsp") -(load "arrays/bit-orc1.lsp") -(load "arrays/bit-orc2.lsp") -(load "arrays/bit-xor.lsp") -(load "arrays/bit-not.lsp") -(load "arrays/bit-vector-p.lsp") -(load "arrays/simple-bit-vector-p.lsp") diff --git a/load-characters.lsp b/load-characters.lsp deleted file mode 100644 index eb132f16..00000000 --- a/load-characters.lsp +++ /dev/null @@ -1,6 +0,0 @@ -;;;; Character tests -(compile-and-load "ANSI-TESTS:AUX;char-aux.lsp") - -(load "characters/character.lsp") -(load "characters/char-compare.lsp") -(load "characters/name-char.lsp") diff --git a/load-conditions.lsp b/load-conditions.lsp deleted file mode 100644 index 689a7aff..00000000 --- a/load-conditions.lsp +++ /dev/null @@ -1,27 +0,0 @@ -;;; Tests of conditions -(compile-and-load "ANSI-TESTS:AUX;types-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;define-condition-aux.lsp") - -(load "conditions/condition.lsp") -(load "conditions/cell-error-name.lsp") -(load "conditions/assert.lsp") -(load "conditions/error.lsp") -(load "conditions/cerror.lsp") -(load "conditions/check-type.lsp") -(load "conditions/warn.lsp") -(load "conditions/invoke-debugger.lsp") -(load "conditions/handler-bind.lsp") -(load "conditions/handler-case.lsp") -(load "conditions/ignore-errors.lsp") -(load "conditions/define-condition.lsp") -(load "conditions/compute-restarts.lsp") -(load "conditions/restart-bind.lsp") -(load "conditions/restart-case.lsp") -(load "conditions/with-condition-restarts.lsp") -(load "conditions/with-simple-restart.lsp") -(load "conditions/abort.lsp") -(load "conditions/muffle-warning.lsp") -(load "conditions/continue.lsp") -(load "conditions/store-value.lsp") -(load "conditions/use-value.lsp") -(load "conditions/make-condition.lsp") diff --git a/load-cons.lsp b/load-cons.lsp deleted file mode 100644 index b32b1b7b..00000000 --- a/load-cons.lsp +++ /dev/null @@ -1,81 +0,0 @@ -;;; Tests of conses -(compile-and-load "ANSI-TESTS:AUX;cons-aux.lsp") - -(load "cons/cons.lsp") -(load "cons/consp.lsp") -(load "cons/atom.lsp") -(load "cons/cxr.lsp") -(load "cons/rplaca.lsp") -(load "cons/rplacd.lsp") -(load "cons/copy-tree.lsp") -(load "cons/sublis.lsp") -(load "cons/nsublis.lsp") -(load "cons/subst.lsp") -(load "cons/subst-if.lsp") -(load "cons/subst-if-not.lsp") -(load "cons/nsubst.lsp") -(load "cons/nsubst-if.lsp") -(load "cons/nsubst-if-not.lsp") -(load "cons/tree-equal.lsp") -(load "cons/copy-list.lsp") -(load "cons/list.lsp") -(load "cons/list-length.lsp") -(load "cons/listp.lsp") -(load "cons/make-list.lsp") -(load "cons/push.lsp") -(load "cons/pop.lsp") -(load "cons/pushnew.lsp") -(load "cons/adjoin.lsp") -(load "cons/nth.lsp") -(load "cons/endp.lsp") -(load "cons/nconc.lsp") -(load "cons/append.lsp") -(load "cons/revappend.lsp") -(load "cons/nreconc.lsp") -(load "cons/butlast.lsp") -(load "cons/nbutlast.lsp") -(load "cons/last.lsp") -(load "cons/ldiff.lsp") -(load "cons/tailp.lsp") -(load "cons/nthcdr.lsp") -(load "cons/rest.lsp") -(load "cons/member.lsp") -(load "cons/member-if.lsp") -(load "cons/member-if-not.lsp") - -(load "cons/mapc.lsp") -(load "cons/mapcar.lsp") -(load "cons/mapcan.lsp") -(load "cons/mapl.lsp") -(load "cons/maplist.lsp") -(load "cons/mapcon.lsp") - -(load "cons/acons.lsp") -(load "cons/assoc.lsp") -(load "cons/assoc-if.lsp") -(load "cons/assoc-if-not.lsp") -(load "cons/rassoc.lsp") -(load "cons/rassoc-if.lsp") -(load "cons/rassoc-if-not.lsp") -(load "cons/copy-alist.lsp") -(load "cons/pairlis.lsp") - -(load "cons/get-properties.lsp") -(load "cons/getf.lsp") -(load "cons/remf.lsp") - -(load "cons/intersection.lsp") -(load "cons/nintersection.lsp") -(load "cons/union.lsp") -(load "cons/nunion.lsp") -(load "cons/set-difference.lsp") -(load "cons/nset-difference.lsp") -(load "cons/set-exclusive-or.lsp") -(load "cons/nset-exclusive-or.lsp") -(load "cons/subsetp.lsp") - -;;; Misc. stuff that should be moved elsewhere -(load "cons/cons-test-01.lsp") -(load "cons/cons-test-03.lsp") -(load "cons/cons-test-05.lsp") - diff --git a/load-data-and-control-flow.lsp b/load-data-and-control-flow.lsp deleted file mode 100644 index a6fe6abb..00000000 --- a/load-data-and-control-flow.lsp +++ /dev/null @@ -1,82 +0,0 @@ -;;; Tests of data and control flow -(compile-and-load "ANSI-TESTS:AUX;cons-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;random-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;types-aux.lsp") - -(load "data-and-control-flow/data-and-control-flow.lsp") -(load "data-and-control-flow/places.lsp") -(load "data-and-control-flow/psetq.lsp") -(load "data-and-control-flow/psetf.lsp") -(load "data-and-control-flow/shiftf.lsp") -(load "data-and-control-flow/rotatef.lsp") -(load "data-and-control-flow/return.lsp") -(load "data-and-control-flow/return-from.lsp") -(load "data-and-control-flow/defsetf.lsp") -(load "data-and-control-flow/define-setf-expander.lsp") - -(load "data-and-control-flow/and.lsp") -(load "data-and-control-flow/apply.lsp") -(load "data-and-control-flow/block.lsp") -(load "data-and-control-flow/call-arguments-limit.lsp") -(load "data-and-control-flow/case.lsp") -(load "data-and-control-flow/catch.lsp") -(load "data-and-control-flow/ccase.lsp") -(load "data-and-control-flow/compiled-function-p.lsp") -(load "data-and-control-flow/complement.lsp") -(load "data-and-control-flow/cond.lsp") -(load "data-and-control-flow/constantly.lsp") -(load "data-and-control-flow/ctypecase.lsp") -(load "data-and-control-flow/defconstant.lsp") -(load "data-and-control-flow/define-modify-macro.lsp") -(load "data-and-control-flow/defparameter.lsp") -(load "data-and-control-flow/defun.lsp") -(load "data-and-control-flow/defvar.lsp") -(load "data-and-control-flow/destructuring-bind.lsp") -(load "data-and-control-flow/ecase.lsp") -(load "data-and-control-flow/eql.lsp") -(load "data-and-control-flow/equal.lsp") -(load "data-and-control-flow/equalp.lsp") -(load "data-and-control-flow/etypecase.lsp") -(load "data-and-control-flow/every.lsp") -(load "data-and-control-flow/fboundp.lsp") -(load "data-and-control-flow/fdefinition.lsp") -(load "data-and-control-flow/flet.lsp") -(load "data-and-control-flow/fmakunbound.lsp") -(load "data-and-control-flow/funcall.lsp") -(load "data-and-control-flow/function-lambda-expression.lsp") -(load "data-and-control-flow/function.lsp") -(load "data-and-control-flow/functionp.lsp") -(load "data-and-control-flow/get-setf-expansion.lsp") -(load "data-and-control-flow/identity.lsp") -(load "data-and-control-flow/if.lsp") -(load "data-and-control-flow/labels.lsp") -(load "data-and-control-flow/lambda-list-keywords.lsp") -(load "data-and-control-flow/lambda-parameters-limit.lsp") -(load "data-and-control-flow/let.lsp") -(load "data-and-control-flow/letstar.lsp") -(load "data-and-control-flow/macrolet.lsp") -(load "data-and-control-flow/multiple-value-bind.lsp") -(load "data-and-control-flow/multiple-value-call.lsp") ;; include multiple-value-list -(load "data-and-control-flow/multiple-value-prog1.lsp") -(load "data-and-control-flow/multiple-value-setq.lsp") -(load "data-and-control-flow/multiple-value-list.lsp") -(load "data-and-control-flow/nil.lsp") -(load "data-and-control-flow/not-and-null.lsp") -(load "data-and-control-flow/notany.lsp") -(load "data-and-control-flow/notevery.lsp") -(load "data-and-control-flow/nth-value.lsp") -(load "data-and-control-flow/or.lsp") -(load "data-and-control-flow/prog.lsp") -(load "data-and-control-flow/prog1.lsp") -(load "data-and-control-flow/prog2.lsp") -(load "data-and-control-flow/progn.lsp") -(load "data-and-control-flow/progv.lsp") -(load "data-and-control-flow/some.lsp") -(load "data-and-control-flow/t.lsp") -(load "data-and-control-flow/tagbody.lsp") -(load "data-and-control-flow/typecase.lsp") -(load "data-and-control-flow/unless.lsp") -(load "data-and-control-flow/unwind-protect.lsp") -(load "data-and-control-flow/values-list.lsp") -(load "data-and-control-flow/values.lsp") -(load "data-and-control-flow/when.lsp") diff --git a/load-environment.lsp b/load-environment.lsp deleted file mode 100644 index bbef0736..00000000 --- a/load-environment.lsp +++ /dev/null @@ -1,26 +0,0 @@ -;-*- Mode: Lisp -*- -;;;; Author: Paul Dietz -;;;; Created: Sun Dec 12 19:43:17 2004 -;;;; Contains: Load environment tests (section 25) - -(load "environment/apropos.lsp") -(load "environment/apropos-list.lsp") -(load "environment/describe.lsp") -(load "environment/disassemble.lsp") -(load "environment/environment-functions.lsp") -(load "environment/room.lsp") -(load "environment/time.lsp") -(load "environment/trace.lsp") ;; and untrace -(load "environment/user-homedir-pathname.lsp") - -(load "environment/decode-universal-time.lsp") -(load "environment/encode-universal-time.lsp") -(load "environment/get-universal-time.lsp") -(load "environment/sleep.lsp") -(load "environment/get-internal-time.lsp") - -(load "environment/documentation.lsp") -#-lispworks (load "environment/inspect.lsp") -(load "environment/dribble.lsp") -(load "environment/ed.lsp") - diff --git a/load-eval-and-compile.lsp b/load-eval-and-compile.lsp deleted file mode 100644 index 20a88532..00000000 --- a/load-eval-and-compile.lsp +++ /dev/null @@ -1,26 +0,0 @@ -;;; Tests of evaluation and compilation -(load "eval-and-compile/eval.lsp") -(load "eval-and-compile/eval-and-compile.lsp") -(load "eval-and-compile/compile.lsp") -(load "eval-and-compile/compiler-macros.lsp") -(load "eval-and-compile/constantp.lsp") -(load "eval-and-compile/lambda.lsp") -(load "eval-and-compile/eval-when.lsp") -(load "eval-and-compile/define-compiler-macro.lsp") -(load "eval-and-compile/define-symbol-macro.lsp") -(load "eval-and-compile/defmacro.lsp") -(load "eval-and-compile/the.lsp") -(load "eval-and-compile/symbol-macrolet.lsp") -(load "eval-and-compile/proclaim.lsp") -(load "eval-and-compile/declaim.lsp") -(load "eval-and-compile/locally.lsp") -(load "eval-and-compile/ignore.lsp") -(load "eval-and-compile/ignorable.lsp") -(load "eval-and-compile/dynamic-extent.lsp") -(load "eval-and-compile/optimize.lsp") -(load "eval-and-compile/special.lsp") -(load "eval-and-compile/macroexpand.lsp") -(load "eval-and-compile/macroexpand-1.lsp") -(load "eval-and-compile/declaration.lsp") -(load "eval-and-compile/type.lsp") -(load "eval-and-compile/macro-function.lsp") diff --git a/load-files.lsp b/load-files.lsp deleted file mode 100644 index e82164c0..00000000 --- a/load-files.lsp +++ /dev/null @@ -1,16 +0,0 @@ -;-*- Mode: Lisp -*- -;;;; Author: Paul Dietz -;;;; Created: Thu Jan 1 11:59:35 2004 -;;;; Contains: Load tests of section 20, 'Files' - -(in-package :cl-test) - -(load "files/directory.lsp") -(load "files/probe-file.lsp") -(load "files/ensure-directories-exist.lsp") -(load "files/truename.lsp") -(load "files/file-author.lsp") -(load "files/file-write-date.lsp") -(load "files/rename-file.lsp") -(load "files/delete-file.lsp") -(load "files/file-error.lsp") diff --git a/load-hash-tables.lsp b/load-hash-tables.lsp deleted file mode 100644 index ba218355..00000000 --- a/load-hash-tables.lsp +++ /dev/null @@ -1,16 +0,0 @@ -(compile-and-load "ANSI-TESTS:AUX;hash-table-aux.lsp") - -(load "hash-tables/hash-table.lsp") -(load "hash-tables/make-hash-table.lsp") -(load "hash-tables/hash-table-p.lsp") -(load "hash-tables/hash-table-count.lsp") -(load "hash-tables/hash-table-size.lsp") -(load "hash-tables/hash-table-rehash-size.lsp") -(load "hash-tables/hash-table-rehash-threshold.lsp") -(load "hash-tables/hash-table-test.lsp") -(load "hash-tables/gethash.lsp") -(load "hash-tables/remhash.lsp") -(load "hash-tables/clrhash.lsp") -(load "hash-tables/maphash.lsp") -(load "hash-tables/with-hash-table-iterator.lsp") -(load "hash-tables/sxhash.lsp") diff --git a/load-iteration.lsp b/load-iteration.lsp deleted file mode 100644 index b326e87b..00000000 --- a/load-iteration.lsp +++ /dev/null @@ -1,24 +0,0 @@ -;;; Tests of iteration forms - -(load "iteration/do.lsp") -(load "iteration/dostar.lsp") -(load "iteration/dolist.lsp") -(load "iteration/dotimes.lsp") -(load "iteration/loop.lsp") -(load "iteration/loop1.lsp") -(load "iteration/loop2.lsp") -(load "iteration/loop3.lsp") -(load "iteration/loop4.lsp") -(load "iteration/loop5.lsp") -(load "iteration/loop6.lsp") -(load "iteration/loop7.lsp") -(load "iteration/loop8.lsp") -(load "iteration/loop9.lsp") -(load "iteration/loop10.lsp") -(load "iteration/loop11.lsp") -(load "iteration/loop12.lsp") -(load "iteration/loop13.lsp") -(load "iteration/loop14.lsp") -(load "iteration/loop15.lsp") -(load "iteration/loop16.lsp") -(load "iteration/loop17.lsp") diff --git a/load-numbers.lsp b/load-numbers.lsp deleted file mode 100644 index 6eb87fe6..00000000 --- a/load-numbers.lsp +++ /dev/null @@ -1,129 +0,0 @@ -;-*- Mode: Lisp -*- -;;;; Author: Paul Dietz -;;;; Created: Mon Apr 7 07:16:44 2003 -;;;; Contains: Forms to load files containing tests of number concepts - -(in-package :cl-test) - -(compile-and-load "ANSI-TESTS:AUX;numbers-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;random-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;floor-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;ffloor-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;ceiling-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;fceiling-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;truncate-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;ftruncate-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;round-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;fround-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;times-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;division-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;exp-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;gcd-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;types-aux.lsp") - -(load "numbers/number-comparison.lsp") -(load "numbers/max.lsp") -(load "numbers/min.lsp") -(load "numbers/minusp.lsp") -(load "numbers/plusp.lsp") -(load "numbers/zerop.lsp") -(load "numbers/floor.lsp") -(load "numbers/ffloor.lsp") -(load "numbers/ceiling.lsp") -(load "numbers/fceiling.lsp") -(load "numbers/truncate.lsp") -(load "numbers/ftruncate.lsp") -(load "numbers/round.lsp") -(load "numbers/fround.lsp") - -;;; transcendental functions go here -(load "numbers/sin.lsp") -(load "numbers/cos.lsp") -(load "numbers/tan.lsp") -(load "numbers/asin.lsp") -(load "numbers/acos.lsp") -(load "numbers/atan.lsp") - -(load "numbers/sinh.lsp") -(load "numbers/cosh.lsp") -(load "numbers/tanh.lsp") -(load "numbers/asinh.lsp") -(load "numbers/acosh.lsp") -(load "numbers/atanh.lsp") - -(load "numbers/times.lsp") -(load "numbers/plus.lsp") -(load "numbers/minus.lsp") -(load "numbers/divide.lsp") -(load "numbers/oneplus.lsp") -(load "numbers/oneminus.lsp") -(load "numbers/abs.lsp") -(load "numbers/exp.lsp") -(load "numbers/expt.lsp") -(load "numbers/gcd.lsp") -(load "numbers/incf.lsp") -(load "numbers/decf.lsp") -(load "numbers/lcm.lsp") -(load "numbers/log.lsp") -(load "numbers/signum.lsp") -(load "numbers/sqrt.lsp") -(load "numbers/isqrt.lsp") -(load "numbers/random.lsp") -(load "numbers/random-state-p.lsp") -(load "numbers/make-random-state.lsp") -(load "numbers/numberp.lsp") -(load "numbers/cis.lsp") -(load "numbers/complex.lsp") -(load "numbers/complexp.lsp") -(load "numbers/conjugate.lsp") -(load "numbers/phase.lsp") -(load "numbers/realpart.lsp") -(load "numbers/imagpart.lsp") -(load "numbers/realp.lsp") -(load "numbers/numerator-denominator.lsp") -(load "numbers/rationalp.lsp") - -(load "numbers/ash.lsp") -(load "numbers/integer-length.lsp") -(load "numbers/integerp.lsp") - -(load "numbers/parse-integer.lsp") -(load "numbers/boole.lsp") - -(load "numbers/logand.lsp") -(load "numbers/logandc1.lsp") -(load "numbers/logandc2.lsp") -(load "numbers/logeqv.lsp") -(load "numbers/logior.lsp") -(load "numbers/lognand.lsp") -(load "numbers/lognor.lsp") -(load "numbers/logorc1.lsp") -(load "numbers/logorc2.lsp") -(load "numbers/lognot.lsp") -(load "numbers/logxor.lsp") -(load "numbers/logbitp.lsp") -(load "numbers/logcount.lsp") -(load "numbers/logtest.lsp") - -(load "numbers/byte.lsp") -(load "numbers/deposit-field.lsp") -(load "numbers/dpb.lsp") -(load "numbers/ldb.lsp") -(load "numbers/mask-field.lsp") - -(load "numbers/float.lsp") -(load "numbers/floatp.lsp") - -(load "numbers/rational.lsp") -(load "numbers/rationalize.lsp") - -(load "numbers/evenp.lsp") -(load "numbers/oddp.lsp") - -(load "numbers/epsilons.lsp") -(load "numbers/real.lsp") - -(load "numbers/upgraded-complex-part-type.lsp") - -(load "numbers/arithmetic-error.lsp") - diff --git a/load-objects.lsp b/load-objects.lsp deleted file mode 100644 index 953d7698..00000000 --- a/load-objects.lsp +++ /dev/null @@ -1,59 +0,0 @@ -;-*- Mode: Lisp -*- -;;;; Author: Paul Dietz -;;;; Created: Mon Mar 24 03:39:09 2003 -;;;; Contains: Loader for CLOS-related test files - -(compile-and-load "ANSI-TESTS:AUX;defclass-aux.lsp") - -(load "objects/defclass.lsp") -(load "objects/defclass-01.lsp") -(load "objects/defclass-02.lsp") -(load "objects/defclass-03.lsp") -(load "objects/defclass-errors.lsp") -(load "objects/defclass-forward-reference.lsp") -(load "objects/ensure-generic-function.lsp") -(load "objects/allocate-instance.lsp") -(load "objects/reinitialize-instance.lsp") -(load "objects/shared-initialize.lsp") -(load "objects/change-class.lsp") -(load "objects/update-instance-for-different-class.lsp") -(load "objects/slot-boundp.lsp") -(load "objects/slot-exists-p.lsp") -(load "objects/slot-makunbound.lsp") -(load "objects/slot-missing.lsp") -(load "objects/slot-unbound.lsp") -(load "objects/slot-value.lsp") -(load "objects/method-qualifiers.lsp") -(load "objects/no-applicable-method.lsp") -(load "objects/no-next-method.lsp") -(load "objects/remove-method.lsp") -(load "objects/make-instance.lsp") -(load "objects/make-instances-obsolete.lsp") -(load "objects/make-load-form.lsp") -(load "objects/make-load-form-saving-slots.lsp") -(load "objects/with-accessors.lsp") -(load "objects/with-slots.lsp") -(load "objects/defgeneric.lsp") -(load "objects/defgeneric-method-combination-aux.lsp") -(load "objects/defgeneric-method-combination-plus.lsp") -(load "objects/defgeneric-method-combination-append.lsp") -(load "objects/defgeneric-method-combination-nconc.lsp") -(load "objects/defgeneric-method-combination-list.lsp") -(load "objects/defgeneric-method-combination-max.lsp") -(load "objects/defgeneric-method-combination-min.lsp") -(load "objects/defgeneric-method-combination-and.lsp") -(load "objects/defgeneric-method-combination-or.lsp") -(load "objects/defgeneric-method-combination-progn.lsp") -;; (load "objects/defgeneric-method-combination-standard.lsp") -(load "objects/find-class.lsp") -(load "objects/next-method-p.lsp") -(load "objects/call-next-method.lsp") -(load "objects/compute-applicable-methods.lsp") -(load "objects/define-method-combination.lsp") -;; (load "objects/define-method-combination-long-form.lsp") -(load "objects/find-method.lsp") -(load "objects/add-method.lsp") -(load "objects/class-name.lsp") -(load "objects/class-of.lsp") -(load "objects/unbound-slot.lsp") -(load "objects/defmethod.lsp") diff --git a/load-packages.lsp b/load-packages.lsp deleted file mode 100644 index 5464ddda..00000000 --- a/load-packages.lsp +++ /dev/null @@ -1,39 +0,0 @@ -;-*- Mode: Lisp -*- -;;;; Author: Paul Dietz -;;;; Created: Sun Oct 6 00:32:56 2002 -;;;; Contains: Loader for files containing package tests - -(compile-and-load "ANSI-TESTS:AUX;packages00-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;package-aux.lsp") - -(load "packages/find-symbol.lsp") -(load "packages/find-all-symbols.lsp") -(load "packages/find-package.lsp") -(load "packages/list-all-packages.lsp") -(load "packages/package-name.lsp") -(load "packages/package-nicknames.lsp") -(load "packages/intern.lsp") -(load "packages/export.lsp") -(load "packages/rename-package.lsp") -(load "packages/shadow.lsp") -(load "packages/shadowing-import.lsp") -(load "packages/delete-package.lsp") -(load "packages/make-package.lsp") -(load "packages/with-package-iterator.lsp") -(load "packages/unexport.lsp") -(load "packages/unintern.lsp") -(load "packages/in-package.lsp") -(load "packages/unuse-package.lsp") -(load "packages/use-package.lsp") -(load "packages/defpackage.lsp") -(load "packages/do-symbols.lsp") -(load "packages/do-external-symbols.lsp") -(load "packages/do-all-symbols.lsp") -(load "packages/packagep.lsp") -(load "packages/package-error.lsp") -(load "packages/package-error-package.lsp") -(load "packages/keyword.lsp") -(load "packages/package-shadowing-symbols.lsp") -(load "packages/package-use-list.lsp") -(load "packages/package-used-by-list.lsp") -(load "packages/import.lsp") diff --git a/load-pathnames.lsp b/load-pathnames.lsp deleted file mode 100644 index 114fb89b..00000000 --- a/load-pathnames.lsp +++ /dev/null @@ -1,30 +0,0 @@ -;;;; Tests for pathnames and logical pathnames -(compile-and-load "ANSI-TESTS:AUX;pathnames-aux.lsp") - -(load "pathnames/pathnames.lsp") -(load "pathnames/pathname.lsp") -(load "pathnames/pathnamep.lsp") -(load "pathnames/make-pathname.lsp") -(load "pathnames/pathname-host.lsp") -(load "pathnames/pathname-device.lsp") -(load "pathnames/pathname-directory.lsp") -(load "pathnames/pathname-name.lsp") -(load "pathnames/pathname-type.lsp") -(load "pathnames/pathname-version.lsp") - -(load "pathnames/load-logical-pathname-translations.lsp") -(load "pathnames/logical-pathname.lsp") -(load "pathnames/logical-pathname-translations.lsp") -(load "pathnames/translate-logical-pathname.lsp") - -(load "pathnames/namestring.lsp") -(load "pathnames/file-namestring.lsp") -(load "pathnames/directory-namestring.lsp") -(load "pathnames/host-namestring.lsp") -(load "pathnames/enough-namestring.lsp") - -(load "pathnames/wild-pathname-p.lsp") -(load "pathnames/merge-pathnames.lsp") -(load "pathnames/pathname-match-p.lsp") - -(load "pathnames/parse-namestring.lsp") diff --git a/load-printer.lsp b/load-printer.lsp deleted file mode 100644 index 70ea8db9..00000000 --- a/load-printer.lsp +++ /dev/null @@ -1,44 +0,0 @@ -;;;; Tests of the lisp printer -(compile-and-load "ANSI-TESTS:AUX;printer-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;backquote-aux.lsp") - -(load "printer/copy-pprint-dispatch.lsp") - -(load "printer/print-integers.lsp") -(load "printer/print-ratios.lsp") -(load "printer/print-floats.lsp") -(load "printer/print-complex.lsp") -(load "printer/print-characters.lsp") -(load "printer/print-symbols.lsp") -(load "printer/print-strings.lsp") -(load "printer/print-cons.lsp") -(load "printer/print-backquote.lsp") -(load "printer/print-bit-vector.lsp") -(load "printer/print-vector.lsp") -(load "printer/print-array.lsp") -(load "printer/print-random-state.lsp") -(load "printer/print-pathname.lsp") -(load "printer/print-structure.lsp") -(load "printer/printer-control-vars.lsp") -(load "printer/pprint-dispatch.lsp") -(load "printer/pprint-fill.lsp") -(load "printer/pprint-linear.lsp") -(load "printer/pprint-tabular.lsp") -(load "printer/pprint-indent.lsp") -(load "printer/pprint-logical-block.lsp") -(load "printer/pprint-exit-if-list-exhausted.lsp") -(load "printer/pprint-newline.lsp") -(load "printer/pprint-tab.lsp") -(load "printer/print-unreadable-object.lsp") -(load "printer/write.lsp") -(load "printer/print.lsp") -(load "printer/pprint.lsp") -(load "printer/prin1.lsp") -(load "printer/princ.lsp") -(load "printer/write-to-string.lsp") -(load "printer/prin1-to-string.lsp") -(load "printer/princ-to-string.lsp") -(load "printer/print-level.lsp") -(load "printer/print-length.lsp") - -(load "load-format.lsp") diff --git a/load-reader.lsp b/load-reader.lsp deleted file mode 100644 index f5975a7d..00000000 --- a/load-reader.lsp +++ /dev/null @@ -1,20 +0,0 @@ -;;;; Tests of the reader -(compile-and-load "ANSI-TESTS:AUX;reader-aux.lsp") - -(load "reader/reader-test.lsp") -(load "reader/with-standard-io-syntax.lsp") -(load "reader/copy-readtable.lsp") -(load "reader/read.lsp") -(load "reader/read-preserving-whitespace.lsp") -(load "reader/read-delimited-list.lsp") -(load "reader/read-from-string.lsp") -(load "reader/readtable-case.lsp") -(load "reader/readtablep.lsp") -(load "reader/get-macro-character.lsp") -(load "reader/set-macro-character.lsp") -(load "reader/read-suppress.lsp") -(load "reader/set-syntax-from-char.lsp") -(load "reader/dispatch-macro-characters.lsp") - -(load "reader/syntax.lsp") -(load "reader/syntax-tokens.lsp") diff --git a/load-sequences.lsp b/load-sequences.lsp deleted file mode 100644 index 2b3841bd..00000000 --- a/load-sequences.lsp +++ /dev/null @@ -1,45 +0,0 @@ -;;; Tests of sequences -(compile-and-load "ANSI-TESTS:AUX;search-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;subseq-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;remove-aux.lsp") -(compile-and-load "ANSI-TESTS:AUX;remove-duplicates-aux.lsp") - -(load "sequences/copy-seq.lsp") -(load "sequences/elt.lsp") -(load "sequences/fill.lsp") -(load "sequences/fill-strings.lsp") -(load "sequences/make-sequence.lsp") -(load "sequences/map.lsp") -(load "sequences/map-into.lsp") -(load "sequences/reduce.lsp") -(load "sequences/count.lsp") -(load "sequences/count-if.lsp") -(load "sequences/count-if-not.lsp") -(load "sequences/reverse.lsp") -(load "sequences/nreverse.lsp") -(load "sequences/sort.lsp") -(load "sequences/stable-sort.lsp") -(load "sequences/length.lsp") -(load "sequences/find.lsp") -(load "sequences/find-if.lsp") -(load "sequences/find-if-not.lsp") -(load "sequences/position.lsp") -(load "sequences/position-if.lsp") -(load "sequences/position-if-not.lsp") -(load "sequences/search-list.lsp") -(load "sequences/search-vector.lsp") -(load "sequences/search-bitvector.lsp") -(load "sequences/search-string.lsp") -(load "sequences/mismatch.lsp") -(load "sequences/replace.lsp") -(load "sequences/subseq.lsp") -(load "sequences/substitute.lsp") -(load "sequences/substitute-if.lsp") -(load "sequences/substitute-if-not.lsp") -(load "sequences/nsubstitute.lsp") -(load "sequences/nsubstitute-if.lsp") -(load "sequences/nsubstitute-if-not.lsp") -(load "sequences/concatenate.lsp") -(load "sequences/merge.lsp") -(load "sequences/remove.lsp") ;; also related funs -(load "sequences/remove-duplicates.lsp") ;; also delete-duplicates diff --git a/load-streams.lsp b/load-streams.lsp deleted file mode 100644 index 8fe60c84..00000000 --- a/load-streams.lsp +++ /dev/null @@ -1,57 +0,0 @@ -;-*- Mode: Lisp -*- -;;;; Author: Paul Dietz -;;;; Created: Tue Jan 13 19:38:10 2004 -;;;; Contains: Load files containing tests for section 21 (streams) - -(in-package :cl-test) - -(load "streams/input-stream-p.lsp") -(load "streams/output-stream-p.lsp") -(load "streams/interactive-stream-p.lsp") -(load "streams/open-stream-p.lsp") -(load "streams/stream-element-type.lsp") -(load "streams/streamp.lsp") -(load "streams/read-byte.lsp") -(load "streams/peek-char.lsp") -(load "streams/read-char.lsp") -(load "streams/read-char-no-hang.lsp") -(load "streams/terpri.lsp") -(load "streams/fresh-line.lsp") -(load "streams/unread-char.lsp") -(load "streams/write-char.lsp") -(load "streams/read-line.lsp") -(load "streams/write-string.lsp") -(load "streams/write-line.lsp") -(load "streams/read-sequence.lsp") -(load "streams/write-sequence.lsp") -(load "streams/file-length.lsp") -(load "streams/file-position.lsp") -(load "streams/file-string-length.lsp") -(load "streams/open.lsp") -(load "streams/stream-external-format.lsp") -(load "streams/with-open-file.lsp") -(load "streams/with-open-stream.lsp") -(load "streams/listen.lsp") -(load "streams/clear-input.lsp") -(load "streams/finish-output.lsp") -(load "streams/force-output.lsp") -(load "streams/clear-output.lsp") -(load "streams/make-synonym-stream.lsp") -(load "streams/synonym-stream-symbol.lsp") -(load "streams/make-broadcast-stream.lsp") -(load "streams/broadcast-stream-streams.lsp") -(load "streams/make-two-way-stream.lsp") -(load "streams/two-way-stream-input-stream.lsp") -(load "streams/two-way-stream-output-stream.lsp") -(load "streams/echo-stream-input-stream.lsp") -(load "streams/echo-stream-output-stream.lsp") -(load "streams/make-echo-stream.lsp") -(load "streams/concatenated-stream-streams.lsp") -(load "streams/make-concatenated-stream.lsp") -(load "streams/get-output-stream-string.lsp") -(load "streams/make-string-input-stream.lsp") -(load "streams/make-string-output-stream.lsp") -(load "streams/with-input-from-string.lsp") -(load "streams/with-output-to-string.lsp") -(load "streams/stream-error-stream.lsp") - diff --git a/load-strings.lsp b/load-strings.lsp deleted file mode 100644 index c0b4b1ab..00000000 --- a/load-strings.lsp +++ /dev/null @@ -1,23 +0,0 @@ -;;; Tests of strings -(compile-and-load "ANSI-TESTS:AUX;string-aux.lsp") - -(load "strings/char-schar.lsp") -(load "strings/string.lsp") -(load "strings/base-string.lsp") -(load "strings/simple-string.lsp") -(load "strings/simple-base-string.lsp") -(load "strings/simple-string-p.lsp") -(load "strings/stringp.lsp") -(load "strings/string-upcase.lsp") -(load "strings/string-downcase.lsp") -(load "strings/string-capitalize.lsp") -(load "strings/nstring-upcase.lsp") -(load "strings/nstring-downcase.lsp") -(load "strings/nstring-capitalize.lsp") -(load "strings/string-trim.lsp") -(load "strings/string-left-trim.lsp") -(load "strings/string-right-trim.lsp") - -;;; Tests of string comparison functions -(load "strings/string-comparisons.lsp") -(load "strings/make-string.lsp") diff --git a/load-structures.lsp b/load-structures.lsp deleted file mode 100644 index 8dcdf4eb..00000000 --- a/load-structures.lsp +++ /dev/null @@ -1,7 +0,0 @@ -;;; Tests of structures - -(load "structures/structure-00.lsp") -(load "structures/structures-01.lsp") -(load "structures/structures-02.lsp") -(load "structures/structures-03.lsp") -(load "structures/structures-04.lsp") diff --git a/load-symbols.lsp b/load-symbols.lsp deleted file mode 100644 index 68285523..00000000 --- a/load-symbols.lsp +++ /dev/null @@ -1,19 +0,0 @@ -;;; Tests of symbols -(compile-and-load "ANSI-TESTS:AUX;cl-symbols-aux.lsp") - -(load "symbols/cl-symbols.lsp") -(load "symbols/symbolp.lsp") -(load "symbols/keywordp.lsp") -(load "symbols/make-symbol.lsp") -(load "symbols/copy-symbol.lsp") -(load "symbols/gensym.lsp") -(load "symbols/gentemp.lsp") -(load "symbols/symbol-function.lsp") -(load "symbols/symbol-name.lsp") -(load "symbols/boundp.lsp") -(load "symbols/special-operator-p.lsp") -(load "symbols/makunbound.lsp") -(load "symbols/set.lsp") -(load "symbols/remprop.lsp") -(load "symbols/get.lsp") - diff --git a/load-system-construction.lsp b/load-system-construction.lsp deleted file mode 100644 index 4620fa24..00000000 --- a/load-system-construction.lsp +++ /dev/null @@ -1,12 +0,0 @@ -;-*- Mode: Lisp -*- -;;;; Author: Paul Dietz -;;;; Created: Sun Dec 12 19:44:29 2004 -;;;; Contains: Load tests for system construction (section 24) - -(in-package :cl-test) - -(load "system-construction/compile-file.lsp") -(load "system-construction/load.lsp") -(load "system-construction/with-compilation-unit.lsp") -(load "system-construction/features.lsp") -(load "system-construction/modules.lsp") diff --git a/load-types-and-class.lsp b/load-types-and-class.lsp deleted file mode 100644 index 35c1657f..00000000 --- a/load-types-and-class.lsp +++ /dev/null @@ -1,23 +0,0 @@ -;;; Tests of types and classes -(compile-and-load "ANSI-TESTS:AUX;types-aux.lsp") - -(load "types-and-classes/types-and-class.lsp") -(load "types-and-classes/types-and-class-2.lsp") -(load "types-and-classes/coerce.lsp") -(load "types-and-classes/subtypep.lsp") -(load "types-and-classes/subtypep-integer.lsp") -(load "types-and-classes/subtypep-float.lsp") -(load "types-and-classes/subtypep-rational.lsp") -(load "types-and-classes/subtypep-real.lsp") -#-lispworks (load "types-and-classes/subtypep-cons.lsp") -(load "types-and-classes/subtypep-member.lsp") -(load "types-and-classes/subtypep-eql.lsp") -(load "types-and-classes/subtypep-array.lsp") -(load "types-and-classes/subtypep-function.lsp") -(load "types-and-classes/subtypep-complex.lsp") - -(load "types-and-classes/deftype.lsp") -(load "types-and-classes/standard-generic-function.lsp") -(load "types-and-classes/type-of.lsp") -(load "types-and-classes/typep.lsp") -(load "types-and-classes/class-precedence-lists.lsp") diff --git a/load-misc.lsp b/misc/load.lsp similarity index 69% rename from load-misc.lsp rename to misc/load.lsp index fb3b9b6d..6f62edfd 100644 --- a/load-misc.lsp +++ b/misc/load.lsp @@ -5,8 +5,9 @@ ;;; Miscellaneous tests, mostly tests that failed in random testing ;;; on various implementations -(load "misc/misc.lsp") +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "misc.lsp") ;;; Misc. tests dealing with type propagation in CMUCL -(load "misc/misc-cmucl-type-prop.lsp") - + (load "misc-cmucl-type-prop.lsp") +) diff --git a/numbers/load.lsp b/numbers/load.lsp new file mode 100644 index 00000000..f0dd77dc --- /dev/null +++ b/numbers/load.lsp @@ -0,0 +1,130 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Mon Apr 7 07:16:44 2003 +;;;; Contains: Forms to load files containing tests of number concepts + +(in-package :cl-test) + +(compile-and-load "ANSI-TESTS:AUX;numbers-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;random-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;floor-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;ffloor-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;ceiling-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;fceiling-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;truncate-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;ftruncate-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;round-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;fround-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;times-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;division-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;exp-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;gcd-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;types-aux.lsp") + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "number-comparison.lsp") + (load "max.lsp") + (load "min.lsp") + (load "minusp.lsp") + (load "plusp.lsp") + (load "zerop.lsp") + (load "floor.lsp") + (load "ffloor.lsp") + (load "ceiling.lsp") + (load "fceiling.lsp") + (load "truncate.lsp") + (load "ftruncate.lsp") + (load "round.lsp") + (load "fround.lsp") + +;;; transcendental functions go here + (load "sin.lsp") + (load "cos.lsp") + (load "tan.lsp") + (load "asin.lsp") + (load "acos.lsp") + (load "atan.lsp") + + (load "sinh.lsp") + (load "cosh.lsp") + (load "tanh.lsp") + (load "asinh.lsp") + (load "acosh.lsp") + (load "atanh.lsp") + + (load "times.lsp") + (load "plus.lsp") + (load "minus.lsp") + (load "divide.lsp") + (load "oneplus.lsp") + (load "oneminus.lsp") + (load "abs.lsp") + (load "exp.lsp") + (load "expt.lsp") + (load "gcd.lsp") + (load "incf.lsp") + (load "decf.lsp") + (load "lcm.lsp") + (load "log.lsp") + (load "signum.lsp") + (load "sqrt.lsp") + (load "isqrt.lsp") + (load "random.lsp") + (load "random-state-p.lsp") + (load "make-random-state.lsp") + (load "numberp.lsp") + (load "cis.lsp") + (load "complex.lsp") + (load "complexp.lsp") + (load "conjugate.lsp") + (load "phase.lsp") + (load "realpart.lsp") + (load "imagpart.lsp") + (load "realp.lsp") + (load "numerator-denominator.lsp") + (load "rationalp.lsp") + + (load "ash.lsp") + (load "integer-length.lsp") + (load "integerp.lsp") + + (load "parse-integer.lsp") + (load "boole.lsp") + + (load "logand.lsp") + (load "logandc1.lsp") + (load "logandc2.lsp") + (load "logeqv.lsp") + (load "logior.lsp") + (load "lognand.lsp") + (load "lognor.lsp") + (load "logorc1.lsp") + (load "logorc2.lsp") + (load "lognot.lsp") + (load "logxor.lsp") + (load "logbitp.lsp") + (load "logcount.lsp") + (load "logtest.lsp") + + (load "byte.lsp") + (load "deposit-field.lsp") + (load "dpb.lsp") + (load "ldb.lsp") + (load "mask-field.lsp") + + (load "float.lsp") + (load "floatp.lsp") + + (load "rational.lsp") + (load "rationalize.lsp") + + (load "evenp.lsp") + (load "oddp.lsp") + + (load "epsilons.lsp") + (load "real.lsp") + + (load "upgraded-complex-part-type.lsp") + + (load "earithmetic-error.lsp") +) diff --git a/objects/load.lsp b/objects/load.lsp new file mode 100644 index 00000000..80d52055 --- /dev/null +++ b/objects/load.lsp @@ -0,0 +1,61 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Mon Mar 24 03:39:09 2003 +;;;; Contains: Loader for CLOS-related test files + +(compile-and-load "ANSI-TESTS:AUX;defclass-aux.lsp") + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "defclass.lsp") + (load "defclass-01.lsp") + (load "defclass-02.lsp") + (load "defclass-03.lsp") + (load "defclass-errors.lsp") + (load "defclass-forward-reference.lsp") + (load "ensure-generic-function.lsp") + (load "allocate-instance.lsp") + (load "reinitialize-instance.lsp") + (load "shared-initialize.lsp") + (load "change-class.lsp") + (load "update-instance-for-different-class.lsp") + (load "slot-boundp.lsp") + (load "slot-exists-p.lsp") + (load "slot-makunbound.lsp") + (load "slot-missing.lsp") + (load "slot-unbound.lsp") + (load "slot-value.lsp") + (load "method-qualifiers.lsp") + (load "no-applicable-method.lsp") + (load "no-next-method.lsp") + (load "remove-method.lsp") + (load "make-instance.lsp") + (load "make-instances-obsolete.lsp") + (load "make-load-form.lsp") + (load "make-load-form-saving-slots.lsp") + (load "with-accessors.lsp") + (load "with-slots.lsp") + (load "defgeneric.lsp") + (load "defgeneric-method-combination-aux.lsp") + (load "defgeneric-method-combination-plus.lsp") + (load "defgeneric-method-combination-append.lsp") + (load "defgeneric-method-combination-nconc.lsp") + (load "defgeneric-method-combination-list.lsp") + (load "defgeneric-method-combination-max.lsp") + (load "defgeneric-method-combination-min.lsp") + (load "defgeneric-method-combination-and.lsp") + (load "defgeneric-method-combination-or.lsp") + (load "defgeneric-method-combination-progn.lsp") + ;; (load "defgeneric-method-combination-standard.lsp") + (load "find-class.lsp") + (load "next-method-p.lsp") + (load "call-next-method.lsp") + (load "compute-applicable-methods.lsp") + (load "define-method-combination.lsp") + ;; (load "define-method-combination-long-form.lsp") + (load "find-method.lsp") + (load "add-method.lsp") + (load "class-name.lsp") + (load "class-of.lsp") + (load "unbound-slot.lsp") + (load "defmethod.lsp") +) diff --git a/packages/load.lsp b/packages/load.lsp new file mode 100644 index 00000000..568a0fab --- /dev/null +++ b/packages/load.lsp @@ -0,0 +1,41 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sun Oct 6 00:32:56 2002 +;;;; Contains: Loader for files containing package tests + +(compile-and-load "ANSI-TESTS:AUX;packages00-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;package-aux.lsp") + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "find-symbol.lsp") + (load "find-all-symbols.lsp") + (load "find-package.lsp") + (load "list-all-packages.lsp") + (load "package-name.lsp") + (load "package-nicknames.lsp") + (load "intern.lsp") + (load "export.lsp") + (load "rename-package.lsp") + (load "shadow.lsp") + (load "shadowing-import.lsp") + (load "delete-package.lsp") + (load "make-package.lsp") + (load "with-package-iterator.lsp") + (load "unexport.lsp") + (load "unintern.lsp") + (load "in-package.lsp") + (load "unuse-package.lsp") + (load "use-package.lsp") + (load "defpackage.lsp") + (load "do-symbols.lsp") + (load "do-external-symbols.lsp") + (load "do-all-symbols.lsp") + (load "packagep.lsp") + (load "package-error.lsp") + (load "package-error-package.lsp") + (load "keyword.lsp") + (load "package-shadowing-symbols.lsp") + (load "package-use-list.lsp") + (load "package-used-by-list.lsp") + (load "import.lsp") +) diff --git a/pathnames/load.lsp b/pathnames/load.lsp new file mode 100644 index 00000000..c0e1c50d --- /dev/null +++ b/pathnames/load.lsp @@ -0,0 +1,32 @@ +;;;; Tests for pathnames and logical pathnames +(compile-and-load "ANSI-TESTS:AUX;pathnames-aux.lsp") + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "pathnames.lsp") + (load "pathname.lsp") + (load "pathnamep.lsp") + (load "make-pathname.lsp") + (load "pathname-host.lsp") + (load "pathname-device.lsp") + (load "pathname-directory.lsp") + (load "pathname-name.lsp") + (load "pathname-type.lsp") + (load "pathname-version.lsp") + + (load "load-logical-pathname-translations.lsp") + (load "logical-pathname.lsp") + (load "logical-pathname-translations.lsp") + (load "translate-logical-pathname.lsp") + + (load "namestring.lsp") + (load "file-namestring.lsp") + (load "directory-namestring.lsp") + (load "host-namestring.lsp") + (load "enough-namestring.lsp") + + (load "wild-pathname-p.lsp") + (load "merge-pathnames.lsp") + (load "pathname-match-p.lsp") + + (load "parse-namestring.lsp") +) diff --git a/printer/load.lsp b/printer/load.lsp new file mode 100644 index 00000000..b08ff8cb --- /dev/null +++ b/printer/load.lsp @@ -0,0 +1,46 @@ +;;;; Tests of the lisp printer +(compile-and-load "ANSI-TESTS:AUX;printer-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;backquote-aux.lsp") + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "copy-pprint-dispatch.lsp") + + (load "print-integers.lsp") + (load "print-ratios.lsp") + (load "print-floats.lsp") + (load "print-complex.lsp") + (load "print-characters.lsp") + (load "print-symbols.lsp") + (load "print-strings.lsp") + (load "print-cons.lsp") + (load "print-backquote.lsp") + (load "print-bit-vector.lsp") + (load "print-vector.lsp") + (load "print-array.lsp") + (load "print-random-state.lsp") + (load "print-pathname.lsp") + (load "print-structure.lsp") + (load "printer-control-vars.lsp") + (load "pprint-dispatch.lsp") + (load "pprint-fill.lsp") + (load "pprint-linear.lsp") + (load "pprint-tabular.lsp") + (load "pprint-indent.lsp") + (load "pprint-logical-block.lsp") + (load "pprint-exit-if-list-exhausted.lsp") + (load "pprint-newline.lsp") + (load "pprint-tab.lsp") + (load "print-unreadable-object.lsp") + (load "write.lsp") + (load "print.lsp") + (load "pprint.lsp") + (load "prin1.lsp") + (load "princ.lsp") + (load "write-to-string.lsp") + (load "prin1-to-string.lsp") + (load "princ-to-string.lsp") + (load "print-level.lsp") + (load "print-length.lsp") + + (load "load-format.lsp") +) diff --git a/reader/load.lsp b/reader/load.lsp new file mode 100644 index 00000000..1d4c76dc --- /dev/null +++ b/reader/load.lsp @@ -0,0 +1,22 @@ +;;;; Tests of the reader +(compile-and-load "ANSI-TESTS:AUX;reader-aux.lsp") + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "reader-test.lsp") + (load "with-standard-io-syntax.lsp") + (load "copy-readtable.lsp") + (load "read.lsp") + (load "read-preserving-whitespace.lsp") + (load "read-delimited-list.lsp") + (load "read-from-string.lsp") + (load "readtable-case.lsp") + (load "readtablep.lsp") + (load "get-macro-character.lsp") + (load "set-macro-character.lsp") + (load "read-suppress.lsp") + (load "set-syntax-from-char.lsp") + (load "dispatch-macro-characters.lsp") + + (load "syntax.lsp") + (load "syntax-tokens.lsp") +) diff --git a/sequences/load.lsp b/sequences/load.lsp new file mode 100644 index 00000000..b65f1be3 --- /dev/null +++ b/sequences/load.lsp @@ -0,0 +1,47 @@ +;;; Tests of sequences +(compile-and-load "ANSI-TESTS:AUX;search-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;subseq-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;remove-aux.lsp") +(compile-and-load "ANSI-TESTS:AUX;remove-duplicates-aux.lsp") + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "copy-seq.lsp") + (load "elt.lsp") + (load "fill.lsp") + (load "fill-strings.lsp") + (load "make-sequence.lsp") + (load "map.lsp") + (load "map-into.lsp") + (load "reduce.lsp") + (load "count.lsp") + (load "count-if.lsp") + (load "count-if-not.lsp") + (load "reverse.lsp") + (load "nreverse.lsp") + (load "sort.lsp") + (load "stable-sort.lsp") + (load "length.lsp") + (load "find.lsp") + (load "find-if.lsp") + (load "find-if-not.lsp") + (load "position.lsp") + (load "position-if.lsp") + (load "position-if-not.lsp") + (load "search-list.lsp") + (load "search-vector.lsp") + (load "search-bitvector.lsp") + (load "search-string.lsp") + (load "mismatch.lsp") + (load "replace.lsp") + (load "subseq.lsp") + (load "substitute.lsp") + (load "substitute-if.lsp") + (load "substitute-if-not.lsp") + (load "nsubstitute.lsp") + (load "nsubstitute-if.lsp") + (load "nsubstitute-if-not.lsp") + (load "concatenate.lsp") + (load "merge.lsp") + (load "remove.lsp") ;; also related funs + (load "remove-duplicates.lsp") ;; also delete-duplicates +) diff --git a/streams/load.lsp b/streams/load.lsp new file mode 100644 index 00000000..27f27915 --- /dev/null +++ b/streams/load.lsp @@ -0,0 +1,58 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Tue Jan 13 19:38:10 2004 +;;;; Contains: Load files containing tests for section 21 (streams) + +(in-package :cl-test) + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "input-stream-p.lsp") + (load "output-stream-p.lsp") + (load "interactive-stream-p.lsp") + (load "open-stream-p.lsp") + (load "stream-element-type.lsp") + (load "streamp.lsp") + (load "read-byte.lsp") + (load "peek-char.lsp") + (load "read-char.lsp") + (load "read-char-no-hang.lsp") + (load "terpri.lsp") + (load "fresh-line.lsp") + (load "unread-char.lsp") + (load "write-char.lsp") + (load "read-line.lsp") + (load "write-string.lsp") + (load "write-line.lsp") + (load "read-sequence.lsp") + (load "write-sequence.lsp") + (load "file-length.lsp") + (load "file-position.lsp") + (load "file-string-length.lsp") + (load "open.lsp") + (load "stream-external-format.lsp") + (load "with-open-file.lsp") + (load "with-open-stream.lsp") + (load "listen.lsp") + (load "clear-input.lsp") + (load "finish-output.lsp") + (load "force-output.lsp") + (load "clear-output.lsp") + (load "make-synonym-stream.lsp") + (load "synonym-stream-symbol.lsp") + (load "make-broadcast-stream.lsp") + (load "broadcast-stream-streams.lsp") + (load "make-two-way-stream.lsp") + (load "two-way-stream-input-stream.lsp") + (load "two-way-stream-output-stream.lsp") + (load "echo-stream-input-stream.lsp") + (load "echo-stream-output-stream.lsp") + (load "make-echo-stream.lsp") + (load "concatenated-stream-streams.lsp") + (load "make-concatenated-stream.lsp") + (load "get-output-stream-string.lsp") + (load "make-string-input-stream.lsp") + (load "make-string-output-stream.lsp") + (load "with-input-from-string.lsp") + (load "with-output-to-string.lsp") + (load "stream-error-stream.lsp") +) diff --git a/strings/load.lsp b/strings/load.lsp new file mode 100644 index 00000000..c616ed5e --- /dev/null +++ b/strings/load.lsp @@ -0,0 +1,25 @@ +;;; Tests of strings +(compile-and-load "ANSI-TESTS:AUX;string-aux.lsp") + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "char-schar.lsp") + (load "string.lsp") + (load "base-string.lsp") + (load "simple-string.lsp") + (load "simple-base-string.lsp") + (load "simple-string-p.lsp") + (load "stringp.lsp") + (load "string-upcase.lsp") + (load "string-downcase.lsp") + (load "string-capitalize.lsp") + (load "nstring-upcase.lsp") + (load "nstring-downcase.lsp") + (load "nstring-capitalize.lsp") + (load "string-trim.lsp") + (load "string-left-trim.lsp") + (load "string-right-trim.lsp") + +;;; Tests of string comparison functions + (load "string-comparisons.lsp") + (load "make-string.lsp") +) diff --git a/structures/load.lsp b/structures/load.lsp new file mode 100644 index 00000000..993031e9 --- /dev/null +++ b/structures/load.lsp @@ -0,0 +1,9 @@ +;;; Tests of structures + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "structure-00.lsp") + (load "structures-01.lsp") + (load "structures-02.lsp") + (load "structures-03.lsp") + (load "structures-04.lsp") +) diff --git a/symbols/load.lsp b/symbols/load.lsp new file mode 100644 index 00000000..472f84b0 --- /dev/null +++ b/symbols/load.lsp @@ -0,0 +1,19 @@ +;;; Tests of symbols +(compile-and-load "ANSI-TESTS:AUX;cl-symbols-aux.lsp") + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "cl-symbols.lsp") + (load "symbolp.lsp") + (load "keywordp.lsp") + (load "make-symbol.lsp") + (load "copy-symbol.lsp") + (load "gensym.lsp") + (load "gentemp.lsp") + (load "symbol-function.lsp") + (load "symbol-name.lsp") + (load "boundp.lsp") + (load "special-operator-p.lsp") + (load "makunbound.lsp") + (load "set.lsp") + (load "remprop.lsp") + (load "get.lsp")) diff --git a/system-construction/load-file.lsp b/system-construction/load-file.lsp new file mode 100644 index 00000000..731fc513 --- /dev/null +++ b/system-construction/load-file.lsp @@ -0,0 +1,227 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Tue Apr 12 21:51:49 2005 +;;;; Contains: Tests of LOAD + +(in-package :cl-test) + +(defun load-file-test (file funname &rest args &key + if-does-not-exist + (print nil print-p) + (verbose nil verbose-p) + (*load-print* nil) + (*load-verbose* nil) + external-format) + (declare (ignorable external-format if-does-not-exist + print print-p verbose verbose-p)) + (fmakunbound funname) + (let* ((str (make-array '(0) :element-type 'character :adjustable t + :fill-pointer 0)) + (vals (multiple-value-list + (with-output-to-string + (*standard-output* str) + (apply #'load file :allow-other-keys t args)))) + (print? (if print-p print *load-print*)) + (verbose? (if verbose-p verbose *load-verbose*))) + (values + (let ((v1 (car vals)) + (v2 (or (and verbose-p (not verbose)) + (and (not verbose-p) (not *load-verbose*)) + (position #\; str))) + (v3 (or (and print-p (not print)) + (and (not print-p) (not *load-print*)) + (> (length str) 0))) + (v4 (if (or print? verbose?) + (> (length str) 0) + t))) + (if (and (= (length vals) 1) v1 v2 v3 v4) t (list vals v2 v3 v4 str))) + (funcall funname)))) + +(deftest load.1 + (load-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1) + t nil) + +(deftest load.2 + (load-file-test #p"compile-file-test-file.lsp" 'compile-file-test-fun.1) + t nil) + +(deftest load.3 + (with-input-from-string + (s "(in-package :cl-test) (defun load-file-test-fun.2 () 'good)") + (load-file-test s 'load-file-test-fun.2)) + t good) + +(deftest load.4 + (load-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1 + :external-format :default) + t nil) + +(deftest load.5 + (load-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1 + :verbose t) + t nil) + +(deftest load.6 + (load-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1 + :*load-verbose* t) + t nil) + +(deftest load.7 + (load-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1 + :*load-verbose* t :verbose nil) + t nil) + +(deftest load.8 + (with-input-from-string + (s "(in-package :cl-test) (defun load-file-test-fun.2 () 'good)") + (load-file-test s 'load-file-test-fun.2 :verbose t)) + t good) + +(deftest load.9 + (load-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1 + :print t) + t nil) + +(deftest load.10 + (load-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1 + :*load-print* t) + t nil) + +(deftest load.11 + (load-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1 + :*load-print* t :print nil) + t nil) + +(deftest load.12 + (load-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1 + :*load-print* nil :print t) + t nil) + +(deftest load.13 + (with-input-from-string + (s "(in-package :cl-test) (defun load-file-test-fun.2 () 'good)") + (load-file-test s 'load-file-test-fun.2 :print t)) + t good) + +(deftest load.14 + (load "nonexistent-file.lsp" :if-does-not-exist nil) + nil) + +(defpackage LOAD-TEST-PACKAGE (:use "COMMON-LISP")) + +(deftest load.15 + (let ((*package* (find-package "LOAD-TEST-PACKAGE"))) + (with-input-from-string + (s "(defun f () 'good)") + (load-file-test s 'load-test-package::f))) + t load-test-package::good) + +(deftest load.15a + (let ((*package* (find-package "CL-TEST"))) + (values + (with-input-from-string + (s "(eval-when (:load-toplevel :execute) (setq *package* (find-package \"LOAD-TEST-PACKAGE\"))) + (defun f () 'good)") + (multiple-value-list (load-file-test s 'load-test-package::f))) + (read-from-string "GOOD"))) + (t load-test-package::good) good) + +(deftest load.16 + (let ((*readtable* (copy-readtable nil))) + (set-macro-character #\! (get-macro-character #\')) + (with-input-from-string + (s "(in-package :cl-test) (defun load-file-test-fun.3 () !good)") + (load-file-test s 'load-file-test-fun.3))) + t good) + +(deftest load.16a + (let ((*readtable* *readtable*) + (*package* (find-package "CL-TEST"))) + (values + (with-input-from-string + (s "(in-package :cl-test) + (eval-when (:load-toplevel :execute) + (setq *readtable* (copy-readtable nil)) + (set-macro-character #\\! (get-macro-character #\\'))) + (defun load-file-test-fun.3 () !good)") + (multiple-value-list + (load-file-test s 'load-file-test-fun.3))) + (read-from-string "!FOO"))) + (t good) !FOO) + +(deftest load.17 + (let ((file #p"load-test-file.lsp")) + (fmakunbound 'load-file-test-fun.1) + (fmakunbound 'load-file-test-fun.2) + (values + (notnot (load file)) + (let ((p1 (pathname (merge-pathnames file))) + (p2 (funcall 'load-file-test-fun.1))) + (equalpt-or-report p1 p2)) + (let ((p1 (truename file)) + (p2 (funcall 'load-file-test-fun.2))) + (equalpt-or-report p1 p2)))) + t t t) + +;;; Test that the load pathname/truename variables are bound +;;; properly when loading compiled files + +(deftest load.18 + (let* ((file "load-test-file-2.lsp") + (target (enough-namestring (compile-file-pathname file)))) + (declare (special *load-test-var.1* *load-test-var.2*)) + (compile-file file) + (makunbound '*load-test-var.1*) + (makunbound '*load-test-var.2*) + (load target) + (values + (let ((p1 (pathname (merge-pathnames target))) + (p2 *load-test-var.1*)) + (equalpt-or-report p1 p2)) + (let ((p1 (truename target)) + (p2 *load-test-var.2*)) + (equalpt-or-report p1 p2)))) + t t) + +(deftest load.19 + (let ((file (logical-pathname "CLTEST:LDTEST.LSP")) + (fn 'load-test-fun-3) + (*package* (find-package "CL-TEST"))) + (with-open-file + (s file :direction :output :if-exists :supersede + :if-does-not-exist :create) + (format s "(in-package :cl-test) (defun ~a () :foo)" fn)) + (fmakunbound fn) + (values + (notnot (load file)) + (funcall fn))) + t :foo) + +;;; Defaults of the load variables + +(deftest load-pathname.1 + *load-pathname* + nil) + +(deftest load-truename.1 + *load-truename* + nil) + +(deftest load-print.1 + *load-print* + nil) + +;;; Error tests + +(deftest load.error.1 + (signals-error (load "nonexistent-file.lsp") file-error) + t) + +(deftest load.error.2 + (signals-error (load) program-error) + t) + +(deftest load.error.3 + (signals-error (load "compile-file-test-file.lsp" :bad-key-arg t) + program-error) + t) diff --git a/system-construction/load.lsp b/system-construction/load.lsp index 731fc513..0d03e9cb 100644 --- a/system-construction/load.lsp +++ b/system-construction/load.lsp @@ -1,227 +1,15 @@ ;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz -;;;; Created: Tue Apr 12 21:51:49 2005 -;;;; Contains: Tests of LOAD +;;;; Created: Sun Dec 12 19:44:29 2004 +;;;; Contains: Load tests for system construction (section 24) (in-package :cl-test) -(defun load-file-test (file funname &rest args &key - if-does-not-exist - (print nil print-p) - (verbose nil verbose-p) - (*load-print* nil) - (*load-verbose* nil) - external-format) - (declare (ignorable external-format if-does-not-exist - print print-p verbose verbose-p)) - (fmakunbound funname) - (let* ((str (make-array '(0) :element-type 'character :adjustable t - :fill-pointer 0)) - (vals (multiple-value-list - (with-output-to-string - (*standard-output* str) - (apply #'load file :allow-other-keys t args)))) - (print? (if print-p print *load-print*)) - (verbose? (if verbose-p verbose *load-verbose*))) - (values - (let ((v1 (car vals)) - (v2 (or (and verbose-p (not verbose)) - (and (not verbose-p) (not *load-verbose*)) - (position #\; str))) - (v3 (or (and print-p (not print)) - (and (not print-p) (not *load-print*)) - (> (length str) 0))) - (v4 (if (or print? verbose?) - (> (length str) 0) - t))) - (if (and (= (length vals) 1) v1 v2 v3 v4) t (list vals v2 v3 v4 str))) - (funcall funname)))) +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "compile-file.lsp") + (load "load-file.lsp") + (load "with-compilation-unit.lsp") + (load "features.lsp") + (load "modules.lsp") +) -(deftest load.1 - (load-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1) - t nil) - -(deftest load.2 - (load-file-test #p"compile-file-test-file.lsp" 'compile-file-test-fun.1) - t nil) - -(deftest load.3 - (with-input-from-string - (s "(in-package :cl-test) (defun load-file-test-fun.2 () 'good)") - (load-file-test s 'load-file-test-fun.2)) - t good) - -(deftest load.4 - (load-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1 - :external-format :default) - t nil) - -(deftest load.5 - (load-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1 - :verbose t) - t nil) - -(deftest load.6 - (load-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1 - :*load-verbose* t) - t nil) - -(deftest load.7 - (load-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1 - :*load-verbose* t :verbose nil) - t nil) - -(deftest load.8 - (with-input-from-string - (s "(in-package :cl-test) (defun load-file-test-fun.2 () 'good)") - (load-file-test s 'load-file-test-fun.2 :verbose t)) - t good) - -(deftest load.9 - (load-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1 - :print t) - t nil) - -(deftest load.10 - (load-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1 - :*load-print* t) - t nil) - -(deftest load.11 - (load-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1 - :*load-print* t :print nil) - t nil) - -(deftest load.12 - (load-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1 - :*load-print* nil :print t) - t nil) - -(deftest load.13 - (with-input-from-string - (s "(in-package :cl-test) (defun load-file-test-fun.2 () 'good)") - (load-file-test s 'load-file-test-fun.2 :print t)) - t good) - -(deftest load.14 - (load "nonexistent-file.lsp" :if-does-not-exist nil) - nil) - -(defpackage LOAD-TEST-PACKAGE (:use "COMMON-LISP")) - -(deftest load.15 - (let ((*package* (find-package "LOAD-TEST-PACKAGE"))) - (with-input-from-string - (s "(defun f () 'good)") - (load-file-test s 'load-test-package::f))) - t load-test-package::good) - -(deftest load.15a - (let ((*package* (find-package "CL-TEST"))) - (values - (with-input-from-string - (s "(eval-when (:load-toplevel :execute) (setq *package* (find-package \"LOAD-TEST-PACKAGE\"))) - (defun f () 'good)") - (multiple-value-list (load-file-test s 'load-test-package::f))) - (read-from-string "GOOD"))) - (t load-test-package::good) good) - -(deftest load.16 - (let ((*readtable* (copy-readtable nil))) - (set-macro-character #\! (get-macro-character #\')) - (with-input-from-string - (s "(in-package :cl-test) (defun load-file-test-fun.3 () !good)") - (load-file-test s 'load-file-test-fun.3))) - t good) - -(deftest load.16a - (let ((*readtable* *readtable*) - (*package* (find-package "CL-TEST"))) - (values - (with-input-from-string - (s "(in-package :cl-test) - (eval-when (:load-toplevel :execute) - (setq *readtable* (copy-readtable nil)) - (set-macro-character #\\! (get-macro-character #\\'))) - (defun load-file-test-fun.3 () !good)") - (multiple-value-list - (load-file-test s 'load-file-test-fun.3))) - (read-from-string "!FOO"))) - (t good) !FOO) - -(deftest load.17 - (let ((file #p"load-test-file.lsp")) - (fmakunbound 'load-file-test-fun.1) - (fmakunbound 'load-file-test-fun.2) - (values - (notnot (load file)) - (let ((p1 (pathname (merge-pathnames file))) - (p2 (funcall 'load-file-test-fun.1))) - (equalpt-or-report p1 p2)) - (let ((p1 (truename file)) - (p2 (funcall 'load-file-test-fun.2))) - (equalpt-or-report p1 p2)))) - t t t) - -;;; Test that the load pathname/truename variables are bound -;;; properly when loading compiled files - -(deftest load.18 - (let* ((file "load-test-file-2.lsp") - (target (enough-namestring (compile-file-pathname file)))) - (declare (special *load-test-var.1* *load-test-var.2*)) - (compile-file file) - (makunbound '*load-test-var.1*) - (makunbound '*load-test-var.2*) - (load target) - (values - (let ((p1 (pathname (merge-pathnames target))) - (p2 *load-test-var.1*)) - (equalpt-or-report p1 p2)) - (let ((p1 (truename target)) - (p2 *load-test-var.2*)) - (equalpt-or-report p1 p2)))) - t t) - -(deftest load.19 - (let ((file (logical-pathname "CLTEST:LDTEST.LSP")) - (fn 'load-test-fun-3) - (*package* (find-package "CL-TEST"))) - (with-open-file - (s file :direction :output :if-exists :supersede - :if-does-not-exist :create) - (format s "(in-package :cl-test) (defun ~a () :foo)" fn)) - (fmakunbound fn) - (values - (notnot (load file)) - (funcall fn))) - t :foo) - -;;; Defaults of the load variables - -(deftest load-pathname.1 - *load-pathname* - nil) - -(deftest load-truename.1 - *load-truename* - nil) - -(deftest load-print.1 - *load-print* - nil) - -;;; Error tests - -(deftest load.error.1 - (signals-error (load "nonexistent-file.lsp") file-error) - t) - -(deftest load.error.2 - (signals-error (load) program-error) - t) - -(deftest load.error.3 - (signals-error (load "compile-file-test-file.lsp" :bad-key-arg t) - program-error) - t) diff --git a/types-and-classes/load.lsp b/types-and-classes/load.lsp new file mode 100644 index 00000000..5caaae4f --- /dev/null +++ b/types-and-classes/load.lsp @@ -0,0 +1,25 @@ +;;; Tests of types and classes +(compile-and-load "ANSI-TESTS:AUX;types-aux.lsp") + +(let ((*default-pathname-defaults* (pathname *load-pathname*))) + (load "types-and-class.lsp") + (load "types-and-class-2.lsp") + (load "coerce.lsp") + (load "subtypep.lsp") + (load "subtypep-integer.lsp") + (load "subtypep-float.lsp") + (load "subtypep-rational.lsp") + (load "subtypep-real.lsp") + #-lispworks (load "subtypep-cons.lsp") + (load "subtypep-member.lsp") + (load "subtypep-eql.lsp") + (load "subtypep-array.lsp") + (load "subtypep-function.lsp") + (load "subtypep-complex.lsp") + + (load "deftype.lsp") + (load "standard-generic-function.lsp") + (load "type-of.lsp") + (load "typep.lsp") + (load "class-precedence-lists.lsp") +) -- GitLab