From ef075568ce95ff8698ab67ac44665a00e54d1b32 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 18 Apr 2004 19:40:43 +0000 Subject: [PATCH] r9072: fix variable name --- base/database.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.34.1