r9072: fix variable name

diff --git a/base/database.lisp b/base/database.lisp
index 953c40a3bc51779d74b4375a2292f04ea59c97f5..1e64fb3588d388c814fc9ad7514ea69f9c2de523 100644 (file)
--- a/base/database.lisp
+++ b/base/database.lisp
@@ -181,7 +181,7 @@ if the database connection has been lost."
              ((or string list)
               (let ((db (find-database database :errorp nil)))
                 (when (null db)
-                  (if (and database errorp)
+                  (if (and database error)
                       (error 'clsql-generic-error
                              :message
                              (format nil "Unable to find database with connection-spec ~A." database))