common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Skip a test maybe

Browse source
This commit is contained in:
Douglas Katzman 2024-04-10 12:23:36 -04:00
parent af7591baca
commit 105eba474a
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tests/static-alloc.impure.lisp
View file

@ -1,4 +1,5 @@
#-relocatable-static-space
(dolist (type '(single-float double-float (unsigned-byte 8)
(unsigned-byte 32) (signed-byte 32)
base-char character))
@ -18,6 +19,7 @@
;;; Because PRIMITIVE-OBJECT-SIZE always gives you the _CORRECT_ answer
;;; for the object, not the amount of space the allocator took,
;;; and this test needs to assert correctness of the allocator.
#-relocatable-static-space
(dolist (type '(base-char character))
(loop for i from 1 to 20
do (let* ((before sb-vm:*static-space-free-pointer*)