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

Improved readability.

parent 2bf7079c
......@@ -3654,8 +3654,8 @@ given a specific common representation.")
(t
(compile-form subform nil nil)
(unless must-clear-values
(unless (single-valued-p subform)
(setf must-clear-values t))))))
(setf must-clear-values
(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