mirror of https://codeberg.org/cage/tinmop/
- suppressed missing function warning when quicklisp is unavailable.
This commit is contained in:
parent
551d93404b
commit
b7fa2e9ca0
|
@ -1003,8 +1003,8 @@ to the array"
|
||||||
(all-dependencies i))))
|
(all-dependencies i))))
|
||||||
(sort results #'string<))))
|
(sort results #'string<))))
|
||||||
|
|
||||||
#+quicklisp
|
|
||||||
(defun all-program-dependencies (&optional download)
|
(defun all-program-dependencies (&optional download)
|
||||||
|
#+quicklisp
|
||||||
(let* ((dependencies (all-dependencies config:+program-name+))
|
(let* ((dependencies (all-dependencies config:+program-name+))
|
||||||
(clean-dependencies (mapcar (lambda (a)
|
(clean-dependencies (mapcar (lambda (a)
|
||||||
(cond
|
(cond
|
||||||
|
@ -1043,4 +1043,8 @@ to the array"
|
||||||
(format t "~a ~a ~a~%" system-name (first fields) (second fields))
|
(format t "~a ~a ~a~%" system-name (first fields) (second fields))
|
||||||
(when download
|
(when download
|
||||||
(download-package fields))))
|
(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+))
|
||||||
|
|
Loading…
Reference in New Issue