From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sun, 18 Apr 2004 19:40:43 +0000 (+0000)
Subject: r9072: fix variable name
X-Git-Tag: v3.8.6~610
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=ef075568ce95ff8698ab67ac44665a00e54d1b32

r9072: fix variable name
---

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))