X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=tests%2Fdebug.impure.lisp;h=01ab29a242ac4f1c538f62bdee78a864c19228c0;hb=3f47602cbbfdb31c59252008b5f2dbe91ca43d7f;hp=a4c6114d3418b95959922a3b207c3d7a3113f1ed;hpb=9b16f0936e39cc6f560957e94ef2cf0f69b1e5fc;p=sbcl.git

diff --git a/tests/debug.impure.lisp b/tests/debug.impure.lisp
index a4c6114..01ab29a 100644
--- a/tests/debug.impure.lisp
+++ b/tests/debug.impure.lisp
@@ -480,8 +480,12 @@
     (load (compile-file "bug-414.lisp"))
     (disassemble 'bug-414)))
 
-(with-test (:name :bug-310175)
-  (let ((dx-arg (cons t t)))
+(with-test (:name :bug-310175 :fails-on '(not :stack-allocatable-lists))
+  ;; KLUDGE: Not all DX-enabled platforms DX CONS, and the compiler
+  ;; transforms two-arg-LIST* (and one-arg-LIST) to CONS.  Therefore,
+  ;; use two-arg-LIST, which should get through to VOP LIST, and thus
+  ;; stack-allocate on a predictable set of machines.
+  (let ((dx-arg (list t t)))
     (declare (dynamic-extent dx-arg))
     (flet ((dx-arg-backtrace (x)
              (declare (optimize (debug 2)))