init8 450 B

12345678910111213
  1. (setq !*pval nil)
  2. (de mkquote(x) (list 'quote x))
  3. (de flag(x y) NIL)
  4. (prin2t "sub2.init")(lapin "sub2.init")
  5. (prin2t "sub3.init")(lapin "sub3.init")
  6. (prin2t "sub4.init")(lapin "sub4.init")
  7. (prin2t "sub5a.init")(lapin "sub5a.init")
  8. (prin2t "sub5b.init")(lapin "sub5b.init")
  9. (prin2t "sub6.init")(lapin "sub6.init")
  10. (prin2t "sub7.init")(lapin "sub7.init")
  11. (prin2t "sub8.init")(lapin "sub8.init")
  12. (prin2t "main8.init")(lapin "main8.init")
  13. (setq !*pval T)