Changeset 14099


Ignore:
Timestamp:
08/17/12 05:54:19 (9 years ago)
Author:
ehuelsmann
Message:

Make the autoloader smarter: make sure exported symbols are exported
again in the autoloader.

File:
1 edited

Legend:

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

    r14036 r14099  
    194194        (dolist (package '(:format :sequence :loop :mop :xp :precompiler
    195195                           :profiler :java :jvm :extensions :threads
    196                            :toplevel :system :cl))
     196                           :top-level :system :cl))
    197197          ;; Limit the set of packages:
    198198          ;;  During incremental compilation, the packages GRAY-STREAMS
    199199          ;;    and ASDF are not being created. Nor are these packages
    200200          ;;    vital to the correct operation of the base system.
     201
     202          (let ((*package* (find-package package))
     203                externals)
     204            (do-external-symbols (sym package
     205                                      externals)
     206              (when (eq (symbol-package sym)
     207                        *package*)
     208                (push sym externals)))
     209            (when externals
     210              (write-line ";; EXPORTS" f)
     211              (write `(cl:in-package ,package) :stream f)
     212              (terpri f)
     213              (write `(cl:export ',externals) :stream f)
     214              (terpri f)))
     215
     216
     217          (terpri f)
    201218          (write-line ";; FUNCTIONS" f)
    202219          (terpri f)
    203220          (write-package-filesets f package 'ext:autoload
    204221                                  (combos-to-fileset-symbols funcs))
     222          (terpri f)
    205223          (write-line ";; MACROS" f)
    206224          (terpri f)
Note: See TracChangeset for help on using the changeset viewer.