X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fdatabase.lisp;h=41009f5802605203be240d975660e2f7233b1f78;hp=83fe7d6a6df739e24dbedbf88fd2beecf4a0aab2;hb=d2d49ab13c98bc7a1819a0fd3968268a5567bdc3;hpb=be383802fc1f47547eef6d57945023ff71d45657 diff --git a/sql/database.lisp b/sql/database.lisp index 83fe7d6..41009f5 100644 --- a/sql/database.lisp +++ b/sql/database.lisp @@ -1,8 +1,6 @@ ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*- ;;;; ************************************************************************* ;;;; -;;;; $Id$ -;;;; ;;;; Base database functions ;;;; ;;;; This file is part of CLSQL. @@ -99,7 +97,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)))