From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Thu, 20 May 2004 12:31:19 +0000 (+0000)
Subject: r9415: fix for cerror
X-Git-Tag: v3.8.6~423
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=00db38f0f374ef2b9440979db71997801cceb4e0

r9415: fix for cerror
---

diff --git a/sql/conditions.lisp b/sql/conditions.lisp
index d708c8a..aee96d8 100644
--- 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