;;; Check that non-local control transfers restore the stack
;;; exhaustion checking after unwinding -- and that previous test
;;; didn't break it.
(with-test (:name (:exhaust :non-local-control) :broken-on '(and :sunos :x86-64))
(let ((exhaust-count 0)
;;; Check that non-local control transfers restore the stack
;;; exhaustion checking after unwinding -- and that previous test
;;; didn't break it.
(with-test (:name (:exhaust :non-local-control) :broken-on '(and :sunos :x86-64))
(let ((exhaust-count 0)