(when (probe-file test)
(delete-file test)))))
-;; ROOM used to bail out when there were object with bignum bytes in
-;; them. Test by Sidney Markowitz.
-(defparameter *large-array*
- (make-array (- (truncate most-positive-fixnum 4) 2)))
-(room)
-
;;; success