[log4cl-cvs] CVS update: log4cl/layout.lisp

[Marco Baringer]

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"