Use recently-added utility function.
[sbcl.git] / tests / merge-lambdas.lisp
blob90f1080d6544e81c5a899923abf9ea61f019aead
1 (labels ((a (x)))
2 (error 'program-error)
3 (a (catch 'c)))