dic読み込み方法再修正

README

@@ -8,7 +8,7 @@
 
 
 [バージョン]
-・0.3.1
+・0.3.2
 
 
 [依存パッケージ]

dawg.asd

@@ -3,7 +3,7 @@
 (defsystem dawg
   :name "dawg"
   :author "Takeru Ohta"
-  :version "0.3.1"
+  :version "0.3.2"
 
   :serial t
   :components ((:file "load-hashmap")

load-hashmap.lisp

@@ -1,11 +1,10 @@
-(eval-when (:load-toplevel :compile-toplevel :execute)
-  (defun root-path ()
-    (directory-namestring (or *compile-file-pathname* *load-pathname* #P"./")))
-  (defun load-local-system (package &optional (package-directory (root-path)))
+(eval-when (:compile-toplevel)
+  (defun load-local-system (package &optional (package-directory #P"./"))
     (let #.`((asdf:*central-registry* (directory package-directory))
              ;; or #+ASDF2
              ,@(when #.#1=(find-symbol "*DEFAULT-SOURCE-REGISTRIES*" :asdf)
                      `((,#1# nil))))
          (asdf:load-system package))))
 
-(load-local-system :dict-0.2.0 #P"lib/dict-0.2.0/")
+(load-local-system :dict-0.2.0 
+  #.(merge-pathnames #P"lib/dict-0.2.0/" *compile-file-pathname*))