projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10592: add debian patch
[clsql.git]
/
sql
/
database.lisp
diff --git
a/sql/database.lisp
b/sql/database.lisp
index 706ccbf7cc1c323448a2c8732ddf8e4a2647d6a9..285d3e269b237e4d6817854465f7d01cfe78b035 100644
(file)
--- a/
sql/database.lisp
+++ b/
sql/database.lisp
@@
-63,7
+63,9
@@
error is signalled."
:message
(format nil "There exists ~A database called ~A."
(if (zerop count) "no" "more than one")
:message
(format nil "There exists ~A database called ~A."
(if (zerop count) "no" "more than one")
- database)))))))
+ database)))))
+ (null
+ (error "A database must be specified rather than NIL."))))
(defun connect (connection-spec
(defun connect (connection-spec