Incorrect behavior when combining unwind-protect and with-handler

[gtnoble]

https://github.com/sasagawa888/eisl/blob/b89f39d4d3996013301eef72dc647c126ac0bdac/tests/bug.lsp#L70-L75

(defun foo-unwind ()
  (unwind-protect (foo)
    (print "cleanup")))

Using the interpreter, this is the current output:

> (foo)
"inner handler continued"
"inner handler continued"
"outer handler continued"
NIL
> (foo-unwind)
"outer handler continued"
"outer handler continued"
"outer handler continued"
"cleanup"
NIL

The correct output for foo-unwind should be:

"inner handler continued"
"inner handler continued"
"outer handler continued"
"cleanup"

[gtnoble]

This appears to work properly now.