(defun test ()
  (block foo
    (unwind-protect (return-from test 42)
      (return-from foo 24))))