• R/O
  • SSH
  • HTTPS

creole: Commit


Commit MetaInfo

Revision32 (tree)
Time2010-08-15 21:36:16
Authorphjgt

Log Message

コンパイルファイルをキャッシュディレクトリに配置する処理系の場合にデータを読み込めなかったバグを修正

Change Summary

Incremental Difference

--- package.lisp (revision 31)
+++ package.lisp (revision 32)
@@ -7,9 +7,9 @@
77 (in-package :creole)
88
99 (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*)))))
1313
1414 (deftype octet () '(unsigned-byte 8))
1515 (deftype simple-octets () '(simple-array octet))
@@ -19,4 +19,4 @@
1919 #-SBCL 'array-index)
2020
2121 (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)))
--- external-format.lisp (revision 31)
+++ external-format.lisp (revision 32)
@@ -2,7 +2,6 @@
22
33 (declaim (inline external-format-filename external-format-key))
44
5-
65 (defvar *default-external-format* :utf-8)
76 (defvar *external-formats*
87 (loop FOR path IN (remove-if-not #'pathname-name
Show on old repository browser