Ensure projects are created fully functional

melusina-org · Aug 17, 2023 · 75bc3fe · 75bc3fe
1 parent e1f2bea
commit 75bc3fe
Show file tree

Hide file tree

Showing 12 changed files with 1,191 additions and 6 deletions.
diff --git a/development/makedoc b/development/makedoc
@@ -40,7 +40,7 @@ makedoc_runpatches()
 makedoc_extract()
 {
     makedoc_sbcl \
-	--eval "(ql:quickload :${makedocsystem})"\
+	--eval "(ql:quickload :${makedocsystem} :silent t)"\
 	--eval '(with-compilation-unit () (load "libexec/lisp/docstrings.lisp"))' \
 	--eval "(sb-texinfo:generate-includes\
                   \"obj/makedoc/include/\"\

diff --git a/development/testsuite b/development/testsuite
@@ -37,6 +37,9 @@ testsuite_run()
     fi
     testsuite_lisp\
 	--eval "(declaim (optimize safety) (optimize debug))"\
+        --eval "(unless (ql:where-is-system :${testsuitesystem})
+                  (pushnew #p\".\" ql:*local-project-directories*)
+                  (ql:register-local-projects))"\
 	--eval "(ql:quickload \"${testsuitesystem}\" :silent t)"\
 	--eval "(${testsuitesystem}:$1)"\
 	--eval "(org.melusina.confidence:quit)"

diff --git a/resource/template/LISP-DEVELOPMENT-MAKEDOC/TEMPLATE-TEXT b/resource/template/LISP-DEVELOPMENT-MAKEDOC/TEMPLATE-TEXT
@@ -37,6 +37,9 @@ makedoc_runpatches()
 makedoc_extract()
 {
     makedoc_sbcl \
+        --eval "(unless (ql:where-is-system :${makedocsystem})
+                  (pushnew #p\".\" ql:*local-project-directories*)
+                  (ql:register-local-projects))"\
 	--eval "(ql:quickload :${makedocsystem})"\
 	--eval '(with-compilation-unit () (load "libexec/lisp/docstrings.lisp"))' \
 	--eval "(sb-texinfo:generate-includes

diff --git a/resource/template/LISP-DEVELOPMENT-TESTSUITE/TEMPLATE-TEXT b/resource/template/LISP-DEVELOPMENT-TESTSUITE/TEMPLATE-TEXT
@@ -33,6 +33,9 @@ testsuite_run()
 	set -- 'run-all-tests'
     fi
     testsuite_lisp\
+        --eval "(unless (ql:where-is-system :${testsuitesystem})
+                  (pushnew #p\".\" ql:*local-project-directories*)
+                  (ql:register-local-projects))"\
 	--eval "(ql:quickload \"${testsuitesystem}\" :silent t)"\
 	--eval "(${testsuitesystem}:$1)"\
 	--eval '(org.melusina.confidence:quit)'

diff --git a/resource/template/LISP-DOCSTRINGS/TEMPLATE-NAME b/resource/template/LISP-DOCSTRINGS/TEMPLATE-NAME
@@ -0,0 +1 @@
+Lisp docstrings utility