0.9.18.6: Win32 get-internal-real-time improved

[sbcl.git] / src / code / gc.lisp

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index 1a5abc7..7945c27 100644 (file)
--- a/src/code/gc.lisp
+++ b/src/code/gc.lisp
@@ -121,6 +121,7 @@
   (gc-on)
   (gc)
   (setf *n-bytes-freed-or-purified* 0
+        *gc-run-time* 0
         ;; See comment in interr.lisp
         *heap-exhausted-error-condition* (make-condition 'heap-exhausted-error)))