projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9415: fix for cerror
[clsql.git]
/
sql
/
conditions.lisp
diff --git
a/sql/conditions.lisp
b/sql/conditions.lisp
index d708c8a4a8c945a5d521f52b7e6cde5e71023d6c..aee96d82c1533aacfb996d01e1fb1f3af2062f82 100644
(file)
--- a/
sql/conditions.lisp
+++ b/
sql/conditions.lisp
@@
-89,14
+89,14
@@
set to :error to signal an error or :ignore/nil to silently ignore the warning."
;; Signal conditions
(defun signal-closed-database-error (database)
;; Signal conditions
(defun signal-closed-database-error (database)
- (cerror 'sql-connection-error
- :message
- (format nil "Trying to perform operation on closed database ~A."
- database)))
+ (error 'sql-connection-error
+ :database database
+ :message "Database is closed."))
(defun signal-no-database-error (database)
(defun signal-no-database-error (database)
- (error 'sql-database-error
- :message (format nil "Not a database: ~A." database)))
+ (error 'sql-database-error
+ :database database
+ :message (format nil "~A is not a database." database)))
;;; CLSQL Extensions
;;; CLSQL Extensions