* (:throw :no-such-tag)
Does not fail.
* (:undefined-function :bug-346)
Fails.
I'll investigate in the future.
(funcall fun)))
(with-test (:name (:undefined-function :bug-346)
- :fails-on '(or :alpha)) ; bug 346
+ :fails-on '(or :alpha (and :x86-64 :freebsd))) ; bug 346
(assert (verify-backtrace
(lambda () (test #'optimized))
(list *undefined-function-frame*
(with-test (:name (:throw :no-such-tag)
:fails-on '(or
- (and :x86 (or :linux :freebsd sunos))
+ (and :x86 (or :linux sunos))
:alpha
:mips))
(progn
;;; 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".)
-"1.0.4.28"
+"1.0.4.29"