X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=base%2Fdatabase.lisp;fp=base%2Fdatabase.lisp;h=1e64fb3588d388c814fc9ad7514ea69f9c2de523;hb=ef075568ce95ff8698ab67ac44665a00e54d1b32;hp=953c40a3bc51779d74b4375a2292f04ea59c97f5;hpb=df34096e3238ed4785b7e729c31e7560cce8195f;p=clsql.git

diff --git a/base/database.lisp b/base/database.lisp
index 953c40a..1e64fb3 100644
--- 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))