;;; 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)))
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.12.20"
+"0.9.12.21"