- #!+sb-dyncount
- #s(sb-cold:package-data
- :name "SB!DYNCOUNT"
- :doc "private: some somewhat-stale code for collecting runtime statistics"
- :use ("CL" "SB!ALIEN-INTERNALS" "SB!ALIEN" "SB!BIGNUM"
- "SB!EXT" "SB!INT" "SB!KERNEL" "SB!ASSEM" "SB!SYS")
- :export ("*COLLECT-DYNAMIC-STATISTICS*" "COUNT-ME"
- "DYNCOUNT-INFO-COUNTS" "DYNCOUNT-INFO-COSTS"
- "IR2-COMPONENT-DYNCOUNT-INFO"
- "DYNCOUNT-INFO" "DYNCOUNT-INFO-P"))
-
- #s(sb-cold:package-data
- :name "SB!FASL"
- :doc "private: stuff related to FASL load/dump logic (and GENESIS)"
- :use ("CL" "SB!ALIEN" "SB!ASSEM" "SB!BIGNUM" "SB!C" "SB!C-CALL"
- "SB!EXT" "SB!INT" "SB!KERNEL" "SB!SYS")
- :export ("*ASSEMBLER-ROUTINES*"
- "+BACKEND-FASL-FILE-IMPLEMENTATION+"
- "*FASL-FILE-TYPE*"
- "CLOSE-FASL-OUTPUT"
- "DUMP-ASSEMBLER-ROUTINES"
- "DUMP-OBJECT"
- "FASL-CONSTANT-ALREADY-DUMPED-P"
- "+FASL-FILE-VERSION+"
- "FASL-DUMP-BYTE-COMPONENT"
- "FASL-DUMP-COLD-LOAD-FORM" "FASL-DUMP-COMPONENT"
- "FASL-DUMP-LOAD-TIME-VALUE" "FASL-DUMP-LOAD-TIME-VALUE-LAMBDA"
- "FASL-DUMP-SOURCE-INFO" "FASL-DUMP-TOP-LEVEL-LAMBDA-CALL"
- "FASL-NOTE-HANDLE-FOR-CONSTANT"
- "FASL-OUTPUT" "FASL-OUTPUT-P" "FASL-OUTPUT-STREAM"
- "FASL-VALIDATE-STRUCTURE"
- "*!LOAD-TIME-VALUES*"
- "LOAD-TYPE-PREDICATE"
- "OPEN-FASL-OUTPUT"
- "*!REVERSED-COLD-TOPLEVELS*"
- "*STATIC-FOREIGN-SYMBOLS*"))
-
- ;; This package is a grab bag for things which used to be internal
- ;; symbols in package COMMON-LISP. Lots of these symbols are accessed
- ;; with explicit SB!IMPL:: prefixes in the code. It would be nice to
- ;; reduce the use of this practice, so if symbols from here which are
- ;; accessed that way are found to belong more appropriately in
- ;; an existing package (e.g. KERNEL or SYS or EXT or FASL), I
- ;; (WHN 19990223) encourage maintainers to move them there..
- ;;
- ;; ..except that it's getting so big and crowded that maybe it
- ;; should be split up, too.
- #s(sb-cold:package-data
- :name "SB!IMPL"
- :doc "private: a grab bag of implementation details"
- :use ("CL" "SB!ALIEN" "SB!BIGNUM" "SB!C-CALL" "SB!DEBUG" "SB!EXT"
- "SB!FASL" "SB!GRAY" "SB!INT" "SB!KERNEL" "SB!SYS"))
-