Changeset 14099
- Timestamp:
- 08/17/12 05:54:19 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compile-system.lisp
r14036 r14099 194 194 (dolist (package '(:format :sequence :loop :mop :xp :precompiler 195 195 :profiler :java :jvm :extensions :threads 196 :top level :system :cl))196 :top-level :system :cl)) 197 197 ;; Limit the set of packages: 198 198 ;; During incremental compilation, the packages GRAY-STREAMS 199 199 ;; and ASDF are not being created. Nor are these packages 200 200 ;; 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) 201 218 (write-line ";; FUNCTIONS" f) 202 219 (terpri f) 203 220 (write-package-filesets f package 'ext:autoload 204 221 (combos-to-fileset-symbols funcs)) 222 (terpri f) 205 223 (write-line ";; MACROS" f) 206 224 (terpri f)
Note: See TracChangeset
for help on using the changeset viewer.