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

diff --git a/src/code/time.lisp b/src/code/time.lisp
index e467daf..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)
@@ -286,6 +287,12 @@
 
 ;;;; TIME
 
+(defvar *gc-run-time* 0
+  #!+sb-doc
+  "the total CPU time spent doing garbage collection (as reported by
+   GET-INTERNAL-RUN-TIME)")
+(declaim (type index *gc-run-time*))
+
 (defmacro time (form)
   #!+sb-doc
   "Execute FORM and print timing information on *TRACE-OUTPUT*."