blob: bdf9c8e53f107acce6b722941b6bbfc87d26f6fb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
--- gc.lisp 28 Aug 2003 15:32:28 -0000 1.50
+++ gc.lisp 28 Sep 2003 14:44:45 -0000
@@ -244,16 +244,18 @@
(let ((*already-in-gc* t))
(without-interrupts
(gc-stop-the-world)
+ #+nil
(dolist (h *before-gc-hooks*)
(carefully-funcall h))
(collect-garbage gen)
(incf *n-bytes-freed-or-purified*
(max 0 (- pre-gc-dynamic-usage (dynamic-usage))))
(setf *need-to-collect-garbage* nil)
- (dolist (h *after-gc-hooks*)
- (carefully-funcall h))
+
(gc-start-the-world)))
- (scrub-control-stack)))
+ (scrub-control-stack))
+ (dolist (h *after-gc-hooks*)
+ (carefully-funcall h)))
(values))
|
GitWeb
