;; the presence of the IR1 stepper instrumentation (and
;; is thus again failing now that the instrumentation is
;; no more).
- :fails-on '(or :x86 :x86-64 :alpha :mips))
+ :fails-on '(or :alpha :mips :ppc))
(assert (verify-backtrace
(lambda () (test #'not-optimized))
(list *undefined-function-frame*
(with-test (:name (:throw :no-such-tag)
:fails-on '(or
- (and :x86 :openbsd)
- (and :x86 :sunos)
- (and :x86 :darwin)
- (and :x86-64 :darwin)
(and :sparc :linux)
:alpha
:mips))
;;; on that platform.
#-(and (or ppc x86 x86-64) darwin)
(with-test (:name (trace :encapsulate nil)
- :fails-on '(or :ppc :sparc :mips))
+ :fails-on '(or (and :ppc (not :linux)) :sparc :mips))
(let ((out (with-output-to-string (*trace-output*)
(trace trace-this :encapsulate nil)
(assert (eq 'ok (trace-this)))
#-(and (or ppc x86 x86-64) darwin)
(with-test (:name (trace-recursive :encapsulate nil)
- :fails-on '(or :ppc :sparc :mips))
+ :fails-on '(or (and :ppc (not :linux)) :sparc :mips))
(let ((out (with-output-to-string (*trace-output*)
(trace trace-fact :encapsulate nil)
(assert (= 120 (trace-fact 5)))