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)