Extend the ASDF2 source registry with the new project's directory.

xach · Sep 16, 2010 · 05a0cd9 · 05a0cd9
1 parent bbd4c29
commit 05a0cd9
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/quickproject.lisp b/quickproject.lisp
@@ -76,4 +76,8 @@ it is used as the asdf defsystem depends-on list."
     (write-system-file name (nametype "asd") :depends-on depends-on)
     (write-package-file name (relative "package.lisp"))
     (write-application-file name (nametype "lisp"))
+    #+asdf2
+    (asdf:initialize-source-registry
+     `(:source-registry :inherit-configuration
+                        (:directory ,(truename pathname))))
     name))