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

[Alessio Stalla]

Author: astalla
Date: Tue Nov 23 15:02:06 2010
New Revision: 13045

Log:
Fix the macroexpansion of DEFUN in compiled files to return the function name instead of the function object. Completes the change introduced with r13032.


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	Tue Nov 23 15:02:06 2010
@@ -1159,7 +1159,9 @@
                   ;; Both COMPILE and COMPILE-FILE bind this variable.
                   ;; This function is also triggered by MACROEXPAND, though
                   jvm::*file-compilation*)
-             `(fset ',name ,lambda-expression))
+             `(progn
+                (fset ',name ,lambda-expression)
+                ',name))
             (t
              (when (and env (empty-environment-p env))
                (setf env nil))