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

diff --git a/src/code/time.lisp b/src/code/time.lisp
index e467daf..667a0ce 100644
--- a/src/code/time.lisp
+++ b/src/code/time.lisp
@@ -286,6 +286,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*."