Add :application-type parameter for save-lisp-and-die on Windows.
[sbcl.git] / tests / static-alloc.impure.lisp
1
2 (dolist (type '(single-float double-float (unsigned-byte 8)
3                 (unsigned-byte 32) (signed-byte 32)))
4   (let* ((vectors (loop
5                      for i upto 128
6                      collect (sb-int:make-static-vector
7                               256 :element-type type)))
8          (saps (mapcar #'sb-sys:vector-sap vectors)))
9     (gc :full t)
10     (assert (every #'sb-sys:sap=
11                    saps
12                    (mapcar #'sb-sys:vector-sap vectors)))))
13