projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixed bug causing some failing sqlite3 tests (database-identifiers are not string=)
[clsql.git]
/
sql
/
database.lisp
diff --git
a/sql/database.lisp
b/sql/database.lisp
index 982973e6d23695d84b96f11968a246add9220780..b860d309f628d4de7001506809d48dbf90ddf712 100644
(file)
--- a/
sql/database.lisp
+++ b/
sql/database.lisp
@@
-193,7
+193,9
@@
and signal an sql-user-error if they don't match. This function
is called by database backends."
`(handler-case
(destructuring-bind ,template ,connection-spec
is called by database backends."
`(handler-case
(destructuring-bind ,template ,connection-spec
- (declare (ignore ,@(remove '&optional template)))
+ (declare (ignore ,@(remove-if
+ (lambda (x) (member x '(&key &rest &optional)))
+ template)))
t)
(error ()
(error 'sql-user-error
t)
(error ()
(error 'sql-user-error