Changeset 13529
- Timestamp:
- 08/21/11 20:12:11 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
r13528 r13529 3125 3125 (emit-move-from-stack target))) 3126 3126 (t 3127 (l et ((clear-values nil)3128 (tail body))3129 (loop3130 (let ((form (car tail)))3131 (cond ((null (cdr tail))3132 ;; Last form.3133 (when clear-values3134 (emit-clear-values))3135 (compile-form form target representation)3136 (return))3137 (t3138 ;; Not the last form.3139 (compile-form form nil nil)3140 (unless clear-values3141 (unless (single-valued-p form)3142 (setq clear-values t)))))3143 (setq tail (cdr tail)))))))3127 (loop 3128 with clear-values = nil 3129 for tail on body 3130 for form = (car tail) 3131 do (cond 3132 ((null (cdr tail)) 3133 ;; Last form. 3134 (when clear-values 3135 (emit-clear-values)) 3136 (compile-form form target representation) 3137 (return)) 3138 (t 3139 ;; Not the last form. 3140 (compile-form form nil nil) 3141 (unless clear-values 3142 (unless (single-valued-p form) 3143 (setq clear-values t)))))))) 3144 3144 t) 3145 3145
Note: See TracChangeset
for help on using the changeset viewer.