X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fdebug.impure.lisp;h=b9709f2b5cb792e71363592da45ce7172df1d0a8;hb=22a6702974b7d6ff4e8f2b3b7b5ff446fc632de0;hp=ae18ce5a9bc42275f0766eb3005dc68ef8cb3394;hpb=46dddbfef93ef40af0119978063bf87738dc733d;p=sbcl.git

diff --git a/tests/debug.impure.lisp b/tests/debug.impure.lisp
index ae18ce5..b9709f2 100644
--- a/tests/debug.impure.lisp
+++ b/tests/debug.impure.lisp
@@ -358,7 +358,7 @@
 ;;; on that platform.
 #-(and (or ppc x86) darwin)
 (with-test (:name (trace :encapsulate nil)
-            :fails-on '(or ppc sparc))
+            :fails-on '(or :ppc :sparc :mips))
   (let ((out (with-output-to-string (*trace-output*)
                (trace trace-this :encapsulate nil)
                (assert (eq 'ok (trace-this)))
@@ -368,7 +368,7 @@
 
 #-(and (or ppc x86) darwin)
 (with-test (:name (trace-recursive :encapsulate nil)
-            :fails-on '(or ppc sparc))
+            :fails-on '(or :ppc :sparc :mips))
   (let ((out (with-output-to-string (*trace-output*)
                (trace trace-fact :encapsulate nil)
                (assert (= 120 (trace-fact 5)))