X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftime.lisp;h=95fe90b95c1267b47499dcd6b17f64998ac47d6f;hb=ec066d84dd46611428943d152749b3891a3f4b7c;hp=667a0ce42773a2ce61ce442b0c5d71debfd631da;hpb=2912f5f6c2acb2da3b9fcc0f5afd1ca89782a9f8;p=sbcl.git

diff --git a/src/code/time.lisp b/src/code/time.lisp
index 667a0ce..95fe90b 100644
--- a/src/code/time.lisp
+++ b/src/code/time.lisp
@@ -162,6 +162,7 @@
     (if (< unix-time (ash 1 31))
 	unix-time
 	(multiple-value-bind (year offset) (years-since-mar-2000 utime)
+	  (declare (ignore year))
 	  (+  +mar-1-2035+  (- unix-to-universal-time)  offset)))))
   
 (defun decode-universal-time (universal-time &optional time-zone)