r9415: fix for cerror

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)
-  (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)
-  (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