X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fdebug.impure.lisp;h=bd9526d93022d85db799ded73ea4d2cecbb23c0c;hb=f35f14479a64dd97f93d2d91dc154bdc141d6842;hp=03773346a4e15bf828c2274ec20a6c81ea03e788;hpb=6d94caa24f68a3df5ac73e7072cea3e62e9d87f5;p=sbcl.git

diff --git a/tests/debug.impure.lisp b/tests/debug.impure.lisp
index 0377334..bd9526d 100644
--- a/tests/debug.impure.lisp
+++ b/tests/debug.impure.lisp
@@ -190,7 +190,10 @@
                                     (list '(flet test) #'not-optimized))))))
 
 (with-test (:name (:throw :no-such-tag)
-            :fails-on '(or (and :x86 :linux) (and :x86 :freebsd) :alpha :mips))
+            :fails-on '(or
+                        (and :x86 (or :linux :freebsd sunos))
+                        :alpha
+                        :mips))
   (progn
     (defun throw-test ()
       (throw 'no-such-tag t))
@@ -233,7 +236,7 @@
 
 ;;; FIXME: This test really should be broken into smaller pieces
 (with-test (:name (:backtrace :misc)
-            :fails-on '(and :x86 :linux))
+            :fails-on '(and :x86 (or :linux :sunos)))
   (macrolet ((with-details (bool &body body)
                `(let ((sb-debug:*show-entry-point-details* ,bool))
                  ,@body)))