r10547: fix warning

[clsql.git] / sql / database.lisp

diff --git a/sql/database.lisp b/sql/database.lisp
index 706ccbf7cc1c323448a2c8732ddf8e4a2647d6a9..285d3e269b237e4d6817854465f7d01cfe78b035 100644 (file)
--- a/sql/database.lisp
+++ b/sql/database.lisp
@@ -63,7 +63,9 @@ error is signalled."
                    :message
                   (format nil "There exists ~A database called ~A."
                           (if (zerop count) "no" "more than one")
-                          database)))))))
+                          database)))))
+    (null
+     (error "A database must be specified rather than NIL."))))
 
 
 (defun connect (connection-spec