(assert (verify-backtrace
(lambda () (test #'optimized))
(list *undefined-function-frame*
(assert (verify-backtrace
(lambda () (test #'optimized))
(list *undefined-function-frame*
(declare (optimize (speed 1) (debug 2))) ; no tail call elimination
(funcall fun)))
(with-test (:name (:divide-by-zero :bug-346)
(declare (optimize (speed 1) (debug 2))) ; no tail call elimination
(funcall fun)))
(with-test (:name (:divide-by-zero :bug-346)
(assert (verify-backtrace (lambda () (test #'optimized))
(list '(/ 42 &rest)
(list '(flet test) #'optimized)))))
(with-test (:name (:divide-by-zero :bug-356)
(assert (verify-backtrace (lambda () (test #'optimized))
(list '(/ 42 &rest)
(list '(flet test) #'optimized)))))
(with-test (:name (:divide-by-zero :bug-356)
;;; FIXME: This test really should be broken into smaller pieces
(with-test (:name (:backtrace :misc)
;;; FIXME: This test really should be broken into smaller pieces
(with-test (:name (:backtrace :misc)