X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fgc.lisp;h=98c4e4c8594669c257bf93f6707e2f2e134fefee;hb=15d6e7c9a2c3234f95dfe278046fa2fee1b0c007;hp=db65ac741ebeea279ca085e77949a79834b63d5a;hpb=1998ef5334d3209f0fb511788d2c06fe04832d43;p=sbcl.git

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index db65ac7..98c4e4c 100644
--- a/src/code/gc.lisp
+++ b/src/code/gc.lisp
@@ -120,15 +120,10 @@
 ;;; allocated and never freed.)
 (declaim (type unsigned-byte *n-bytes-freed-or-purified*))
 (defvar *n-bytes-freed-or-purified* 0)
-(push (lambda ()
-	(setf *n-bytes-freed-or-purified* 0))
-      ;; KLUDGE: It's probably not quite safely right either to do
-      ;; this in *BEFORE-SAVE-INITIALIZATIONS* (since consing, or even
-      ;; worse, something which depended on (GET-BYTES-CONSED), might
-      ;; happen after that) or in *AFTER-SAVE-INITIALIZATIONS*. But
-      ;; it's probably not a big problem, and there seems to be no
-      ;; other obvious time to do it. -- WHN 2001-07-30
-      *after-save-initializations*)
+(defun gc-reinit ()
+  (gc-on)
+  (gc)
+  (setf *n-bytes-freed-or-purified* 0))
 
 (declaim (ftype (function () unsigned-byte) get-bytes-consed))
 (defun get-bytes-consed ()