[log4cl-cvs] CVS update: log4cl/appender-db.lisp

[Nicolas Lamirault]

Update of /project/log4cl/cvsroot/log4cl
In directory common-lisp.net:/tmp/cvs-serv24352

Modified Files:
	appender-db.lisp 
Log Message:
Correct database type

Date: Fri Mar  5 10:08:00 2004
Author: nlamirault

Index: log4cl/appender-db.lisp
diff -u log4cl/appender-db.lisp:1.1 log4cl/appender-db.lisp:1.2
--- log4cl/appender-db.lisp:1.1	Mon Mar  1 13:05:57 2004
+++ log4cl/appender-db.lisp	Fri Mar  5 10:08:00 2004
@@ -53,7 +53,7 @@
 			 (db-appender-database appender)
 			 (db-appender-username appender)
 			 (db-appender-password appender))
-		   :database-type (cdr assoc (db-appender-type appender) *db-types*)
+		   :database-type (cdr (assoc (db-appender-type appender) *db-types* test #'string-equal))
 		   :if-exists :old)
     (let ((sql (format nil "INSERT INTO ~A (level,message) VALUES ('~A','~A')"
 		       (db-appender-table appender)