1 Mar
2004
1 Mar
'04
7:35 p.m.
Update of /project/log4cl/cvsroot/log4cl In directory common-lisp.net:/tmp/cvs-serv6720
Modified Files: layout.lisp Log Message: Don't bind unused values
Date: Mon Mar 1 13:35:38 2004 Author: mbaringer
Index: log4cl/layout.lisp diff -u log4cl/layout.lisp:1.2 log4cl/layout.lisp:1.3 --- log4cl/layout.lisp:1.2 Mon Mar 1 13:07:36 2004 +++ log4cl/layout.lisp Mon Mar 1 13:35:38 2004 @@ -178,7 +178,7 @@ (defun get-time () "Get current time" (multiple-value-bind - (second minute hour date month year day-of-week dst-p tz) + (second minute hour date month year) (get-decoded-time) (let ((date (format nil "~d/~2,'0d/~d ~2,'0d:~2,'0d:~2,'0d"