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