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

diff --git a/tests/debug.impure.lisp b/tests/debug.impure.lisp
index fa1e64d..0377334 100644
--- a/tests/debug.impure.lisp
+++ b/tests/debug.impure.lisp
@@ -190,7 +190,7 @@
                                     (list '(flet test) #'not-optimized))))))
 
 (with-test (:name (:throw :no-such-tag)
-            :fails-on '(or (and :x86 :linux) :alpha :mips))
+            :fails-on '(or (and :x86 :linux) (and :x86 :freebsd) :alpha :mips))
   (progn
     (defun throw-test ()
       (throw 'no-such-tag t))
@@ -348,13 +348,15 @@
 ;;; This is not a WITH-TEST :FAILS-ON PPC DARWIN since there are
 ;;; suspicions that the breakpoint trace might corrupt the whole image
 ;;; on that platform.
-#-(and ppc darwin)
-(let ((out (with-output-to-string (*trace-output*)
-             (trace trace-this :encapsulate nil)
-             (assert (eq 'ok (trace-this)))
-             (untrace))))
-  (assert (search "TRACE-THIS" out))
-  (assert (search "returned OK" out)))
+#-(and (or ppc x86) darwin)
+(with-test (:name (trace :encapsulate nil)
+            :fails-on '(or ppc sparc))
+  (let ((out (with-output-to-string (*trace-output*)
+               (trace trace-this :encapsulate nil)
+               (assert (eq 'ok (trace-this)))
+               (untrace))))
+    (assert (search "TRACE-THIS" out))
+    (assert (search "returned OK" out))))
 
 ;;;; test infinite error protection