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

diff --git a/src/code/time.lisp b/src/code/time.lisp
index 667a0ce..e4e023b 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)
@@ -361,7 +362,7 @@
 		 ~S second~:P of system run time~%  ~
 ~@[                 [Run times include ~S second~:P GC run time.]~%  ~]~
 		 ~S page fault~:P and~%  ~
-		 ~S bytes consed.~%"
+		 ~:D bytes consed.~%"
 		(max (/ (- new-real-time old-real-time)
 			(float sb!xc:internal-time-units-per-second))
 		     0.0)