Changeset 13032 for trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

Timestamp:

11/20/10 10:02:27 (13 years ago)

Author:

astalla

Message:

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.

File:

• trunk/abcl/src/org/armedbear/lisp/precompiler.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

@@ -1166 +1166 @@
              (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)))))))))