コンパイルファイルをキャッシュディレクトリに配置する処理系の場合にデータを読み込めなかったバグを修正
creole.asd (diff) package.lisp (diff) external-format.lisp (diff)| @@ -7,9 +7,9 @@ | ||
| 7 | 7 | (in-package :creole) |
| 8 | 8 | |
| 9 | 9 | (defvar *data-dir* |
| 10 | - (make-pathname | |
| 11 | - :directory (pathname-directory | |
| 12 | - (merge-pathnames #P"data/" *load-pathname*)))) | |
| 10 | + #.(make-pathname | |
| 11 | + :directory (pathname-directory | |
| 12 | + (merge-pathnames #P"data/" (or *compile-file-pathname* *load-pathname*))))) | |
| 13 | 13 | |
| 14 | 14 | (deftype octet () '(unsigned-byte 8)) |
| 15 | 15 | (deftype simple-octets () '(simple-array octet)) |
| @@ -19,4 +19,4 @@ | ||
| 19 | 19 | #-SBCL 'array-index) |
| 20 | 20 | |
| 21 | 21 | (defparameter *fastest* '(optimize (speed 3) (debug 0) (safety 0) (compilation-speed 0))) |
| 22 | -(defparameter *interface* '(optimize (speed 3) (debug 1) (safety 1) (compilation-speed 0))) | |
| \ No newline at end of file | ||
| 22 | +(defparameter *interface* '(optimize (speed 3) (debug 1) (safety 1) (compilation-speed 0))) |
| @@ -2,7 +2,6 @@ | ||
| 2 | 2 | |
| 3 | 3 | (declaim (inline external-format-filename external-format-key)) |
| 4 | 4 | |
| 5 | - | |
| 6 | 5 | (defvar *default-external-format* :utf-8) |
| 7 | 6 | (defvar *external-formats* |
| 8 | 7 | (loop FOR path IN (remove-if-not #'pathname-name |