File psl-1983/3-1/tests/init8 from the latest check-in

(de mkquote(x) (list 'quote x))
(de flag(x y) NIL)
(prin2t "sub2.init")(lapin "sub2.init")
(prin2t "sub3.init")(lapin "sub3.init")
(prin2t "sub4.init")(lapin "sub4.init")
(prin2t "sub5a.init")(lapin "sub5a.init")
(prin2t "sub5b.init")(lapin "sub5b.init")
(prin2t "sub6.init")(lapin "sub6.init")
(prin2t "sub7.init")(lapin "sub7.init")
(prin2t "sub8.init")(lapin "sub8.init")
(prin2t "main8.init")(lapin "main8.init")