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&lt8l!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