(defun load-directory (dir)
  (lets ((base-directory dir))
	(exfile (string-append base-directory "/" "load.l"))))
;(setq source-load t)
(load-directory "../renderer/")
(load-directory "../primdata/")
(load-directory "../jointdata/")
(load-directory "../kanjidata/")
(setq backtrace nil)
(setq oldvalue nil)
(setq gc-hook #'(lambda (x)
		  (setq backtrace (backtrace))
		  (setq oldvalue (oldvalue))))

;(out-to-ps-all alljis 'mincho "alljis.ps")