From 00db38f0f374ef2b9440979db71997801cceb4e0 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 20 May 2004 12:31:19 +0000 Subject: [PATCH] r9415: fix for cerror --- sql/conditions.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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 -- 2.34.1