Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv4154/tests
Modified Files:
interface.pure.lisp
Log Message:
0.8.7.14:
Bandage to gencgc: it's not good, but at least it works, kind of
... restore gc_alloc_generation == 0 test in gc_find_freeish_pages
... add a simple test case to try to prevent this happening
again
Index: interface.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/interface.pure.lisp,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- interface.pure.lisp 8 Jan 2004 16:26:33 -0000 1.28
+++ interface.pure.lisp 14 Jan 2004 11:07:38 -0000 1.29
@@ -132,3 +132,9 @@
;;; DISASSEMBLE shouldn't fail on purified functions
(disassemble 'cl:+)
(disassemble 'sb-ext:run-program)
+
+;;; minimal test of GC: see stress-gc.{sh,lisp} for a more
+;;; comprehensive test.
+(loop repeat 2
+ do (compile nil '(lambda (x) x))
+ do (sb-ext:gc :full t))
|