From 13a71a4f7e70188e13787d7a25b5adf9adc4c1b2 Mon Sep 17 00:00:00 2001
From: Francis St-Amour <fr.stamour@gmail.com>
Date: Mon, 17 Jul 2023 23:18:42 -0400
Subject: [PATCH] fix: make breeze {compil,load}able even if quicklisp isn't
 loaded

---
 src/project.lisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/project.lisp b/src/project.lisp
index eb57f4d4..3dd5d5bd 100644
--- 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)))