hiro/lack
1
0
Fork 0
mirror of https://github.com/vale981/lack synced 2025-03-05 09:21:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Suppress loading messages in find-package-or-load.

Browse source
This commit is contained in:
Eitaro Fukamachi 2016-02-08 16:17:46 +09:00
parent 1c6f0f7ebc
commit 0ec31a24a6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/util.lisp
View file

@ -20,7 +20,7 @@
(let ((package (find-package package-name)))
(or package
(let ((system-name (string-downcase (substitute #\- #\. package-name :test #'char=))))
#+quicklisp (handler-case (ql:quickload system-name)
#+quicklisp (handler-case (ql:quickload system-name :silent t)
(ql:system-not-found ()))
#-quicklisp (when (asdf:find-system system-name nil)
(asdf:load-system system-name :verbose nil))