fix: make breeze {compil,load}able even if quicklisp isn't loaded

fstamour · Jul 18, 2023 · 13a71a4 · 13a71a4
1 parent 7051f34
commit 13a71a4
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/project.lisp b/src/project.lisp
@@ -33,10 +33,14 @@
   "Scaffold a project using quickproject's make-project."
   (apply #'quickproject:make-project args))
 
+
 (defun ql-local-project-directories ()
   "Get the list of quicklisp local-projects directories (as strings)."
+  #+quicklisp
   (mapcar #'namestring
-          ql:*local-project-directories*))
+          ql:*local-project-directories*)
+  ;; To appease sbcl's type checking xD
+  #-quicklisp (list))
 
 (defun choose-local-project-directories ()
   (let ((directories (ql-local-project-directories)))