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 1024
   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
  14 (quit :unix-status 104)