;; load.l
(mapcar '("pack.l"
	  "lib.l"
	  "yokosort.l"
	  "mincho.l"
	  "apply.l"
	  "sym.l"
	  "type1.l"
	  "gothic.l"
	  "newjoint.l"
	  "center.l"
	  "limit.l"
	  "limitrule.l"
	  "unit.l"
	  "transform.l"
	  "naal.l"
	  "hiranew.l"
	  "region.l"
	  "out2ps.l"
	  "outline.l")
	#'(lambda (file) (exfile (string-append base-directory "/" file))))
(comment

(defun exprint (file)
  (print file terminal-output)
  (exfile file))

(mapcar '("pack.l" "lib.l" "disp.l" "yokosort.l" "mincho.l"
          "sym.l" "type1.l" "gothic.l" "newjoint.l" "center.l"
          "limit.l" "unit.l" "transform.l" "naal.l" "hiranew.l"
          "region.l" "out2ps.l" "outline.l")
        #'(lambda (x) (print x)(exfile x)))
(comment
(cond ((definedp 'connect-to-server)
       (code-load '("pack.o" "lib.o" "disp.o" "yokosort.o" "mincho.o"
		    "sym.o"
		    "type1.o" "gothic.o" "newjoint.o" "center.o"
		    "limit.o" "unit.o" "transform.o" "naal.o" "hiranew.o"
		    "region.o" "out2ps.o" "outline.o")))
      (t
       (code-load '("window.o" "pack.o" "lib.o" "disp.o" "yokosort.o" 
		    "sym.o"
		    "mincho.o" "type1.o" "gothic.o" "newjoint.o" "center.o"
		    "limit.o" "unit.o" "transform.o" "naal.o" "hiranew.o"
		    "region.o" "out2ps.o" "outline.o"
		    ) "-lX11")))
)
(exfile "limitrule.l")
(exfile "all.l")
(setq hirawidth 0.6)
(setq *default-hirawidth* 8)
(exfile "../primdata/prim-hira.l")
(exfile "../primdata/prim-kata.l")
(exfile "../primdata/prim-sym.l")
(exfile "../primdata/prim-gothic.l")
(exfile "../primdata/prim-hira-gothic.l")
(exfile "../primdata/prim-kata-gothic.l")
(exfile "../jointdata/joint-naal.l")
(exfile "server.l")
(exfile "test/jis3ku.l")
)