Use :verbose nil for asdf:operate invocation

diff --git a/ChangeLog b/ChangeLog
index caf766b11ef06a5de9564b5b45132df4bfe14bce..714604db46918525b79eb1df99e8ab2956d647c1 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -14,6 +14,8 @@
        transactions (thanks to Eli Naeher)
        * sql/time.lisp: Commit patch to fix parse-iso-8601-duration
        (thanks to Stephen Compall)
+       * sql/database.lisp: Use :verbose nil for asdf:operate
+       invocation (Thanks to Mackram Raydan)
 
 31 Aug 2009  Kevin Rosenberg <kevin@rosenberg.net>
        * sql/db-interface.lisp: Fix spelling error (thanks to

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