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

[Erik Huelsmann]

Author: ehuelsmann
Date: Thu Nov  5 15:01:38 2009
New Revision: 12248

Log:
Fix macroexpansion bug in the precompiler.

Reported by: szergling at gmail


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	(original)
+++ trunk/abcl/src/org/armedbear/lisp/precompiler.lisp	Thu Nov  5 15:01:38 2009
@@ -894,7 +894,7 @@
          (when (and (consp form)
                     (symbolp (%car form))
                     (special-operator-p (%car form)))
-           (return-from expand-macro form)))
+           (return-from expand-macro (values form exp))))
        (multiple-value-bind (result expanded)
            (macroexpand-1 form *precompile-env*)
          (unless expanded