dictパッケージの読み込みに失敗するのを修正

sile · Jan 5, 2012 · 55bbd55 · 55bbd55
1 parent 8add4bf
commit 55bbd55
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/README b/README
@@ -8,7 +8,7 @@
 
 
 [バージョン]
-・0.3.0
+・0.3.1
 
 
 [依存パッケージ]

diff --git a/dawg.asd b/dawg.asd
@@ -3,7 +3,7 @@
 (defsystem dawg
   :name "dawg"
   :author "Takeru Ohta"
-  :version "0.3.0"
+  :version "0.3.1"
 
   :serial t
   :components ((:file "load-hashmap")

diff --git a/load-hashmap.lisp b/load-hashmap.lisp
@@ -1,5 +1,7 @@
 (eval-when (:load-toplevel :compile-toplevel :execute)
-  (defun load-local-system (package &optional (package-directory #P"./"))
+  (defun root-path ()
+    (directory-namestring (or *compile-file-pathname* *load-pathname* #P"./")))
+  (defun load-local-system (package &optional (package-directory (root-path)))
     (let #.`((asdf:*central-registry* (directory package-directory))
              ;; or #+ASDF2
              ,@(when #.#1=(find-symbol "*DEFAULT-SOURCE-REGISTRIES*" :asdf)