(with-test (:name (trace-recursive :encapsulate nil)
:fails-on '(or :ppc :sparc :mips))
(let ((out (with-output-to-string (*trace-output*)
(with-test (:name (trace-recursive :encapsulate nil)
:fails-on '(or :ppc :sparc :mips))
(let ((out (with-output-to-string (*trace-output*)