Changeset 13048


Ignore:
Timestamp:
11/25/10 14:10:33 (11 years ago)
Author:
ehuelsmann
Message:

Backport DEFUN expansion fixes after loading the precompiler.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/0.23.x/abcl/src/org/armedbear/lisp/precompiler.lisp

    r12804 r13048  
    11601160                  ;; This function is also triggered by MACROEXPAND, though
    11611161                  jvm::*file-compilation*)
    1162              `(fset ',name ,lambda-expression))
     1162             `(progn
     1163                (fset ',name ,lambda-expression)
     1164                ',name))
    11631165            (t
    11641166             (when (and env (empty-environment-p env))
     
    11661168             (when (null env)
    11671169               (setf lambda-expression (precompiler:precompile-form lambda-expression nil)))
    1168              `(progn
    1169                 (%defun ',name ,lambda-expression)
     1170             `(prog1
     1171                  (%defun ',name ,lambda-expression)
    11701172                ,@(when doc
    11711173                   `((%set-documentation ',name 'function ,doc)))))))))
Note: See TracChangeset for help on using the changeset viewer.