Changeset 13032


Ignore:
Timestamp:
11/20/10 10:02:27 (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

    r12804 r13032  
    11661166             (when (null env)
    11671167               (setf lambda-expression (precompiler:precompile-form lambda-expression nil)))
    1168              `(progn
    1169                 (%defun ',name ,lambda-expression)
     1168             `(prog1
     1169                  (%defun ',name ,lambda-expression)
    11701170                ,@(when doc
    11711171                   `((%set-documentation ',name 'function ,doc)))))))))
Note: See TracChangeset for help on using the changeset viewer.