[armedbear-cvs] r14069 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sat Aug 11 02:43:16 2012
New Revision: 14069

Log:
Fix MACROLET expansion error.

Reported by Theam Yong Chew.
Fix by me.

Modified:
   trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/precompiler.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/precompiler.lisp	Thu Aug  9 11:40:46 2012	(r14068)
+++ trunk/abcl/src/org/armedbear/lisp/precompiler.lisp	Sat Aug 11 02:43:16 2012	(r14069)
@@ -443,7 +443,7 @@
 (defun precompile-do/do*-end-form (end-form)
   (let ((end-test-form (car end-form))
         (result-forms (cdr end-form)))
-    (list* end-test-form (mapcar #'precompile1 result-forms))))
+    (list* (precompile1 end-test-form) (mapcar #'precompile1 result-forms))))
 
 (defun precompile-do/do* (form)
   (if *in-jvm-compile*