;;; 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)))
#-(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)))