[armedbear-cvs] r12249 - branches/0.17.x/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Thu Nov  5 15:08:17 2009
New Revision: 12249

Log:
Backport precompiler fix.

Modified:
   branches/0.17.x/abcl/src/org/armedbear/lisp/precompiler.lisp

Modified: branches/0.17.x/abcl/src/org/armedbear/lisp/precompiler.lisp
==============================================================================
--- branches/0.17.x/abcl/src/org/armedbear/lisp/precompiler.lisp	(original)
+++ branches/0.17.x/abcl/src/org/armedbear/lisp/precompiler.lisp	Thu Nov  5 15:08:17 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