Changeset 14069


Ignore:
Timestamp:
08/11/12 09:43:16 (8 years ago)
Author:
ehuelsmann
Message:

Fix MACROLET expansion error.

Reported by Theam Yong Chew.
Fix by me.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

    r14068 r14069  
    444444  (let ((end-test-form (car end-form))
    445445        (result-forms (cdr end-form)))
    446     (list* end-test-form (mapcar #'precompile1 result-forms))))
     446    (list* (precompile1 end-test-form) (mapcar #'precompile1 result-forms))))
    447447
    448448(defun precompile-do/do* (form)
Note: See TracChangeset for help on using the changeset viewer.