Ignore:
Timestamp:
12/28/09 13:00:31 (11 years ago)
Author:
ehuelsmann
Message:

Implement note 1 from r12306: function preloading for macros.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

    r12306 r12310  
    225225                             `(put ',name 'macroexpand-macro
    226226                                   (make-macro ',name
    227                                                (load-compiled-function
     227                                               (proxy-preloaded-function
     228                                                '(macro-function ,name)
    228229                                                ,(file-namestring classfile))))
    229230                             `(fset ',name
    230231                                    (make-macro ',name
    231                                                 (load-compiled-function
     232                                                (proxy-preloaded-function
     233                                                 '(macro-function ,name)
    232234                                                 ,(file-namestring classfile)))
    233235                                    ,*source-position*
Note: See TracChangeset for help on using the changeset viewer.