X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=base%2Fdatabase.lisp;h=1e64fb3588d388c814fc9ad7514ea69f9c2de523;hb=3e67ee0887558908069b0d1f2a72abfae3725799;hp=953c40a3bc51779d74b4375a2292f04ea59c97f5;hpb=d2df77ea1494c4801d071c8f0e5f7886fd018da9;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))