From 0ec31a24a66089a3439e370a8785b85710dbaf9b Mon Sep 17 00:00:00 2001 From: Eitaro Fukamachi Date: Mon, 8 Feb 2016 16:17:46 +0900 Subject: [PATCH] Suppress loading messages in find-package-or-load. --- src/util.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/util.lisp b/src/util.lisp index 6e930d0..9652315 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -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))