cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- suppressed missing function warning when quicklisp is unavailable.

This commit is contained in:
cage 2022-03-19 10:50:49 +01:00
parent 551d93404b
commit b7fa2e9ca0
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/misc-utils.lisp
View File

@ -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+))