Commit 4afac75b authored by pfdietz's avatar pfdietz

unwind-protect's unwind forms are an implicit progn.

parent d6adf7df
......@@ -101,3 +101,15 @@
10
(return-from done 'good)))
good)
;;; Executes all forms of the implicit progn
(deftest unwind-protect.11
(let ((x nil) (y nil))
(values
(block nil
(unwind-protect (return 'a)
(setf y 'c)
(setf x 'b)))
x y))
a b c)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment