Revision: 1.1 - (view) (download)
1 : | ktanaka | 1.1 | #!/usr/local/bin/utilisp |
2 : | (defun load-directory (dir) | ||
3 : | (lets ((base-directory dir)) | ||
4 : | (exfile (string-append base-directory "/" "load.l")))) | ||
5 : | (load-directory "../renderer/") | ||
6 : | (load-directory "../primdata/") | ||
7 : | (load-directory "../jointdata/") | ||
8 : | (load-directory "../kanjidata/") | ||
9 : | (out-to-ps-all alljis 'mincho "alljis.ps") |
ktanaka Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |