From b7fa2e9ca0440ffa815b903514de3528b89a1aa1 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Sat, 19 Mar 2022 10:50:49 +0100
Subject: [PATCH] - suppressed missing function warning when quicklisp is
 unavailable.

---
 src/misc-utils.lisp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/misc-utils.lisp b/src/misc-utils.lisp
index 89244fc..2301c18 100644
--- a/src/misc-utils.lisp
+++ b/src/misc-utils.lisp
@@ -1003,8 +1003,8 @@ to the array"
             (all-dependencies i))))
       (sort results #'string<))))
 
-#+quicklisp
 (defun all-program-dependencies (&optional download)
+  #+quicklisp
   (let* ((dependencies          (all-dependencies config:+program-name+))
          (clean-dependencies    (mapcar (lambda (a)
                                           (cond
@@ -1043,4 +1043,8 @@ to the array"
                  (format t "~a ~a ~a~%" system-name (first fields) (second fields))
                  (when download
                    (download-package fields))))
-              (format t "!error: ~a~%" system-name)))))))
+              (format t "!error: ~a~%" system-name))))))
+  #-quicklisp
+  (format t
+          "Unable to print dependencies because quicklisp was not loaded when compiling ~a.~%"
+          +program-name+))