Revision Log
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 |