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

Aesthetics.

parent 7ddc5e3c
......@@ -3124,23 +3124,23 @@ given a specific common representation.")
(emit-push-nil)
(emit-move-from-stack target)))
(t
(let ((clear-values nil)
(tail body))
(loop
(let ((form (car tail)))
(cond ((null (cdr tail))
;; Last form.
(when clear-values
(emit-clear-values))
(compile-form form target representation)
(return))
(t
;; Not the last form.
(compile-form form nil nil)
(unless clear-values
(unless (single-valued-p form)
(setq clear-values t)))))
(setq tail (cdr tail)))))))
(loop
with clear-values = nil
for tail on body
for form = (car tail)
do (cond
((null (cdr tail))
;; Last form.
(when clear-values
(emit-clear-values))
(compile-form form target representation)
(return))
(t
;; Not the last form.
(compile-form form nil nil)
(unless clear-values
(unless (single-valued-p form)
(setq clear-values t))))))))
t)
(defun restore-dynamic-environment (register)
......
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