Use :verbose nil for asdf:operate invocation

[clsql.git] / sql / database.lisp

diff --git a/sql/database.lisp b/sql/database.lisp
index 83fe7d6a6df739e24dbedbf88fd2beecf4a0aab2..5344628358d9a579a380adf24541e4da65ad83fe 100644 (file)
--- a/sql/database.lisp
+++ b/sql/database.lisp
@@ -99,7 +99,8 @@ be taken from this pool."
     (asdf:operate 'asdf:load-op (ensure-keyword
                                  (concatenate 'string
                                               (symbol-name '#:clsql-)
-                                              (symbol-name database-type)))))
+                                              (symbol-name database-type)))
+                  :verbose nil))
 
   (if pool
       (let ((conn (acquire-from-pool connection-spec database-type pool)))