Commit 543b1a40 authored by ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f's avatar ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files

Follow up to r13527 fixes TAGBODY.3 and TAGBODY.4 regressions.

parent b3fbb4cb
......@@ -3647,7 +3647,7 @@ given a specific common representation.")
(compile-form subform nil nil)
(unless must-clear-values
(setf must-clear-values
(single-valued-p subform))))))
(not (single-valued-p subform)))))))
(label END-BLOCK)
(emit 'goto EXIT)
(when (tagbody-non-local-go-p block)
......
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