;;;; 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.
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.
(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*)
;; 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*
#|
#'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