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

[Alessio Stalla]

Author: astalla
Date: Sat Nov 20 05:02:27 2010
New Revision: 13032

Log:
Fix DEFUN as redefined by the precompiler: it incorrectly returned the function's docstring instead of its name when the docstring was present. Reported by Pascal Bourguignon and Erik Huelsmann on the mailing list.


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	Sat Nov 20 05:02:27 2010
@@ -1165,8 +1165,8 @@
                (setf env nil))
              (when (null env)
                (setf lambda-expression (precompiler:precompile-form lambda-expression nil)))
-             `(progn
-                (%defun ',name ,lambda-expression)
+             `(prog1
+                  (%defun ',name ,lambda-expression)
                 ,@(when doc
                    `((%set-documentation ',name 'function ,doc)))))))))