Changeset 14099

Timestamp:

08/17/12 05:54:19 (8 years ago)

Author:

ehuelsmann

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/compile-system.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compile-system.lisp

@@ -194 +194 @@
         (dolist (package '(:format :sequence :loop :mop :xp :precompiler
                            :profiler :java :jvm :extensions :threads
-                           :toplevel :system :cl))
+                           :top-level :system :cl))
           ;; Limit the set of packages:
           ;;  During incremental compilation, the packages GRAY-STREAMS
           ;;    and ASDF are not being created. Nor are these packages
           ;;    vital to the correct operation of the base system.
+
+          (let ((*package* (find-package package))
+                externals)
+            (do-external-symbols (sym package
+                                      externals)
+              (when (eq (symbol-package sym)
+                        *package*)
+                (push sym externals)))
+            (when externals
+              (write-line ";; EXPORTS" f)
+              (write `(cl:in-package ,package) :stream f)
+              (terpri f)
+              (write `(cl:export ',externals) :stream f)
+              (terpri f)))
+
+
+          (terpri f)
           (write-line ";; FUNCTIONS" f)
           (terpri f)
           (write-package-filesets f package 'ext:autoload
                                   (combos-to-fileset-symbols funcs))
+          (terpri f)
           (write-line ";; MACROS" f)
           (terpri f)