r9408: 19 May 2004 Kevin Rosenberg (kevin@rosenberg.net)

[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."
-                   'clsql-simple-error
-                   :format-control "There exists ~A database called ~A."
-                   :format-arguments
-                   (list (if (zerop count) "no" "more than one")
-                         database)))))))
+                   'sql-database-error
+                   :message
+                  (format nil "There exists ~A database called ~A."
+                          (if (zerop count) "no" "more than one")
+                          database)))))))
 
 
 (defun connect (connection-spec