From: Alastair Bridgewater Date: Thu, 25 Apr 2013 19:02:12 +0000 (-0400) Subject: tests/dynamic-extent.impure.lisp: One of the dx-vector test terms was misplaced. X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a5fbc248b7513f19a31e58a591a27868f30354ef;p=sbcl.git tests/dynamic-extent.impure.lisp: One of the dx-vector test terms was misplaced. * MAKE-ARRAY-ON-STACK-1 tries to create a specialized vector, but was being called from a test that only claims to handle vectors suitable for a precisely-scavenged control stack. * Fix, by moving the call to the next test, which is for specialized vectors (and thus only runs on conservative-stack systems). --- diff --git a/tests/dynamic-extent.impure.lisp b/tests/dynamic-extent.impure.lisp index ee1244b..5111404 100644 --- a/tests/dynamic-extent.impure.lisp +++ b/tests/dynamic-extent.impure.lisp @@ -585,7 +585,6 @@ (with-test (:name (:no-consing :dx-vectors) :skipped-on '(not :stack-allocatable-vectors)) (assert-no-consing (force-make-array-on-stack 128)) - (assert-no-consing (make-array-on-stack-1)) (assert-no-consing (make-array-on-stack-2 5 '(1 2.0 3 4.0 5))) (assert-no-consing (make-array-on-stack-3 9 8 7)) (assert-no-consing (make-array-on-stack-4)) @@ -596,6 +595,7 @@ :fails-on :x86 :skipped-on `(not (and :stack-allocatable-vectors :c-stack-is-control-stack))) + (assert-no-consing (make-array-on-stack-1)) (assert-no-consing (make-array-on-stack-6)) (assert-no-consing (make-array-on-stack-7)) (assert-no-consing (make-array-on-stack-8))