(defsetf #6=#:foo (&optional (x (return-from #6#))) ()))))
(dolist (form forms)
(assert (nth-value 2 (compile nil `(lambda () ,form))))))
(defsetf #6=#:foo (&optional (x (return-from #6#))) ()))))
(dolist (form forms)
(assert (nth-value 2 (compile nil `(lambda () ,form))))))