(test (fun)
(declare (optimize (speed 1) (debug 2))) ; no tail call elimination
(funcall fun)))
+ #-x86 ; <- known bug (?): fails for me on 0.8.17.31/Linux/x86 -- WHN 2004-12-27
(dolist (frame '(#-x86 "undefined function" ; bug 353
"FLET COMMON-LISP-USER::TEST"))
(assert (verify-backtrace (lambda () (test #'optimized)) frame