projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9424: * db-oracle/oracle-sql: Use clsql-specific error conditions. Use owner...
[clsql.git]
/
sql
/
database.lisp
diff --git
a/sql/database.lisp
b/sql/database.lisp
index 704029f6340fc2378a9ee83c582598c12e871170..066d3484a27dfdaccae3d036abcf60e43aca5f55 100644
(file)
--- a/
sql/database.lisp
+++ b/
sql/database.lisp
@@
-61,11
+61,11
@@
simply returned."
(if (or (not errorp) (= count 1))
(values (car matches) count)
(cerror "Return nil."
(if (or (not errorp) (= count 1))
(values (car matches) count)
(cerror "Return nil."
- '
clsql-simpl
e-error
- :
format-control "There exists ~A database called ~A."
- :format-arguments
-
(list
(if (zerop count) "no" "more than one")
- database)))))))
+ '
sql-databas
e-error
+ :
message
+ (format nil "There exists ~A database called ~A."
+
(if (zerop count) "no" "more than one")
+
database)))))))
(defun connect (connection-spec
(defun connect (connection-spec