Changeset 13527
- Timestamp:
- 08/21/11 18:58:07 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
r13523 r13527 3655 3655 (compile-form subform nil nil) 3656 3656 (unless must-clear-values 3657 ( unless (single-valued-p subform)3658 (setf must-clear-values t))))))3657 (setf must-clear-values 3658 (single-valued-p subform)))))) 3659 3659 (label END-BLOCK) 3660 3660 (emit 'goto EXIT)
Note: See TracChangeset
for help on using the changeset viewer.