projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.35.12: Minor cleanup in %TARGET-DEFSTRUCT.
[sbcl.git]
/
tests
/
gc.impure.lisp
diff --git
a/tests/gc.impure.lisp
b/tests/gc.impure.lisp
index
07e3d98
..
c00438b
100644
(file)
--- a/
tests/gc.impure.lisp
+++ b/
tests/gc.impure.lisp
@@
-31,15
+31,7
@@
(let ((gc-happend nil))
(push (lambda () (setq gc-happend t)) sb-ext:*after-gc-hooks*)
(let ((gc-happend nil))
(push (lambda () (setq gc-happend t)) sb-ext:*after-gc-hooks*)
- ;; check GC-{ON,OFF} works and gc is deferred
- (gc-off)
- (gc)
- (assert (not gc-happend))
- (gc-on)
- (assert gc-happend)
-
;; check that WITHOUT-GCING defers explicit gc
;; check that WITHOUT-GCING defers explicit gc
- (setq gc-happend nil)
(sb-sys:without-gcing
(gc)
(assert (not gc-happend)))
(sb-sys:without-gcing
(gc)
(assert (not gc-happend)))
@@
-58,15
+50,5
@@
(assert (not gc-happend)))
;; give the hook time to run
(sleep 1)
(assert (not gc-happend)))
;; give the hook time to run
(sleep 1)
- (assert gc-happend))
-
- ;; check GC-ON works even in a WITHOUT-GCING
- (setq gc-happend nil)
- (sb-sys:without-gcing
- (gc)
- (assert (not gc-happend))
- (gc-on)
- (assert gc-happend)
- (setq gc-happend nil))
- (assert (not gc-happend)))
+ (assert gc-happend)))