-
-(with-test (:name :bug-881445
- :skipped-on '(not :x86-64))
- (let ((x (make-array (1- (expt 2 32)) :element-type '(unsigned-byte 8))))
- (assert (> (sb-kernel:dynamic-usage) (length x)))
- ;; prevent compiler from getting too smart...
- (eval x)
- t))