projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Conditionalize read of #\no-break_space for non-unicode SBCL and non-ics Allegro.
[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-)
(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)))
(if pool
(let ((conn (acquire-from-pool connection-spec database-type pool)))