Changeset 14069
- Timestamp:
- 08/11/12 09:43:16 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/precompiler.lisp
r14068 r14069 444 444 (let ((end-test-form (car end-form)) 445 445 (result-forms (cdr end-form))) 446 (list* end-test-form(mapcar #'precompile1 result-forms))))446 (list* (precompile1 end-test-form) (mapcar #'precompile1 result-forms)))) 447 447 448 448 (defun precompile-do/do* (form)
Note: See TracChangeset
for help on using the changeset viewer.