0.7.4.4:

[sbcl.git] / tests / stress-gc.lisp

diff --git a/tests/stress-gc.lisp b/tests/stress-gc.lisp
index 76cd767..f791ddd 100644 (file)
--- a/tests/stress-gc.lisp
+++ b/tests/stress-gc.lisp
@@ -1,5 +1,16 @@
 ;;;; a stress test for the garbage collector
 
+;;;; This software is part of the SBCL system. See the README file for
+;;;; more information.
+;;;;
+;;;; While most of SBCL is derived from the CMU CL system, the test
+;;;; files (like this one) were written from scratch after the fork
+;;;; from CMU CL.
+;;;; 
+;;;; This software is in the public domain and is provided with
+;;;; absolutely no warranty. See the COPYING and CREDITS files for
+;;;; more information.
+
 ;;;; TO DO:
 ;;;;   * Add conses:
 ;;;;     ** Make REPR-CONS.
@@ -25,7 +36,7 @@
     result))
 
 (defun stress-gc (n-passes &optional (size 3000))
-  (format t "~&beginning STRESS-GC N-PASSES=~D SIZE=~D~%" n-passes size)
+  (format t "~&beginning STRESS-GC N-PASSES=~W SIZE=~W~%" n-passes size)
   (let ((generations (make-array (isqrt size) :initial-element nil))
        ;; We allocate on the order of MOST-POSITIVE-FIXNUM things
        ;; before doing a full GC.
@@ -58,7 +69,7 @@
          (assert-generation i-generation generation-i))
        (setf (aref generations i-generation)
              generation-i))))
-  (format t "~&done with STRESS-GC N-PASSES=~D SIZE=~D~%" n-passes size))
+  (format t "~&done with STRESS-GC N-PASSES=~W SIZE=~W~%" n-passes size))
 
 (defvar *expected*)
 (defvar *got*)
@@ -73,7 +84,7 @@
        ;; wimpy to inspect lexical variables.
        (let ((*expected* (funcall repr index-within-generation))
              (*got* element-of-generation))
-         (error "bad element #~D in generation #~D:~%  expected ~S~%  from ~S,~%  got ~S"
+         (error "bad element #~W in generation #~D:~%  expected ~S~%  from ~S,~%  got ~S"
                 index-within-generation
                 index-of-generation
                 *expected*
@@ -236,8 +247,6 @@
 #|
              #'repr-complex-array
              ;; TO DO: #'repr-funcallable-instance
-             ;; TO DO: #'repr-byte-code-function
-             ;; TO DO: #'repr-byte-code-closure
 |#
              #'repr-symbol
              #'repr-base-char