projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.11.19:
[sbcl.git]
/
tests
/
debug.impure.lisp
diff --git
a/tests/debug.impure.lisp
b/tests/debug.impure.lisp
index
0377334
..
bd9526d
100644
(file)
--- 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)
(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))
(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)
;;; 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)))
(macrolet ((with-details (bool &body body)
`(let ((sb-debug:*show-entry-point-details* ,bool))
,@body)))