2e2ee81d59a67b8ebcfc8589de3094c4a7219635
[sbcl.git] / package-data-list.lisp-expr
1 ;;;; the specifications of SBCL-specific packages, except..
2 ;;;;   * the creation of the trivial SB-SLOT-ACCESSOR-NAME package
3 ;;;;   * any SHADOWing hackery
4 ;;;; The standard, non-SBCL-specific packages COMMON-LISP,
5 ;;;; COMMON-LISP-USER, and KEYWORD are also handled through other
6 ;;;; mechanisms.
7
8 ;;;; This software is part of the SBCL system. See the README file for
9 ;;;; more information.
10 ;;;;
11 ;;;; This software is derived from the CMU CL system, which was
12 ;;;; written at Carnegie Mellon University and released into the
13 ;;;; public domain. The software is in the public domain and is
14 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
15 ;;;; files for more information.
16
17 (#s(sb-cold:package-data
18     :name "SB!ALIEN"
19     :doc "public: the ALIEN foreign function interface"
20     :use ("CL" "SB!EXT" "SB!INT" "SB!SYS" "SB!ALIEN-INTERNALS")
21     :reexport ("ARRAY" "BOOLEAN" "DOUBLE-FLOAT" "LONG-FLOAT" "FUNCTION"
22                "INTEGER" "SINGLE-FLOAT" "UNION"  "SYSTEM-AREA-POINTER"
23                "VALUES" "*")
24     :export ("ADDR" "ALIEN" "ALIEN-FUNCALL" "ALIEN-SAP"
25              "ALIEN-SIZE" "ALIEN-BOOLEAN" "CAST" "DEF-ALIEN-ROUTINE"
26              "DEF-ALIEN-TYPE" "DEF-ALIEN-VARIABLE" "DEF-BUILTIN-ALIEN-TYPE"
27              "DEREF" "ENUM" "EXTERN-ALIEN"
28              "SAP-ALIEN" "SIGNED" "SLOT" "STRUCT"
29              "UNSIGNED" "WITH-ALIEN" "FREE-ALIEN" "NULL-ALIEN"
30              "MAKE-ALIEN"
31              "LOAD-FOREIGN" "LOAD-1-FOREIGN"))
32
33  #s(sb-cold:package-data
34     :name "SB!ALIEN-INTERNALS"
35     :doc "private: stuff for implementing ALIENs and friends"
36     :use ("CL")
37     :export ("%CAST" "%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR"
38              "%LOCAL-ALIEN-ADDR" "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN"
39              "%SET-DEREF" "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT"
40              "%SLOT-ADDR" "*VALUES-TYPE-OKAY*" "ALIEN-ARRAY-TYPE"
41              "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE"
42              "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P"
43              "ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P"
44              "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE"
45              "ALIEN-FLOAT-TYPE-P" "ALIEN-FUNCTION-TYPE"
46              "ALIEN-FUNCTION-TYPE-ARG-TYPES" "ALIEN-FUNCTION-TYPE-P"
47              "ALIEN-FUNCTION-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE"
48              "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED"
49              "ALIEN-LONG-FLOAT-TYPE" "ALIEN-LONG-FLOAT-TYPE-P"
50              "ALIEN-POINTER-TYPE" "ALIEN-POINTER-TYPE-P"
51              "ALIEN-POINTER-TYPE-TO" "ALIEN-RECORD-FIELD"
52              "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET"
53              "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE"
54              "ALIEN-RECORD-TYPE" "ALIEN-RECORD-TYPE-FIELDS"
55              "ALIEN-RECORD-TYPE-P" "ALIEN-SINGLE-FLOAT-TYPE"
56              "ALIEN-SINGLE-FLOAT-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE"
57              "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS"
58              "ALIEN-TYPE-P" "ALIEN-TYPEP"
59              "ALIEN-VALUE" "ALIEN-VALUE-TYPE"
60              "ALIEN-VALUE-SAP" "ALIEN-VALUE-P"
61              "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P"
62              "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE"
63              "COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA"
64              "COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE"
65              "COMPUTE-NATURALIZE-LAMBDA" "DEF-ALIEN-TYPE-CLASS"
66              "DEF-ALIEN-TYPE-METHOD" "DEF-ALIEN-TYPE-TRANSLATOR" "DEPORT"
67              "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN" "EXTRACT-ALIEN-VALUE"
68              "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM"
69              "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN"
70              "LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P"
71              "LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE"
72              "MAKE-ALIEN-FUNCTION-TYPE" "MAKE-ALIEN-POINTER-TYPE"
73              "MAKE-ALIEN-VALUE"
74              "MAKE-LOCAL-ALIEN" "NATURALIZE" "NOTE-LOCAL-ALIEN-TYPE"
75              "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE"))
76
77  #s(sb-cold:package-data
78     :name "SB!ASSEM"
79     :doc "private: the assembler, used by the compiler"
80     :use ("CL" "SB!INT" "SB!EXT")
81     :export ("ASSEMBLY-UNIT"
82
83              "*ASSEM-SCHEDULER-P*"
84              "*ASSEM-INSTRUCTIONS*"
85              "*ASSEM-MAX-LOCATIONS*"
86
87              "EMIT-BYTE" "EMIT-SKIP" "EMIT-BACK-PATCH"
88              "EMIT-CHOOSER" "DEFINE-BITFIELD-EMITTER"
89              "DEFINE-INSTRUCTION" "DEFINE-INSTRUCTION-MACRO"
90              "DEF-ASSEMBLER-PARAMS" "EMIT-POSTIT"
91
92              "MAKE-SEGMENT" "SEGMENT-NAME" "ASSEMBLE"
93              "ALIGN" "INST" "LABEL" "LABEL-P" "GEN-LABEL"
94              "EMIT-LABEL" "LABEL-POSITION" "APPEND-SEGMENT" "FINALIZE-SEGMENT"
95              "ON-SEGMENT-CONTENTS-VECTORLY" "WRITE-SEGMENT-CONTENTS"
96              "READS" "WRITES" "SEGMENT"
97              "WITHOUT-SCHEDULING"
98              "VARIABLE-LENGTH"
99              "SEGMENT-COLLECT-DYNAMIC-STATISTICS"
100
101              ;; FIXME: These are in the SB-ASSEM package now, but
102              ;; (left over from CMU CL) are defined in files which
103              ;; are IN-PACKAGE SB-C. It would probably be cleaner
104              ;; to move at least most of them to files which are
105              ;; IN-PACKAGE SB-ASSEM.
106              "BRANCH" "DO-SSET-ELEMENTS" "FLUSHABLE" "MAKE-SSET" "SSET"
107              "SSET-ADJOIN" "SSET-DELETE" "SSET-ELEMENT" "SSET-EMPTY"))
108
109  #s(sb-cold:package-data
110     :name "SB!BIGNUM"
111     :doc "private: bignum implementation"
112     :use ("CL" "SB!KERNEL" "SB!INT" "SB!EXT")
113     :export ("%ADD-WITH-CARRY" "%ALLOCATE-BIGNUM" "%ASHL" "%ASHR"
114              "%BIGNUM-LENGTH" "%BIGNUM-REF" "%BIGNUM-SET"
115              "%BIGNUM-SET-LENGTH" "%DIGIT-0-OR-PLUSP"
116              "%DIGIT-LOGICAL-SHIFT-RIGHT"
117              "%FIXNUM-DIGIT-WITH-CORRECT-SIGN" "%FIXNUM-TO-DIGIT"
118              "%FLOOR" "%LOGAND" "%LOGIOR" "%LOGNOT" "%LOGXOR"
119              "%MULTIPLY" "%MULTIPLY-AND-ADD"
120              "%SUBTRACT-WITH-BORROW" "ADD-BIGNUMS"
121              "BIGNUM-ASHIFT-LEFT" "BIGNUM-ASHIFT-RIGHT"
122              "BIGNUM-COMPARE" "BIGNUM-DEPOSIT-BYTE"
123              "BIGNUM-ELEMENT-TYPE" "BIGNUM-GCD" "BIGNUM-INDEX"
124              "BIGNUM-INTEGER-LENGTH" "BIGNUM-LOAD-BYTE"
125              "BIGNUM-LOGCOUNT" "BIGNUM-LOGICAL-AND"
126              "BIGNUM-LOGICAL-IOR" "BIGNUM-LOGICAL-NOT"
127              "BIGNUM-LOGICAL-XOR" "BIGNUM-PLUS-P"
128              "BIGNUM-TO-FLOAT" "BIGNUM-TRUNCATE" "BIGNUM-TYPE"
129              "FLOAT-BIGNUM-RATIO" "MAKE-SMALL-BIGNUM"
130              "MULTIPLY-BIGNUM-AND-FIXNUM" "MULTIPLY-BIGNUMS"
131              "MULTIPLY-FIXNUMS" "NEGATE-BIGNUM"
132              "SUBTRACT-BIGNUM" "SXHASH-BIGNUM"))
133
134  #s(sb-cold:package-data
135     :name "SB!C"
136     :doc "private: implementation of the compiler"
137     ;; (It seems strange to have the compiler USE SB-ALIEN-INTERNALS,
138     ;; but the point seems to be to be able to express things like
139     ;; SB-C:DEFTRANSFORM SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN without
140     ;; having to use a bunch of package prefixes, by putting them
141     ;; in the SB-C package. Maybe it'd be tidier to define an SB-ALIEN-COMP
142     ;; package for this? But it seems like a fairly low priority.)
143     ;; (Probably the same considerations also explain why BIGNUM is
144     ;;in the USE list.)
145     :use ("CL" "SB!ALIEN-INTERNALS" "SB!ALIEN" "SB!BIGNUM"
146           #!+sb-dyncount "SB-DYNCOUNT"
147           "SB!EXT" "SB!INT" "SB!KERNEL" "SB!ASSEM" "SB!SYS")
148     :reexport ("SLOT" "CODE-INSTRUCTIONS" "FLUSHABLE")
149     :export ("%ALIEN-FUNCALL" "%CATCH-BREAKUP" "%CONTINUE-UNWIND" "&MORE"
150               "%LISTIFY-REST-ARGS" "%MORE-ARG" "%MORE-ARG-VALUES"
151               "%UNWIND-PROTECT-BREAKUP"
152
153               "*BACKEND-BYTE-ORDER*" "*BACKEND-DISASSEM-PARAMS*"
154               "*BACKEND-FASL-FILE-IMPLEMENTATION*"
155               "*BACKEND-FASL-FILE-TYPE*" "*BACKEND-FASL-FILE-VERSION*"
156               "*BACKEND-INFO-ENVIRONMENT*"
157               "*BACKEND-INSTRUCTION-FLAVORS*" "*BACKEND-INSTRUCTION-FORMATS*"
158               "*BACKEND-INTERNAL-ERRORS*" "*BACKEND-PAGE-SIZE*"
159               "*BACKEND-REGISTER-SAVE-PENALTY*"
160               "*BACKEND-SB-LIST*" "*BACKEND-SB-NAMES*"
161               "*BACKEND-SC-NAMES*" "*BACKEND-SC-NUMBERS*"
162               "*BACKEND-SPECIAL-ARG-TYPES*"
163               "*BACKEND-T-PRIMITIVE-TYPE*"
164
165               "*CODE-SEGMENT*" 
166               "*CONVERTING-FOR-INTERPRETER*"
167               "*COUNT-VOP-USAGES*" "*ELSEWHERE*"
168               "*FASL-HEADER-STRING-START-STRING*"
169               "*FASL-HEADER-STRING-STOP-CHAR-CODE*"
170               "*SETF-ASSUMED-FBOUNDP*"
171               "*SUPPRESS-VALUES-DECLARATION*"
172
173               "ALLOC-ALIEN-STACK-SPACE" "ALLOC-NUMBER-STACK-SPACE"
174               "ALLOCATE-CODE-OBJECT" "ALLOCATE-FRAME"
175               "ALLOCATE-DYNAMIC-CODE-OBJECT" "ALLOCATE-FULL-CALL-FRAME"
176               "ANY" "ARGUMENT-COUNT-ERROR" "ASSEMBLE-FILE"
177               "ATTRIBUTES" "ATTRIBUTES-INTERSECTION" "ATTRIBUTES-UNION"
178               "ATTRIBUTES=" "BIND"
179               "BYTE-BLT" ; doesn't logically belong here, but is name of VOP..
180               "CALL" "CALL-LOCAL" "CALL-NAMED" "CALL-OUT" "CALL-VARIABLE"
181               "CALLEE-NFP-TN" "CALLEE-RETURN-PC-TN"
182               "CASE-BODY" "CATCH-BLOCK" "CHECK-CONS"
183               "CHECK-FIXNUM" "CHECK-FUNCTION" "CHECK-FUNCTION-OR-SYMBOL"
184               "CHECK-SIGNED-BYTE-32" "CHECK-SYMBOL" "CHECK-UNSIGNED-BYTE-32"
185               "CLOSURE-INIT" "CLOSURE-REF"
186               "CODE-CONSTANT-REF" "CODE-CONSTANT-SET" 
187               "COMPILE-FOR-EVAL" "COMPONENT" "COMPONENT-HEADER-LENGTH"
188               "COMPONENT-INFO" "COMPONENT-LIVE-TN" "COMPUTE-FUNCTION"
189               "COMPUTE-OLD-NFP" "COPY-MORE-ARG" 
190               "CURRENT-BINDING-POINTER" "CURRENT-NFP-TN"
191               "CURRENT-STACK-POINTER" "DEALLOC-ALIEN-STACK-SPACE"
192               "DEALLOC-NUMBER-STACK-SPACE" "DEF-BOOLEAN-ATTRIBUTE"
193               "DEF-IR1-TRANSLATOR" "DEF-PRIMITIVE-TRANSLATOR"
194               "!DEF-PRIMITIVE-TYPE" "!DEF-PRIMITIVE-TYPE-ALIAS"
195               "DEF-SOURCE-TRANSFORM" "!DEF-VM-SUPPORT-ROUTINE"
196               "DEFINE-ASSEMBLY-ROUTINE" "DEFINE-MOVE-FUNCTION"
197               "DEFINE-MOVE-VOP" "DEFINE-STORAGE-BASE"
198               "DEFINE-STORAGE-CLASS" "DEFINE-VOP"
199               "DEFKNOWN" "DEFOPTIMIZER"
200               "DEFTRANSFORM" "DERIVE-TYPE"
201               "ENTRY-NODE-INFO-NLX-TAG" "ENTRY-NODE-INFO-ST-TOP"
202               "ENVIRONMENT-DEBUG-LIVE-TN" "ENVIRONMENT-LIVE-TN"
203               "FAST-SYMBOL-FUNCTION" "FAST-SYMBOL-VALUE" "FOLDABLE"
204               "FORCE-TN-TO-STACK" "GET-VECTOR-SUBTYPE"
205               "HALT" "IF-EQ" "INSTANCE-REF" "INSTANCE-SET"
206               "IR2-COMPONENT-CONSTANTS" "IR2-CONVERT"
207               "IR2-ENVIRONMENT-NUMBER-STACK-P" "KNOWN-CALL-LOCAL"
208               "KNOWN-RETURN" "LAMBDA-EVAL-INFO-ARGS-PASSED"
209               "LAMBDA-EVAL-INFO-ENTRIES" "LAMBDA-EVAL-INFO-FRAME-SIZE"
210               "LAMBDA-EVAL-INFO-FUNCTION" "LOCATION=" "LTN-ANNOTATE"
211               "MAKE-ALIAS-TN" "MAKE-CATCH-BLOCK"
212               "MAKE-CLOSURE" "MAKE-CONSTANT-TN" "MAKE-FIXNUM"
213               "MAKE-LOAD-TIME-CONSTANT-TN" "MAKE-N-TNS" "MAKE-NORMAL-TN"
214               "MAKE-OTHER-IMMEDIATE-TYPE" "MAKE-RANDOM-TN"
215               "MAKE-REPRESENTATION-TN" "MAKE-RESTRICTED-TN" "MAKE-SC-OFFSET"
216               "MAKE-STACK-POINTER-TN" "MAKE-TN-REF" "MAKE-UNWIND-BLOCK"
217               "MAKE-VALUE-CELL" "MAKE-WIRED-TN" "MAYBE-COMPILER-NOTE"
218               "META-PRIMITIVE-TYPE-OR-LOSE"
219               "META-SB-OR-LOSE" "META-SC-NUMBER-OR-LOSE" "META-SC-OR-LOSE"
220               "MORE-ARG-CONTEXT" "MOVABLE" "MOVE" "MULTIPLE-CALL"
221               "MULTIPLE-CALL-LOCAL" "MULTIPLE-CALL-NAMED"
222               "MULTIPLE-CALL-VARIABLE" "NLX-ENTRY" "NLX-ENTRY-MULTIPLE"
223               "NON-DESCRIPTOR-STACK" "NOTE-ENVIRONMENT-START"
224               "NOTE-THIS-LOCATION" "OPTIMIZER" "PACK-TRACE-TABLE"
225               "POLICY" "PREDICATE" "PRIMITIVE-TYPE" "PRIMITIVE-TYPE-OF"
226               "PRIMITIVE-TYPE-OR-LOSE" "PRIMITIVE-TYPE-VOP"
227               "PRIMITIVE-TYPE-NAME" "PUSH-VALUES"
228               "READ-PACKED-BIT-VECTOR" "READ-VAR-INTEGER" "READ-VAR-STRING"
229               "RESET-STACK-POINTER" "RESTORE-DYNAMIC-STATE"
230               "RETURN-MULTIPLE" "SAVE-DYNAMIC-STATE" "SB"
231               "SB-ALLOCATED-SIZE" "SB-NAME" "SB-OR-LOSE" "SB-P" "SC" "SC-CASE"
232               "SC-IS" "SC-NAME" "SC-NUMBER" "SC-NUMBER-OR-LOSE"
233               "SC-OFFSET-OFFSET" "SC-OFFSET-SCN" "SC-OR-LOSE" "SC-P" "SC-SB"
234               "SET-UNWIND-PROTECT" "SET-VECTOR-SUBTYPE"
235               "SETUP-CLOSURE-ENVIRONMENT" "SETUP-ENVIRONMENT"
236               "SPECIFY-SAVE-TN" "INSTANCE-REF"
237               "INSTANCE-SET" "TAIL-CALL" "TAIL-CALL-NAMED"
238               "TAIL-CALL-VARIABLE" "TEMPLATE-OR-LOSE"
239               "TN" "TN-OFFSET" "TN-P" "TN-REF" "TN-REF-ACROSS" "TN-REF-LOAD-TN"
240               "TN-REF-NEXT" "TN-REF-NEXT-REF" "TN-REF-P" "TN-REF-TARGET"
241               "TN-REF-TN" "TN-REF-VOP" "TN-REF-WRITE-P" "TN-SC" "TN-VALUE"
242               "TRACE-TABLE-ENTRY" "TYPE-CHECK-ERROR" "UNBIND" "UNBIND-TO-HERE"
243               "UNSAFE" "UNWIND" "UWP-ENTRY"
244               "VALUE-CELL-REF" "VALUE-CELL-SET"
245               "VERIFY-ARGUMENT-COUNT" "WRITE-PACKED-BIT-VECTOR"
246               "WRITE-VAR-INTEGER" "WRITE-VAR-STRING" "XEP-ALLOCATE-FRAME"
247               "LABEL-ID" "FIXUP" "FIXUP-FLAVOR" "FIXUP-NAME" "FIXUP-OFFSET"
248               "FIXUP-P" "MAKE-FIXUP"
249               "DEF-ALLOC"
250               "VAR-ALLOC"
251               "SAFE-FDEFN-FUNCTION"
252               "NOTE-FIXUP"
253               "DEF-REFFER"
254               "EMIT-NOP"
255               "DEF-SETTER"
256               "FIXED-ALLOC"
257               "MAKE-UNBOUND-MARKER"
258               "RETURN-SINGLE"
259               "NOTE-NEXT-INSTRUCTION"
260               "SET-SLOT"
261               "LOCATION-NUMBER"
262               "BYTE-FASL-FILE-VERSION"
263               "*COMPONENT-BEING-COMPILED*"
264               "BLOCK-NUMBER"
265               "BACKEND"
266               "BACKEND-BYTE-FASL-FILE-IMPLEMENTATION"
267               "IR2-BLOCK-BLOCK"
268               "DISASSEM-BYTE-COMPONENT"
269               "FUNCALLABLE-INSTANCE-LEXENV"
270               "DISASSEM-BYTE-FUN"
271               "VOP-BLOCK"
272               "*ASSEMBLY-OPTIMIZE*"
273               "LARGE-ALLOC"
274               "%SET-FUNCTION-SELF"
275               "VM-SUPPORT-ROUTINES-IMMEDIATE-CONSTANT-SC"
276               "VM-SUPPORT-ROUTINES-LOCATION-PRINT-NAME"
277               "VM-SUPPORT-ROUTINES-PRIMITIVE-TYPE-OF"
278               "VM-SUPPORT-ROUTINES-PRIMITIVE-TYPE"
279               "VM-SUPPORT-ROUTINES-MAKE-CALL-OUT-TNS"
280               "VM-SUPPORT-ROUTINES-STANDARD-ARGUMENT-LOCATION"
281               "VM-SUPPORT-ROUTINES-MAKE-RETURN-PC-PASSING-LOCATION"
282               "VM-SUPPORT-ROUTINES-MAKE-OLD-FP-PASSING-LOCATION"
283               "VM-SUPPORT-ROUTINES-MAKE-OLD-FP-SAVE-LOCATION"
284               "VM-SUPPORT-ROUTINES-MAKE-RETURN-PC-SAVE-LOCATION"
285               "VM-SUPPORT-ROUTINES-MAKE-ARGUMENT-COUNT-LOCATION"
286               "VM-SUPPORT-ROUTINES-MAKE-NFP-TN"
287               "VM-SUPPORT-ROUTINES-MAKE-STACK-POINTER-TN"
288               "VM-SUPPORT-ROUTINES-MAKE-NUMBER-STACK-POINTER-TN"
289               "VM-SUPPORT-ROUTINES-MAKE-UNKNOWN-VALUES-LOCATIONS"
290               "VM-SUPPORT-ROUTINES-SELECT-COMPONENT-FORMAT"
291               "VM-SUPPORT-ROUTINES-MAKE-NLX-SP-TN"
292               "VM-SUPPORT-ROUTINES-MAKE-DYNAMIC-STATE-TNS"
293               "VM-SUPPORT-ROUTINES-MAKE-NLX-ENTRY-ARGUMENT-START-LOCATION"
294               "VM-SUPPORT-ROUTINES-GENERATE-CALL-SEQUENCE"
295               "VM-SUPPORT-ROUTINES-GENERATE-RETURN-SEQUENCE"
296               "VM-SUPPORT-ROUTINES-EMIT-NOP"
297               "VM-SUPPORT-ROUTINES-LOCATION-NUMBER"))
298
299  #s(sb-cold:package-data
300     :name "SB!C-CALL"
301     ;; FIXME: Why not just put this stuff into SB-ALIEN? Or maybe
302     ;; just glom this and SB-ALIEN together into SB-FFI?
303     :doc "public: some types used with ALIENs"
304     :use ("CL" "SB!SYS" "SB!ALIEN-INTERNALS" "SB!ALIEN" "SB!INT" "SB!EXT")
305     :reexport ("FLOAT" "CHAR")
306     :export ("C-STRING" "DOUBLE" "GET-ERRNO" "INT" "LONG"
307              "SHORT" "UNSIGNED-CHAR" "UNSIGNED-INT"
308              "UNSIGNED-LONG" "UNSIGNED-SHORT" "VOID"))
309
310  #!+sb-dyncount
311  #s(sb-cold:package-data
312     :name "SB!DYNCOUNT"
313     :doc "private: some somewhat-stale code for collecting runtime statistics"
314     :use ("CL" "SB!ALIEN-INTERNALS" "SB!ALIEN" "SB!BIGNUM"
315           "SB!EXT" "SB!INT" "SB!KERNEL" "SB!ASSEM" "SB!SYS")
316     :export ("*COLLECT-DYNAMIC-STATISTICS*" "COUNT-ME"
317              "DYNCOUNT-INFO-COUNTS" "DYNCOUNT-INFO-COSTS"
318              "IR2-COMPONENT-DYNCOUNT-INFO"
319              "DYNCOUNT-INFO" "DYNCOUNT-INFO-P"))
320
321  ;; This package is a grab bag for things which used to be internal
322  ;; symbols in package COMMON-LISP. Lots of these symbols are accessed
323  ;; with explicit SB!IMPL:: prefixes in the code. It would be nice to
324  ;; reduce the use of this practice, so if symbols from here which are
325  ;; accessed that way are found to belong more appropriately in
326  ;; an existing package (e.g. KERNEL or SYS or EXT) or a new package
327  ;; (e.g. something to collect together all the FOP stuff), I
328  ;; (WHN 19990223) encourage maintainers to move them there..
329  ;;
330  ;; ..except that it's getting so big and crowded that maybe it
331  ;; should be split up, too.
332  #s(sb-cold:package-data
333     :name "SB!IMPL"
334     :doc "private: a grab bag of implementation details"
335     :use ("CL" "SB!ALIEN" "SB!BIGNUM" "SB!C-CALL" "SB!DEBUG" "SB!EXT"
336           "SB!GRAY" "SB!INT" "SB!KERNEL" "SB!SYS"))
337
338  #s(sb-cold:package-data
339     :name "SB!DEBUG"
340     :doc
341 "public: (eventually) the debugger interface (but currently) the
342 debugger interface mixed with various low-level implementation stuff
343 like *STACK-TOP-HINT*"
344     :use ("CL" "SB!EXT" "SB!INT" "SB!SYS")
345     :export ("*AUTO-EVAL-IN-FRAME*" "*DEBUG-BEGINNER-HELP-P*"
346              "*DEBUG-CONDITION*"
347              "*DEBUG-PRINT-LENGTH*" "*DEBUG-PRINT-LEVEL*"
348              "*DEBUG-READTABLE*" "*DEBUG-HELP-STRING*"
349              "*FLUSH-DEBUG-ERRORS*" "*IN-THE-DEBUGGER*"
350              "*TRACE-INDENTATION-STEP*" "*MAX-TRACE-INDENTATION*"
351              "*TRACE-FRAME*" "*TRACE-PRINT-LENGTH*"
352              "*TRACE-PRINT-LEVEL*" "*TRACED-FUNCTION-LIST*"
353              "ARG" "BACKTRACE" "INTERNAL-DEBUG" "VAR"
354              "*PRINT-LOCATION-KIND*"
355              "*ONLY-BLOCK-START-LOCATIONS*" "*STACK-TOP-HINT*"
356              "*TRACE-VALUES*" "DO-DEBUG-COMMAND"
357              "*TRACE-ENCAPSULATE-DEFAULT*"))
358
359  #s(sb-cold:package-data
360     :name "SB!DI"
361     :doc "private: primitives used to write debuggers"
362     :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!VM")
363     :import-from (("SB!C"
364                    "DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME"
365                    "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED"
366                    "DEBUG-SOURCE-START-POSITIONS" "MAKE-DEBUG-SOURCE"
367                    "DEBUG-SOURCE" "DEBUG-SOURCE-P"))
368     :reexport ("DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME"
369                "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED"
370                "DEBUG-SOURCE-START-POSITIONS" "DEBUG-SOURCE"
371                "DEBUG-SOURCE-P")
372     :export ("*DEBUGGING-INTERPRETER*" "ACTIVATE-BREAKPOINT"
373              "AMBIGUOUS-DEBUG-VARS" "AMBIGUOUS-VARIABLE-NAME" "BREAKPOINT"
374              "BREAKPOINT-ACTIVE-P" "BREAKPOINT-HOOK-FUNCTION" "BREAKPOINT-INFO"
375              "BREAKPOINT-KIND" "BREAKPOINT-P" "BREAKPOINT-WHAT" "CODE-LOCATION"
376              "CODE-LOCATION-DEBUG-BLOCK" "CODE-LOCATION-DEBUG-FUNCTION"
377              "CODE-LOCATION-DEBUG-SOURCE" "CODE-LOCATION-FORM-NUMBER"
378              "CODE-LOCATION-P" "CODE-LOCATION-TOP-LEVEL-FORM-OFFSET"
379              "CODE-LOCATION-UNKNOWN-P" "CODE-LOCATION=" "DEACTIVATE-BREAKPOINT"
380              "DEBUG-BLOCK" "DEBUG-BLOCK-ELSEWHERE-P" "DEBUG-BLOCK-P"
381              "DEBUG-BLOCK-SUCCESSORS" "DEBUG-CONDITION" "DEBUG-ERROR"
382              "DEBUG-FUNCTION" "DEBUG-FUNCTION-FUNCTION" "DEBUG-FUNCTION-KIND"
383              "DEBUG-FUNCTION-LAMBDA-LIST" "DEBUG-FUNCTION-NAME"
384              "DEBUG-FUNCTION-P" "DEBUG-FUNCTION-START-LOCATION"
385              "DEBUG-FUNCTION-SYMBOL-VARIABLES"
386              "DEBUG-SOURCE-ROOT-NUMBER" "DEBUG-VAR"
387              "DEBUG-VAR-ID" "DEBUG-VAR-INFO-AVAILABLE"
388              "DEBUG-VAR-SYMBOL-NAME" "DEBUG-VAR-P" "DEBUG-VAR-PACKAGE-NAME"
389              "DEBUG-VAR-SYMBOL" "DEBUG-VAR-VALID-VALUE"
390              "DEBUG-VAR-VALIDITY" "DEBUG-VAR-VALUE"
391              "DELETE-BREAKPOINT" "DO-BLOCKS"
392              "DO-DEBUG-BLOCK-LOCATIONS" "DO-DEBUG-FUNCTION-BLOCKS"
393              "DO-DEBUG-FUNCTION-VARIABLES" "EVAL-IN-FRAME"
394              "FORM-NUMBER-TRANSLATIONS" "FRAME" "FRAME-CATCHES"
395              "FRAME-CODE-LOCATION" "FRAME-DEBUG-FUNCTION" "FRAME-DOWN"
396              "FRAME-FUNCTION-MISMATCH" "FRAME-NUMBER" "FRAME-P" "FRAME-UP"
397              "FUNCTION-DEBUG-FUNCTION" "FUNCTION-END-COOKIE-VALID-P"
398              "INVALID-CONTROL-STACK-POINTER" "INVALID-VALUE"
399              "LAMBDA-LIST-UNAVAILABLE" "MAKE-BREAKPOINT" "NO-DEBUG-BLOCKS"
400              "NO-DEBUG-FUNCTION-RETURNS" "NO-DEBUG-INFO" "PREPROCESS-FOR-EVAL"
401              "RETURN-FROM-FRAME" "SOURCE-PATH-CONTEXT"
402              "TOP-FRAME" "UNHANDLED-DEBUG-CONDITION" "UNKNOWN-CODE-LOCATION"
403              "UNKNOWN-CODE-LOCATION-P" "UNKNOWN-DEBUG-VAR"
404              "CODE-LOCATION-KIND" "FLUSH-FRAMES-ABOVE"))
405
406  #s(sb-cold:package-data
407     :name "SB!DISASSEM"
408     :doc "private: stuff related to the implementation of the disassembler"
409     :use ("CL" "SB!EXT" "SB!INT")
410     :export ("*DISASSEM-INST-ALIGNMENT-BYTES*"
411              "*DISASSEM-NOTE-COLUMN*" "*DISASSEM-OPCODE-COLUMN-WIDTH*"
412              "*DISASSEM-SCHEDULER-P*" "*DISASSEM-LOCATION-COLUMN-WIDTH*"
413              "ADD-COMMENT-HOOK" "ADD-HOOK" "ADD-NOTE-HOOK"
414              "ARG-VALUE" "CREATE-DSTATE" "DISASSEM-STATE"
415              "DISASSEMBLE-CODE-COMPONENT"
416              "DISASSEMBLE-FUNCTION" "DISASSEMBLE-MEMORY"
417              "DISASSEMBLE-SEGMENT" "DISASSEMBLE-SEGMENTS"
418              "DSTATE-CODE" "DSTATE-CURPOS" "DSTATE-GET-PROP"
419              "DSTATE-NEXTPOS" "DSTATE-SEGMENT-LENGTH"
420              "DSTATE-SEGMENT-SAP" "DSTATE-SEGMENT-START"
421              "FIELD-TYPE" "FIND-INST" "GEN-FIELD-TYPE-DECL-FORM"
422              "GEN-INST-DECL-FORM" "GEN-INST-FORMAT-DECL-FORM"
423              "GET-CODE-SEGMENTS" "GET-FUNCTION-SEGMENTS"
424              "GET-INST-SPACE" "HANDLE-BREAK-ARGS"
425              "INST" "INST-FORMAT" "LABEL-SEGMENTS"
426              "MAYBE-NOTE-ASSEMBLER-ROUTINE"
427              "MAYBE-NOTE-ASSOCIATED-STORAGE-REF"
428              "MAYBE-NOTE-NIL-INDEXED-OBJECT"
429              "MAYBE-NOTE-NIL-INDEXED-SYMBOL-SLOT-REF"
430              "MAYBE-NOTE-SINGLE-STORAGE-REF" "NOTE"
431              "NOTE-CODE-CONSTANT" "PARAMS" "PRIN1-QUOTED-SHORT"
432              "PRIN1-SHORT" "PRINT-BYTES"
433              "PRINT-CURRENT-ADDRESS" "PRINT-FIELD" "PRINT-INST"
434              "PRINT-INST-USING" "PRINT-NOTES-AND-NEWLINE"
435              "PRINT-WORDS" "SAP-REF-DCHUNK" "SEG-DEBUG-FUNCTION"
436              "SEG-LENGTH" "SEG-START" "SEGMENT"
437              "SET-ADDRESS-PRINTING-RANGE" "SET-DISASSEM-PARAMS"
438              "SET-DSTATE-SEGMENT" "SIGN-EXTEND" "SPECIALIZE"
439              "GEN-PRINTER-DEF-FORMS-DEF-FORM" "MAKE-DSTATE"
440              "DEFINE-ARGUMENT-TYPE" "GEN-ARG-TYPE-DEF-FORM"
441              "READ-SIGNED-SUFFIX" "ADD-OFFS-HOOK"
442              "MAKE-MEMORY-SEGMENT" "GEN-PREAMBLE-FORM"
443              "MAKE-SEGMENT" "SEGMENT-OVERFLOW"
444              "SEG-VIRTUAL-LOCATION" "MAKE-DECODED-INST"
445              "DCHUNK" "*DEFAULT-DSTATE-HOOKS*"
446              "MAKE-CODE-SEGMENT" "MAKE-OFFS-HOOK"
447              "DSTATE-SEGMENT" "DSTATE-CUR-OFFS"
448              "PRINC16" "INSTRUCTION" "DEFINE-INSTRUCTION-FORMAT"
449              "DSTATE-NEXT-OFFS" "INSTALL-INST-FLAVORS"
450              "SEG-SAP-MAKER" "DISASSEMBLE-ASSEM-SEGMENT"
451              "GEN-CLEAR-INFO-FORM" "READ-SUFFIX"
452              "MAP-SEGMENT-INSTRUCTIONS" "GEN-FORMAT-DEF-FORM"
453              "SET-LOCATION-PRINTING-RANGE" "MAKE-VECTOR-SEGMENT"
454              "ADD-OFFS-NOTE-HOOK" "ADD-OFFS-COMMENT-HOOK"
455              "DSTATE-CUR-ADDR" "DSTATE-NEXT-ADDR"))
456
457  #!+sb-interpreter
458  #s(sb-cold:package-data
459     :name "SB!EVAL"
460     :doc "private: the implementation of the IR1 interpreter"
461     :use ("CL" "SB!KERNEL" "SB!INT")
462     :export ("*EVAL-STACK-TRACE*" "*INTERNAL-APPLY-NODE-TRACE*"
463              "FLUSH-INTERPRETED-FUNCTION-CACHE" "INTERNAL-EVAL"
464              "INTERPRETED-FUNCTION"
465              "INTERPRETED-FUNCTION-ARGLIST"
466              "INTERPRETED-FUNCTION-CLOSURE"
467              "INTERPRETED-FUNCTION-LAMBDA-EXPRESSION"
468              "INTERPRETED-FUNCTION-NAME"
469              "INTERPRETED-FUNCTION-P"
470              "INTERPRETED-FUNCTION-TYPE"
471              "MAKE-INTERPRETED-FUNCTION"
472              "PRINT-INTERPRETED-FUNCTION-OBJECT"
473              "TRACE-EVAL"))
474
475  #s(sb-cold:package-data
476     :name "SB!EXT"
477     :doc "public: miscellaneous supported extensions to the ANSI Lisp spec"
478     ;; FIXME: Why don't we just USE-PACKAGE %KERNEL here instead of importing?
479     :use ("CL" "SB!ALIEN" "SB!C-CALL" "SB!INT" "SB!SYS" "SB!GRAY")
480     :reexport ("LOAD-FOREIGN" "LOAD-1-FOREIGN")
481     :export (;; Information about how the program was invoked is
482              ;; nonstandard but very useful.
483              "*POSIX-ARGV*" "POSIX-GETENV" "POSIX-ENVIRON"
484
485              ;; People have various good reasons to mess with the GC.
486              "*AFTER-GC-HOOKS*" "*BEFORE-GC-HOOKS*"
487              "*GC-NOTIFY-AFTER*" "*GC-NOTIFY-BEFORE*" "*GC-NOTIFY-STREAM*"
488              "BYTES-CONSED-BETWEEN-GCS"
489              "GC" "GC-OFF" "GC-ON" "GET-BYTES-CONSED"
490              "*GC-RUN-TIME*"
491              "PURIFY"
492
493              ;; There is no one right way to report progress on
494              ;; hairy compiles.
495              "*COMPILE-PROGRESS*"
496
497              ;; There is no one right way to do DESCRIBE.
498              "*DESCRIBE-INDENTATION-STEP*"
499
500              ;; There is no one right way to do efficiency notes.
501              "*EFFICIENCY-NOTE-COST-THRESHOLD*" "*EFFICIENCY-NOTE-LIMIT*"
502
503              ;; There's no one right way to report errors.
504              "*ENCLOSING-SOURCE-CUTOFF*"
505              "*UNDEFINED-WARNING-LIMIT*"
506
507              ;; and for dedicated users who really want to customize
508              ;; error reporting, we have
509              "DEF-SOURCE-CONTEXT"
510
511              ;; FIXME: These seem like the right thing, but are they
512              ;; consistent with ANSI? (And actually maybe they're not
513              ;; quite the right thing; it might be better to also do
514              ;; WITH-STANDARD-IO-SYNTAX or something.)
515              "*ERROR-PRINT-LENGTH*" "*ERROR-PRINT-LEVEL*" "*ERROR-PRINT-LINES*"
516
517              ;; KLUDGE: CMU CL had
518              ;; "*IGNORE-FLOATING-POINT-UNDERFLOW*", which seemed
519              ;; like a reasonable idea but doesn't seem to be supported
520              ;; now? -- WHN 19991206
521
522              ;; extended declarations..
523              "FREEZE-TYPE" "INHIBIT-WARNINGS"
524              "MAYBE-INLINE"
525
526              ;; ..and variables to control compiler policy
527              "*INLINE-EXPANSION-LIMIT*"
528              "*USE-IMPLEMENTATION-TYPES*"
529              "*BYTE-COMPILE-TOP-LEVEL*"
530              "*BYTE-COMPILE-DEFAULT*"
531              "*DERIVE-FUNCTION-TYPES*" ; FIXME FIXME FIXME FIXME..
532
533              ;; a special form for breaking out of our "declarations
534              ;; are assertions" default
535              "TRULY-THE"
536
537              ;; This is something which must exist inside any Common Lisp
538              ;; implementation, and which someone writing a customized toplevel
539              ;; might well want. It seems perverse to hide it from
540              ;; them..
541              "INTERACTIVE-EVAL"
542
543              ;; weak pointers and finalization
544              "CANCEL-FINALIZATION"
545              "FINALIZE"             
546              "HASH-TABLE-WEAK-P" "MAKE-WEAK-POINTER"
547              "WEAK-POINTER" "WEAK-POINTER-P" "WEAK-POINTER-VALUE"
548
549              ;; If the user knows we're doing IEEE, he might reasonably
550              ;; want to do this stuff.
551              "FLOAT-DENORMALIZED-P"
552              "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P"
553              "FLOATING-POINT-INVALID"
554              "FLOAT-INFINITY-P"
555              "SHORT-FLOAT-NEGATIVE-INFINITY"
556              "SHORT-FLOAT-POSITIVE-INFINITY"
557              "SINGLE-FLOAT-NEGATIVE-INFINITY"
558              "SINGLE-FLOAT-POSITIVE-INFINITY"
559              "DOUBLE-FLOAT-NEGATIVE-INFINITY"
560              "DOUBLE-FLOAT-POSITIVE-INFINITY"
561              "LONG-FLOAT-NEGATIVE-INFINITY"
562              "LONG-FLOAT-POSITIVE-INFINITY"
563
564              ;; hacks to work around system limitations
565              "*INTEXP-MAXIMUM-EXPONENT*" ; since we crash hard when
566                                          ; memory is exhausted
567
568              ;; saving Lisp images
569              "SAVE-LISP-AND-DIE"
570
571              ;; miscellaneous useful supported extensions
572              "QUIT"
573
574              ;; RUN-PROGRAM is not only useful for users, but also
575              ;; useful to implement parts of SBCL itself, so we're
576              ;; going to have to implement it anyway, so we might
577              ;; as well support it. And then once we're committed
578              ;; to implementing RUN-PROGRAM, it's nice to have it
579              ;; return a PROCESS object with operations defined on
580              ;; that object.
581              "RUN-PROGRAM"
582              "PROCESS-ALIVE-P" "PROCESS-CLOSE"
583              "PROCESS-CORE-DUMPED" "PROCESS-ERROR" "PROCESS-EXIT-CODE"
584              "PROCESS-INPUT" "PROCESS-KILL" "PROCESS-OUTPUT" "PROCESS-P"
585              "PROCESS-PID" "PROCESS-PLIST" "PROCESS-PTY" "PROCESS-STATUS"
586              "PROCESS-STATUS-HOOK" "PROCESS-WAIT"))
587
588  #s(sb-cold:package-data
589     :name "SB!FORMAT"
590     :doc "private: implementation of FORMAT and friends"
591     :use ("CL" "SB!KERNEL" "SB!EXT" "SB!INT"))
592
593  #s(sb-cold:package-data
594     :name "SB!GRAY"
595     :doc
596 "public: an implementation of the stream-definition-by-user
597 Lisp extension proposal by David N. Gray"
598     :use ("CL" "SB!KERNEL" "SB!EXT" "SB!INT")
599     :export ("FUNDAMENTAL-BINARY-STREAM" "FUNDAMENTAL-BINARY-INPUT-STREAM"
600              "FUNDAMENTAL-BINARY-OUTPUT-STREAM" "FUNDAMENTAL-CHARACTER-STREAM"
601              "FUNDAMENTAL-CHARACTER-INPUT-STREAM"
602              "FUNDAMENTAL-CHARACTER-OUTPUT-STREAM"
603              "FUNDAMENTAL-INPUT-STREAM" "FUNDAMENTAL-OUTPUT-STREAM"
604              "FUNDAMENTAL-STREAM"
605              "STREAM-ADVANCE-TO-COLUMN" "STREAM-CLEAR-INPUT"
606              "STREAM-CLEAR-OUTPUT" "STREAM-FINISH-OUTPUT" "STREAM-FORCE-OUTPUT"
607              "STREAM-FRESH-LINE" "STREAM-LINE-COLUMN" "STREAM-LINE-LENGTH"
608              "STREAM-LISTEN" "STREAM-PEEK-CHAR" "STREAM-READ-BYTE"
609              "STREAM-READ-CHAR" "STREAM-READ-CHAR-NO-HANG" "STREAM-READ-LINE"
610              "STREAM-START-LINE-P" "STREAM-TERPRI" "STREAM-UNREAD-CHAR"
611              "STREAM-WRITE-BYTE" "STREAM-WRITE-CHAR" "STREAM-WRITE-STRING"))
612
613  #s(sb-cold:package-data
614     :name "SB!INT"
615     :doc
616 "private: miscellaneous unsupported extensions to the ANSI spec. Most of
617 the stuff in here originated in CMU CL's EXTENSIONS package and is
618 retained, possibly temporariliy, because it might be used internally."
619     :use ("CL" "SB!ALIEN" "SB!C-CALL" "SB!SYS" "SB!GRAY")
620     :export ("*AFTER-SAVE-INITIALIZATIONS*" "*BEFORE-SAVE-INITIALIZATIONS*"
621
622              "*ALL-MODIFIER-NAMES*"
623              "*BACKUP-EXTENSION*"
624
625              ;; INFO stuff doesn't belong in a user-visible package, we
626              ;; should be able to change it without apology.
627              "*INFO-ENVIRONMENT*"
628              "CLEAR-INFO"
629              "COMPACT-INFO-ENVIRONMENT"
630              "DEFINE-INFO-CLASS" "DEFINE-INFO-TYPE"
631              "DO-INFO"
632              "INFO"
633              "MAKE-INFO-ENVIRONMENT"
634
635              ;; packages grabbed once and for all
636              "*KEYWORD-PACKAGE*" "*CL-PACKAGE*"
637
638              ;; hash mixing operations
639              "MIX" "MIXF"
640
641              ;; Arguably there's no one right value for the system
642              ;; prompt. But Common Lisp makes it easy for you to write
643              ;; your own REPL if you really care, so I'm not convinced we
644              ;; need this as a supported extension.
645              "*PROMPT*"
646
647              ;; I'm not convinced that FDEFINITIONs are the ideal
648              ;; solution, so exposing ways to peek into the system
649              ;; seems undesirable, since it makes it harder to get
650              ;; rid of FDEFINITIONs entirely later.
651              "*SETF-FDEFINITION-HOOK*"
652
653              ;; error-reporting facilities
654              "SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"
655              "SIMPLE-PROGRAM-ERROR" "SIMPLE-STREAM-ERROR"
656              "SIMPLE-STYLE-WARNING"
657              "STYLE-WARN"
658
659              ;; bootstrapping magic, to make things happen both in
660              ;; the cross-compilation host compiler's environment and
661              ;; in the cross-compiler's environment
662              "DEF!MACRO" "DEF!METHOD" "DEF!STRUCT" "DEF!TYPE"
663
664              ;; miscellaneous non-standard but handy user-level functions..
665              "ASSQ" "DELQ" "MEMQ" "POSQ" "NEQ"
666              "%FIND-PACKAGE-OR-LOSE" "FIND-UNDELETED-PACKAGE-OR-LOSE"
667              "SANE-PACKAGE"
668              "CIRCULAR-LIST-P"
669              "SWAPPED-ARGS-FUN"
670              "ANY/TYPE" "EVERY/TYPE"
671              "TYPE-BOUND-NUMBER"
672              "CONSTANTLY-T" "CONSTANTLY-NIL" "CONSTANTLY-0"
673              "PSXHASH"
674              "%BREAK"
675
676              ;; ..and macros..
677              "COLLECT"
678              "DO-ANONYMOUS" "DOHASH" "DOVECTOR"
679              "NAMED-LET"
680              "ONCE-ONLY"
681              "DEFENUM"
682              "DEFPRINTER"
683              "AVER" "AVER-TYPE" "ENFORCE-TYPE"
684
685              ;; ..and DEFTYPEs..
686              "INDEX" 
687
688              ;; ..and type predicates
689              "INSTANCEP"
690              "DOUBLE-FLOATP"
691              "LOGICAL-PATHNAME-P"
692              "LONG-FLOATP"
693              "SHORT-FLOATP"
694              "SINGLE-FLOATP"
695              "FIXNUMP"
696              "BIGNUMP"
697              "RATIOP" 
698
699              ;; encapsulation
700              "ARGUMENT-LIST"
701              "BASIC-DEFINITION"
702              "ENCAPSULATE" "ENCAPSULATED-DEFINITION" "ENCAPSULATED-P"
703              "UNENCAPSULATE"
704
705              ;; various CHAR-CODEs
706              "BELL-CHAR-CODE" "ESCAPE-CHAR-CODE" "FORM-FEED-CHAR-CODE"
707              "RETURN-CHAR-CODE" "RUBOUT-CHAR-CODE" "TAB-CHAR-CODE"
708
709              ;; symbol-hacking idioms
710              "KEYWORDICATE" "SYMBOLICATE"
711
712              ;; search lists (FIXME: should go away)
713              "ENUMERATE-SEARCH-LIST"
714              "CLEAR-SEARCH-LIST"
715              "SEARCH-LIST"
716              "SEARCH-LIST-DEFINED-P"
717
718              ;; certainly doesn't belong in public extensions
719              ;; FIXME: maybe belongs in %KERNEL with other typesystem stuff?
720              "CONSTANT-ARGUMENT"
721
722              ;; various internal defaults
723              "*DEFAULT-PACKAGE-USE-LIST*"
724              "DEFAULT-INIT-CHAR"
725              "*LOAD-SOURCE-DEFAULT-TYPE*"
726
727              ;; hash caches
728              "DEFINE-HASH-CACHE"
729              "DEFUN-CACHED"
730
731              ;; time
732              "FORMAT-DECODED-TIME"
733              "FORMAT-UNIVERSAL-TIME"
734              "PARSE-TIME"
735
736              ;; indenting
737              "MAKE-INDENTING-STREAM"
738              "INDENTING-FURTHER"
739
740              ;; stream commands, used by the debugger
741              "GET-STREAM-COMMAND" "MAKE-STREAM-COMMAND" "STREAM-COMMAND"
742              "STREAM-COMMAND-ARGS" "STREAM-COMMAND-NAME" "STREAM-COMMAND-P"
743
744              ;; used for FORMAT tilde paren
745              "MAKE-CASE-FROB-STREAM"
746
747              ;; helpers for C library calls
748              "STRERROR" "SIMPLE-PERROR"
749
750              ;; debuggers' little helpers
751              #!+sb-show "*/SHOW*"
752              #!+sb-show "HEXSTR"
753              "/SHOW"  "/NOSHOW"
754              "/XHOW"  "/NOXHOW"
755              "/SHOW0" "/NOSHOW0"
756              "/HEXSTR" "/NOHEXSTR"
757              "/PRIMITIVE-PRINT" "/NO-PRIMITIVE-PRINT"
758
759              ;; cross-compilation bootstrap hacks which turn into
760              ;; placeholders in a target system
761              "UNCROSS" 
762
763              ;; might as well be shared among the various files which
764              ;; need it:
765              "*EOF-OBJECT*"
766
767              ;; alien interface utilities
768              "C-STRINGS->STRING-LIST"
769
770              ;; misc. utilities used internally
771              "LEGAL-FUNCTION-NAME-P"
772              "FUNCTION-NAME-BLOCK-NAME"
773              "WHITESPACE-CHAR-P"
774              "LISTEN-SKIP-WHITESPACE"
775              "PACKAGE-INTERNAL-SYMBOL-COUNT" "PACKAGE-EXTERNAL-SYMBOL-COUNT"
776              "PROPER-LIST-OF-LENGTH-P"
777              "LIST-OF-LENGTH-AT-LEAST-P"
778              "READ-SEQUENCE-OR-DIE"
779              "RENAME-KEY-ARGS"
780              "REQUIRED-ARGUMENT"
781              "UNIX-NAMESTRING" ; FIXME: perhaps belongs in package SB!UNIX
782              "FEATUREP"
783              "FLUSH-STANDARD-OUTPUT-STREAMS"
784              "MAKE-GENSYM-LIST"
785              "DEFCONSTANT-EQX"
786              "ABOUT-TO-MODIFY"
787              "PRINT-PRETTY-ON-STREAM-P"
788
789              ;; These could be moved back into SB!EXT if someone has
790              ;; compelling reasons, but hopefully we can get by
791              ;; without supporting them, at least not as publicly
792              ;; accessible things with fixed interfaces.
793              "DEFAULT-DIRECTORY"
794              "GET-FLOATING-POINT-MODES" "SET-FLOATING-POINT-MODES"
795              "WITH-FLOAT-TRAPS-MASKED"
796              "DEFINE-HASH-TABLE-TEST"
797              "*GC-INHIBIT-HOOK*"
798
799              ;; compatibility hacks for old-style CMU CL data formats
800              "UNIX-ENVIRONMENT-CMUCL-FROM-SBCL"
801              "UNIX-ENVIRONMENT-SBCL-FROM-CMUCL"
802
803              ;; a sort of quasi unbound tag for use in hash tables
804              "+EMPTY-HT-SLOT+"
805
806              ;; not used any more, I think -- WHN 19991206
807              #+nil
808              ("SERVE-BUTTON-PRESS"
809               "SERVE-BUTTON-RELEASE" "SERVE-CIRCULATE-NOTIFY"
810               "SERVE-CIRCULATE-REQUEST" "SERVE-CLIENT-MESSAGE"
811               "SERVE-COLORMAP-NOTIFY" "SERVE-CONFIGURE-NOTIFY"
812               "SERVE-CONFIGURE-REQUEST" "SERVE-CREATE-NOTIFY"
813               "SERVE-DESTROY-NOTIFY" "SERVE-ENTER-NOTIFY" "SERVE-EXPOSURE"
814               "SERVE-FOCUS-IN" "SERVE-FOCUS-OUT" "SERVE-GRAPHICS-EXPOSURE"
815               "SERVE-GRAVITY-NOTIFY" "SERVE-KEY-PRESS" "SERVE-KEY-RELEASE"
816               "SERVE-LEAVE-NOTIFY" "SERVE-MAP-NOTIFY" "SERVE-MAP-REQUEST"
817               "SERVE-MOTION-NOTIFY" "SERVE-NO-EXPOSURE" "SERVE-PROPERTY-NOTIFY"
818               "SERVE-REPARENT-NOTIFY" "SERVE-RESIZE-REQUEST"
819               "SERVE-SELECTION-CLEAR" "SERVE-SELECTION-NOTIFY"
820               "SERVE-SELECTION-REQUEST" "SERVE-UNMAP-NOTIFY"
821               "SERVE-VISIBILITY-NOTIFY")))
822
823  #s(sb-cold:package-data
824     :name "SB!ITERATE"
825     :doc "private: an iteration facility used to implement PCL"
826     :use ("CL" "SB!WALKER" "SB!INT" "SB!EXT")
827     :export ("ITERATE" "ITERATE*" "GATHERING" "GATHER"
828              "WITH-GATHERING" "INTERVAL" "ELEMENTS"
829              "LIST-ELEMENTS" "LIST-TAILS" "PLIST-ELEMENTS"
830              "EACHTIME" "WHILE" "UNTIL" "COLLECTING" "JOINING"
831              "MAXIMIZING" "MINIMIZING" "SUMMING"
832              "*ITERATE-WARNINGS*"))
833
834  #s(sb-cold:package-data
835     :name "SB!KERNEL"
836     :doc
837 "private: Theoretically this 'hides state and types used for package
838 integration' (said CMU CL architecture.tex) and that probably was and
839 is a good idea, but see SB-SYS for blurring of boundaries."
840     :use ("CL" "SB!ALIEN" "SB!ALIEN-INTERNALS" "SB!BIGNUM"
841           "SB!EXT" "SB!INT" "SB!SYS" "SB!GRAY")
842     :import-from (("SB!C-CALL" "VOID"))
843     :reexport ("DEF!STRUCT" "DEF!MACRO" "VOID" "WEAK-POINTER-P")
844     :export ("%ACOS" "%ACOSH" "%ARRAY-AVAILABLE-ELEMENTS"
845              "%ARRAY-DATA-VECTOR" "%ARRAY-DIMENSION"
846              "%ARRAY-DISPLACED-P"
847              "%ARRAY-DISPLACEMENT" "%ARRAY-FILL-POINTER"
848              "%ARRAY-FILL-POINTER-P"
849              "%ASIN" "%ASINH"
850              "%ATAN" "%ATAN2" "%ATANH"
851              "%CALLER-FRAME-AND-PC" "%CHECK-BOUND" "%CLOSURE-FUNCTION"
852              "%CLOSURE-INDEX-REF" "%COS" "%COS-QUICK"
853              "%COSH" "%DEPOSIT-FIELD"
854              "%DOUBLE-FLOAT" "%DPB" "%EXP" "%EXPM1"
855              "%HYPOT" "%INSTANCE-SET-CONDITIONAL" "%LDB"
856              "%LOG" "%LOGB" "%LOG10" "%LOG1P" "%LONG-FLOAT"
857              "%MAKE-COMPLEX" "%MAKE-FUNCALLABLE-INSTANCE" "%MAKE-RATIO"
858              "%MAP" "%MAP-TO-SIMPLE-VECTOR-ARITY-1" "%MAP-TO-LIST-ARITY-1"
859              "%MAP-TO-NIL-ON-SEQUENCE" "%MAP-TO-NIL-ON-SIMPLE-VECTOR"
860              "%MAP-TO-NIL-ON-VECTOR" "%MASK-FIELD" "%NEGATE" "%POW"
861              "%PUTHASH" "%RAW-BITS" "%RAW-REF-COMPLEX-DOUBLE"
862              "%RAW-REF-COMPLEX-LONG"
863              "%RAW-REF-COMPLEX-SINGLE" "%RAW-REF-DOUBLE"
864              "%RAW-REF-LONG"
865              "%RAW-REF-SINGLE" "%RAW-SET-COMPLEX-DOUBLE"
866              "%RAW-SET-COMPLEX-LONG" "%RAW-SET-COMPLEX-SINGLE"
867              "%RAW-SET-DOUBLE" "%RAW-SET-LONG" "%RAW-SET-SINGLE"
868              "%SCALB" "%SCALBN" "%SET-FUNCALLABLE-INSTANCE-FUNCTION"
869              "%SET-FUNCALLABLE-INSTANCE-INFO" "%SET-RAW-BITS"
870              "%SET-SAP-REF-16" "%SET-SAP-REF-32" "%SET-SAP-REF-64"
871              "%SET-SAP-REF-8" "%SET-SAP-REF-DOUBLE" "%SET-SAP-REF-LONG"
872              "%SET-SAP-REF-SAP" "%SET-SAP-REF-SINGLE"
873              "%SET-SIGNED-SAP-REF-16" "%SET-SIGNED-SAP-REF-32"
874              "%SET-SIGNED-SAP-REF-64" "%SET-SIGNED-SAP-REF-8"
875              "%SET-STACK-REF" "%SIN" "%SIN-QUICK"
876              "%SINGLE-FLOAT" "%SINH" "%SP-SET-DEFINITION"
877              "%SP-SET-PLIST"
878              "%SQRT" "%SXHASH-SIMPLE-STRING"
879              "%SXHASH-SIMPLE-SUBSTRING" "%TAN" "%TAN-QUICK"
880              "%TANH" "%UNARY-ROUND" "%UNARY-TRUNCATE"
881              "%WITH-ARRAY-DATA" "WITH-ARRAY-DATA"
882              "*ALREADY-MAYBE-GCING*"
883              "*CURRENT-LEVEL*" "*EMPTY-TYPE*"
884              "*EVAL-STACK-TOP*" "*GC-INHIBIT*"
885              "*NEED-TO-COLLECT-GARBAGE*"
886              "*PRETTY-PRINTER*" "*UNIVERSAL-TYPE*"
887              "*UNPARSE-FUNCTION-TYPE-SIMPLIFY*" "*WILD-TYPE*"
888              "32BIT-LOGICAL-AND" "32BIT-LOGICAL-ANDC1"
889              "32BIT-LOGICAL-ANDC2"
890              "32BIT-LOGICAL-EQV" "32BIT-LOGICAL-NAND"
891              "32BIT-LOGICAL-NOR"
892              "32BIT-LOGICAL-NOT" "32BIT-LOGICAL-OR"
893              "32BIT-LOGICAL-ORC1"
894              "32BIT-LOGICAL-ORC2" "32BIT-LOGICAL-XOR"
895              "ALIEN-TYPE-TYPE"
896              "ALIEN-TYPE-TYPE-ALIEN-TYPE" "ALIEN-TYPE-TYPE-P"
897              "ALLOCATE-VECTOR"
898              "ALWAYS-SUBTYPEP" "ARGS-TYPE" "ARGS-TYPE-ALLOWP"
899              "ARGS-TYPE-KEYP"
900              "ARGS-TYPE-KEYWORDS" "ARGS-TYPE-OPTIONAL" "ARGS-TYPE-P"
901              "ARGS-TYPE-REQUIRED" "ARGS-TYPE-REST"
902              "ARRAY-HEADER-P" "ARRAY-TYPE" "ARRAY-TYPE-COMPLEXP"
903              "ARRAY-TYPE-DIMENSIONS" "ARRAY-TYPE-ELEMENT-TYPE"
904              "ARRAY-TYPE-P"
905              "ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE" "ASH-INDEX"
906              "ASSERT-ERROR" "BASE-CHAR-P"
907              "!BEGIN-COLLECTING-COLD-INIT-FORMS"
908              "BINDING-STACK-POINTER-SAP" "BIT-BASH-AND"
909              "BIT-BASH-ANDC1"
910              "BIT-BASH-ANDC2" "BIT-BASH-CLEAR" "BIT-BASH-COPY"
911              "BIT-BASH-EQV"
912              "BIT-BASH-IOR" "BIT-BASH-LOGNAND" "BIT-BASH-LOGNOR"
913              "BIT-BASH-NOT"
914              "BIT-BASH-ORC1" "BIT-BASH-ORC2" "BIT-BASH-SET"
915              "BIT-BASH-XOR"
916              "BIT-INDEX" "BOGUS-ARGUMENT-TO-VALUES-LIST-ERROR"
917              "BOOLE-CODE"
918              "BYTE-SPECIFIER" "CALLABLE" "CASE-BODY-ERROR"
919              "CHARPOS"
920              "CHECK-FOR-CIRCULARITY" "CHECK-TYPE-ERROR"
921              "CLOSED-FLAME"
922              "CODE-COMPONENT" "CODE-COMPONENT-P"
923              "CODE-DEBUG-INFO" "CODE-HEADER-REF" "CODE-HEADER-SET"
924              "CODE-INSTRUCTIONS"
925              "COERCE-TO-BIT-VECTOR" "COERCE-TO-FUNCTION"
926              "COERCE-TO-LIST" "COERCE-TO-SIMPLE-STRING"
927              "COERCE-TO-SIMPLE-VECTOR" "COERCE-TO-VECTOR"
928              "*COLD-INIT-COMPLETE-P*"
929              "!COLD-INIT-FORMS" "COMPLEX-DOUBLE-FLOAT-P"
930              "COMPLEX-FLOAT-P" "COMPLEX-LONG-FLOAT-P"
931              "COMPLEX-RATIONAL-P" "COMPLEX-SINGLE-FLOAT-P" "COMPLEX-VECTOR-P"
932              "COMPOUND-TYPE" "COMPOUND-TYPE-P" "COMPOUND-TYPE-TYPES"
933              "CONS-TYPE" "CONS-TYPE-CAR-TYPE" "CONS-TYPE-CDR-TYPE"
934              "CONS-TYPE-P"
935              "CONSED-SEQUENCE" "CONSTANT" "CONSTANT-TYPE"
936              "CONSTANT-TYPE-P" "CONSTANT-TYPE-TYPE"
937              "CONTAINING-INTEGER-TYPE"
938              "CONTROL-STACK-POINTER-SAP" "COPY-FROM-SYSTEM-AREA"
939              "COPY-TO-SYSTEM-AREA"
940              "COPY-BYTE-VECTOR-TO-SYSTEM-AREA"
941              "CSUBTYPEP" "CTYPE" "TYPE-HASH-VALUE"
942              "CTYPE-OF" "CTYPE-P" "CTYPEP" "CURRENT-FP" "CURRENT-SP"
943              "DATA-VECTOR-REF" "DATA-VECTOR-SET" "DECODE-DOUBLE-FLOAT"
944              "DECODE-LONG-FLOAT" "DECODE-SINGLE-FLOAT"
945              "DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P"
946              "DESCEND-INTO"
947              "DIVISION-BY-ZERO-ERROR"
948              "DOUBLE-FLOAT-EXPONENT" "DOUBLE-FLOAT-HIGH-BITS"
949              "DOUBLE-FLOAT-INT-EXPONENT" "DOUBLE-FLOAT-LOW-BITS"
950              "DOUBLE-FLOAT-SIGNIFICAND"
951              "DOUBLE-FLOAT-P" "FLOAT-WAIT"
952              "DYNAMIC-SPACE-FREE-POINTER"
953              "!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS"
954              "ERROR-NUMBER-OR-LOSE" "FDOCUMENTATION" "FILENAME"
955              "FIND-AND-INIT-OR-CHECK-LAYOUT"
956              "FLOAT-EXPONENT" "FLOAT-FORMAT-DIGITS" "FLOAT-FORMAT-NAME"
957              "FLOAT-FORMAT-MAX" "FLOATING-POINT-EXCEPTION"
958              "FORM" "FUNCALLABLE-INSTANCE-P"
959              "FUNCTION-CODE-HEADER" "FUNCTION-DOC"
960              "FUNCTION-TYPE"
961              "FUNCTION-TYPE-ALLOWP"
962              "FUNCTION-TYPE-KEYP" "FUNCTION-TYPE-KEYWORDS"
963              "FUNCTION-TYPE-NARGS" "FUNCTION-TYPE-OPTIONAL"
964              "FUNCTION-TYPE-P"
965              "FUNCTION-TYPE-REQUIRED" "FUNCTION-TYPE-REST"
966              "FUNCTION-TYPE-RETURNS" "FUNCTION-TYPE-WILD-ARGS"
967              "FUNCTION-WORD-OFFSET" "GET-CLOSURE-LENGTH"
968              "GET-HEADER-DATA"
969              "GET-LISP-OBJ-ADDRESS" "GET-LOWTAG"
970              "GET-TYPE"
971              "HAIRY-DATA-VECTOR-REF" "HAIRY-DATA-VECTOR-SET" "HAIRY-TYPE"
972              "HAIRY-TYPE-CHECK-TEMPLATE-NAME" "HAIRY-TYPE-SPECIFIER"
973              "HANDLE-CIRCULARITY" "IGNORE-IT"
974              "ILL-BIN" "ILL-BOUT" "ILL-IN" "ILL-OUT"
975              "INDEX-TOO-LARGE-ERROR" "INTEGER-DECODE-DOUBLE-FLOAT"
976              "INTEGER-DECODE-LONG-FLOAT" "INTEGER-DECODE-SINGLE-FLOAT"
977              "INTERNAL-ERROR" "INTERNAL-TIME"
978              "INTERSECTION-TYPE" "INTERSECTION-TYPE-P"
979              "INTERSECTION-TYPE-TYPES"
980              "INVALID-ARGUMENT-COUNT-ERROR" "INVALID-ARRAY-INDEX-ERROR"
981              "INVALID-UNWIND-ERROR" "IRRATIONAL"
982              "JUST-DUMP-IT-NORMALLY"
983              "KEY-INFO" "KEY-INFO-NAME"
984              "KEY-INFO-P" "KEY-INFO-TYPE"
985              "LAYOUT-DEPTHOID"
986              "LAYOUT-INVALID-ERROR" "LEXENV"
987              "LINE-LENGTH"
988              "LISP-STREAM"
989              "LISP-STREAM-BIN" "LISP-STREAM-BOUT"
990              "LISP-STREAM-IN" "LISP-STREAM-IN-BUFFER"
991              "LISP-STREAM-IN-INDEX"
992              "LISP-STREAM-MISC" "LISP-STREAM-N-BIN"
993              "LISP-STREAM-OUT" "LISP-STREAM-SOUT"
994              "LIST-TO-SIMPLE-STRING*" "LIST-TO-BIT-VECTOR*"
995              "LIST-TO-VECTOR*" 
996              "LONG-FLOAT-EXPONENT" "LONG-FLOAT-EXP-BITS"
997              "LONG-FLOAT-HIGH-BITS"
998              "LONG-FLOAT-LOW-BITS" "LONG-FLOAT-MID-BITS" "LONG-FLOAT-P"
999              "LONG-FLOAT-RADIX" "LONG-WORDS"
1000              "LRA" "LRA-CODE-HEADER" "LRA-P"
1001              "MAKE-ALIEN-TYPE-TYPE" "MAKE-ARGS-TYPE"
1002              "MAKE-ARRAY-HEADER" "MAKE-ARRAY-TYPE" "MAKE-CONS-TYPE"
1003              "MAKE-DOUBLE-FLOAT" "MAKE-FUNCTION-TYPE"
1004              "MAKE-KEY-INFO" "MAKE-LISP-OBJ" "MAKE-LONG-FLOAT"
1005              "MAKE-MEMBER-TYPE" "MAKE-NAMED-TYPE"
1006              "MAKE-NULL-LEXENV" "MAKE-NUMERIC-TYPE"
1007              "MAKE-SINGLE-FLOAT" "MAKE-SPECIALIZABLE-ARRAY"
1008              "%MAKE-INSTANCE"
1009              "MAKE-VALUES-TYPE"
1010              "MAYBE-GC" "MEMBER-TYPE" "MEMBER-TYPE-MEMBERS"
1011              "MEMBER-TYPE-P" "MERGE-BITS" "MODIFIED-NUMERIC-TYPE"
1012              "DEFMACRO-MUNDANELY" "MUTATOR-SELF"
1013              "NAMED-TYPE" "NAMED-TYPE-NAME" "NAMED-TYPE-P"
1014              "NATIVE-BYTE-ORDER" "NEGATE"
1015              "NEVER-SUBTYPEP" "NIL-FUNCTION-RETURNED-ERROR"
1016              "NOT-<=-ERROR" "NOT-=-ERROR"
1017              "NOT-DUMPED-AT-ALL"
1018              "NUMERIC-CONTAGION" "NUMERIC-TYPE"
1019              "NUMERIC-TYPE-CLASS" "NUMERIC-TYPE-COMPLEXP"
1020              "NUMERIC-TYPE-FORMAT"
1021              "NUMERIC-TYPE-HIGH" "NUMERIC-TYPE-LOW" "NUMERIC-TYPE-P"
1022              "OBJECT-NOT-ARRAY-ERROR" "OBJECT-NOT-BASE-CHAR-ERROR"
1023              "OBJECT-NOT-BIGNUM-ERROR" "OBJECT-NOT-BIT-VECTOR-ERROR"
1024              "OBJECT-NOT-COERCEABLE-TO-FUNCTION-ERROR"
1025              "OBJECT-NOT-COMPLEX-ERROR"
1026              "OBJECT-NOT-COMPLEX-FLOAT-ERROR"
1027              "OBJECT-NOT-COMPLEX-SINGLE-FLOAT-ERROR"
1028              "OBJECT-NOT-COMPLEX-LONG-FLOAT-ERROR"
1029              "OBJECT-NOT-COMPLEX-DOUBLE-FLOAT-ERROR"
1030              "OBJECT-NOT-COMPLEX-RATIONAL-ERROR"
1031              ;; FIXME: It's confusing using "complex" to mean
1032              ;; both "not on the real number line" and "not of
1033              ;; a SIMPLE-ARRAY nature". Perhaps we could rename
1034              ;; all the uses in the second sense as "hairy" instead?
1035              "OBJECT-NOT-COMPLEX-VECTOR-ERROR"
1036              "OBJECT-NOT-CONS-ERROR"
1037              "OBJECT-NOT-DOUBLE-FLOAT-ERROR" "OBJECT-NOT-FIXNUM-ERROR"
1038              "OBJECT-NOT-FLOAT-ERROR" "OBJECT-NOT-FUNCTION-ERROR"
1039              "OBJECT-NOT-FUNCTION-OR-SYMBOL-ERROR"
1040              "OBJECT-NOT-INSTANCE-ERROR"
1041              "OBJECT-NOT-INTEGER-ERROR"
1042              "OBJECT-NOT-LIST-ERROR" "OBJECT-NOT-LONG-FLOAT-ERROR"
1043              "OBJECT-NOT-NUMBER-ERROR"
1044              "OBJECT-NOT-RATIO-ERROR" "OBJECT-NOT-RATIONAL-ERROR"
1045              "OBJECT-NOT-REAL-ERROR" "OBJECT-NOT-SAP-ERROR"
1046              "OBJECT-NOT-SIGNED-BYTE-32-ERROR"
1047              "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-ERROR"
1048              "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-ERROR"
1049              "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-ERROR"
1050              "OBJECT-NOT-SIMPLE-ARRAY-DOUBLE-FLOAT-ERROR"
1051              "OBJECT-NOT-SIMPLE-ARRAY-ERROR"
1052              "OBJECT-NOT-SIMPLE-ARRAY-LONG-FLOAT-ERROR"
1053              "OBJECT-NOT-SIMPLE-ARRAY-SINGLE-FLOAT-ERROR"
1054              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-16-ERROR"
1055              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-2-ERROR"
1056              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-32-ERROR"
1057              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-4-ERROR"
1058              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-8-ERROR"
1059              "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-16-ERROR"
1060              "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-30-ERROR"
1061              "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-32-ERROR"
1062              "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-8-ERROR"
1063              "OBJECT-NOT-SIMPLE-BIT-VECTOR-ERROR"
1064              "OBJECT-NOT-SIMPLE-STRING-ERROR"
1065              "OBJECT-NOT-SIMPLE-VECTOR-ERROR"
1066              "OBJECT-NOT-SINGLE-FLOAT-ERROR" "OBJECT-NOT-STRING-ERROR"
1067              "OBJECT-NOT-INSTANCE-ERROR" "OBJECT-NOT-SYMBOL-ERROR"
1068              "OBJECT-NOT-TYPE-ERROR"
1069              "OBJECT-NOT-UNSIGNED-BYTE-32-ERROR"
1070              "OBJECT-NOT-VECTOR-ERROR" "OBJECT-NOT-WEAK-POINTER-ERROR"
1071              "ODD-KEY-ARGUMENTS-ERROR"
1072              "OUTPUT-OBJECT" "OUTPUT-UGLY-OBJECT"
1073              "PACKAGE-DOC-STRING"
1074              "PACKAGE-HASHTABLE-SIZE" "PACKAGE-HASHTABLE-FREE"
1075              "PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"
1076              "PARSE-DEFMACRO" "PARSE-LAMBDA-LIST" "PARSE-UNKNOWN-TYPE"
1077              "PARSE-UNKNOWN-TYPE-SPECIFIER"
1078              "PATHNAME-DESIGNATOR" "PUNT-PRINT-IF-TOO-LONG"
1079              "READER-PACKAGE-ERROR"
1080              #!+gengc "*SAVED-STATE-CHAIN*"
1081              "SCALE-DOUBLE-FLOAT" "SCALE-LONG-FLOAT"
1082              "SCALE-SINGLE-FLOAT"
1083              "SEQUENCE-END" "SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE"
1084              "SET-HEADER-DATA" "SHIFT-TOWARDS-END"
1085              "SHIFT-TOWARDS-START" "SHRINK-VECTOR" "SIGNED-BYTE-32-P"
1086              "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-P"
1087              "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-P"
1088              "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-P"
1089              "SIMPLE-ARRAY-DOUBLE-FLOAT-P" "SIMPLE-ARRAY-LONG-FLOAT-P"
1090              "SIMPLE-ARRAY-P"
1091              "SIMPLE-ARRAY-SINGLE-FLOAT-P"
1092              "SIMPLE-ARRAY-UNSIGNED-BYTE-16-P"
1093              "SIMPLE-ARRAY-UNSIGNED-BYTE-2-P"
1094              "SIMPLE-ARRAY-UNSIGNED-BYTE-32-P"
1095              "SIMPLE-ARRAY-UNSIGNED-BYTE-4-P"
1096              "SIMPLE-ARRAY-UNSIGNED-BYTE-8-P"
1097              "SIMPLE-ARRAY-SIGNED-BYTE-16-P"
1098              "SIMPLE-ARRAY-SIGNED-BYTE-30-P"
1099              "SIMPLE-ARRAY-SIGNED-BYTE-32-P"
1100              "SIMPLE-ARRAY-SIGNED-BYTE-8-P"
1101              "SIMPLE-PACKAGE-ERROR"
1102              "SIMPLE-UNBOXED-ARRAY"
1103              "SINGLE-FLOAT-BITS" "SINGLE-FLOAT-EXPONENT"
1104              "SINGLE-FLOAT-INT-EXPONENT" "SINGLE-FLOAT-P"
1105              "SINGLE-FLOAT-SIGNIFICAND"
1106              "SINGLE-VALUE-TYPE" "SPECIALIZABLE" "SPECIALIZABLE-VECTOR"
1107              "SPECIFIER-TYPE" "STACK-REF"
1108              "STREAMLIKE" "STRINGABLE"
1109              "STRUCTURE-RAW-SLOT-TYPE-AND-SIZE"
1110              "%INSTANCE-LENGTH"
1111              "%INSTANCE-REF" "%INSTANCE-SET"
1112              "STRING-TO-SIMPLE-STRING"
1113              "SYSTEM-AREA-CLEAR"
1114              "SYSTEM-AREA-COPY" "TWO-ARG-*"
1115              "TRY-TO-RENAME-INTERPRETED-FUNCTION-AS-MACRO"
1116              "TWO-ARG-+" "TWO-ARG--"
1117              "TWO-ARG-/" "TWO-ARG-/=" "TWO-ARG-<"
1118              "TWO-ARG-<=" "TWO-ARG-="
1119              "TWO-ARG->" "TWO-ARG->=" "TWO-ARG-AND"
1120              "TWO-ARG-GCD" "TWO-ARG-IOR"
1121              "TWO-ARG-LCM" "TWO-ARG-XOR"
1122              "TYPE-DIFFERENCE" "TYPE-EXPAND"
1123              "TYPE-INTERSECTION" "TYPE-INTERSECTION2"
1124              "TYPE-APPROX-INTERSECTION2"
1125              "TYPE-SPECIFIER" "TYPE-UNION" "TYPE/=" "TYPE="
1126              "TYPES-EQUAL-OR-INTERSECT"
1127              "UNBOUND-SYMBOL-ERROR" "UNBOXED-ARRAY"
1128              "UNDEFINED-SYMBOL-ERROR" "UNION-TYPE" "UNION-TYPE-P"
1129              "UNION-TYPE-TYPES" "UNKNOWN-ERROR"
1130              "UNKNOWN-KEY-ARGUMENT-ERROR"
1131              "UNKNOWN-TYPE" "UNKNOWN-TYPE-P"
1132              "UNKNOWN-TYPE-SPECIFIER" "UNSEEN-THROW-TAG-ERROR"
1133              "UNSIGNED-BYTE-32-P" "VALUES-SPECIFIER-TYPE"
1134              "VALUES-SPECIFIER-TYPE-CACHE-CLEAR" "VALUES-SUBTYPEP"
1135              "VALUES-TYPE"
1136              "VALUES-TYPE-INTERSECTION" "VALUES-TYPE-KEYP"
1137              "VALUES-TYPE-KEYWORDS" "VALUES-TYPE-OPTIONAL"
1138              "VALUES-TYPE-P" "VALUES-TYPE-REQUIRED"
1139              "VALUES-TYPE-REST" "VALUES-TYPE-UNION"
1140              "VALUES-TYPES" "VALUES-TYPES-EQUAL-OR-INTERSECT" "VECTOR-T-P"
1141              "VECTOR-TO-VECTOR*" "VECTOR-TO-SIMPLE-STRING*"
1142              "VECTOR-TO-BIT-VECTOR*" "VECTOR-TO-SIMPLE-BIT-VECTOR*"
1143              "VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH"
1144              "WITH-CIRCULARITY-DETECTION" "WITH-TYPE-CACHES"
1145              "WRONG-NUMBER-OF-INDICES-ERROR"
1146
1147              "FDEFN" "MAKE-FDEFN" "FDEFN-P"
1148              "FDEFN-NAME" "FDEFN-FUNCTION"
1149              "FDEFN-MAKUNBOUND" "%COERCE-NAME-TO-FUNCTION"
1150              "%COERCE-CALLABLE-TO-FUNCTION"
1151              "FUNCTION-SUBTYPE" "*MAXIMUM-ERROR-DEPTH*"
1152              "%SET-SYMBOL-PLIST" "INFINITE-ERROR-PROTECT"
1153              "FIND-CALLER-NAME-AND-FRAME"
1154              "%SET-SYMBOL-VALUE" "%SET-SYMBOL-PACKAGE"
1155              "OUTPUT-SYMBOL-NAME"
1156              "FSET" "RAW-DEFINITION"
1157              "INVOKE-MACROEXPAND-HOOK"
1158              "DEFAULT-STRUCTURE-PRINT"
1159              "LAYOUT" "LAYOUT-LENGTH"
1160              "LAMBDA-WITH-ENVIRONMENT" "LAYOUT-PURE" "DSD-RAW-TYPE"
1161              "%COMPILER-DEFSTRUCT"
1162              "%COMPILER-ONLY-DEFSTRUCT" "FUNCTION-%COMPILER-ONLY-DEFSTRUCT"
1163              "DEFSTRUCT-DESCRIPTION" "UNDEFINE-STRUCTURE"
1164              "DD-COPIER" "UNDEFINE-FUNCTION-NAME" "DD-TYPE"
1165              "CLASS-STATE" "INSTANCE"
1166              "*TYPE-SYSTEM-INITIALIZED*" "FIND-LAYOUT"
1167              "DSD-NAME" "%TYPEP" "DD-RAW-INDEX"
1168              "DD-NAME" "CLASS-SUBCLASSES"
1169              "CLASS-LAYOUT" "CLASS-%NAME"
1170              "DD-RAW-LENGTH" "NOTE-NAME-DEFINED"
1171              "%CODE-CODE-SIZE" "DD-SLOTS"
1172              "%IMAGPART" "DSD-ACCESSOR"
1173              "%CODE-DEBUG-INFO" "DSD-%NAME"
1174              "LAYOUT-CLASS" "LAYOUT-INVALID"
1175              "%FUNCTION-NAME" "DSD-TYPE" "%INSTANCEP"
1176              "DEFSTRUCT-SLOT-DESCRIPTION" "%FUNCTION-ARGLIST"
1177              "%FUNCTION-NEXT" "LAYOUT-CLOS-HASH-LENGTH" "DD-PREDICATE"
1178              "CLASS-PROPER-NAME" "%NOTE-TYPE-DEFINED" "LAYOUT-INFO"
1179              "%SET-INSTANCE-LAYOUT" "DD-DEFAULT-CONSTRUCTOR"
1180              "LAYOUT-OF" "%FUNCTION-SELF" "%REALPART"
1181              "STRUCTURE-CLASS-P" "DSD-INDEX"
1182              "%INSTANCE-LAYOUT" "LAYOUT-CLOS-HASH"
1183              "%FUNCTION-TYPE" "PROCLAIM-AS-FUNCTION-NAME"
1184              "BECOME-DEFINED-FUNCTION-NAME"
1185              "%%COMPILER-DEFSTRUCT" "%NUMERATOR" "CLASS-TYPEP"
1186              "STRUCTURE-CLASS-PRINT-FUNCTION" "DSD-READ-ONLY"
1187              "LAYOUT-INHERITS" "DD-LENGTH" "%CODE-ENTRY-POINTS"
1188              "%DENOMINATOR"
1189              "BYTE-FUNCTION-OR-CLOSURE" "MAKE-STANDARD-CLASS"
1190              "BYTE-FUNCTION-NAME" "CLASS-CELL-TYPEP" "BYTE-CLOSURE"
1191              "FIND-CLASS-CELL" "EXTRACT-FUNCTION-TYPE"
1192              "FUNCALLABLE-STRUCTURE-CLASS"
1193              "%RANDOM-DOUBLE-FLOAT" "%RANDOM-LONG-FLOAT"
1194              "%RANDOM-SINGLE-FLOAT"
1195              "RANDOM-PCL-CLASS" "BASIC-STRUCTURE-CLASS-PRINT-FUNCTION"
1196              "%FUNCALLABLE-INSTANCE-INFO" "*EVAL-STACK*" "RANDOM-CHUNK"
1197              "MAKE-FUNCALLABLE-STRUCTURE-CLASS" "LAYOUT-CLOS-HASH-MAX"
1198              "CLASS-CELL-NAME" "BUILT-IN-CLASS-DIRECT-SUPERCLASSES"
1199              "INITIALIZE-BYTE-COMPILED-FUNCTION"
1200              "RANDOM-LAYOUT-CLOS-HASH"
1201              "CLASS-PCL-CLASS" "FUNCALLABLE-STRUCTURE"
1202              "FUNCALLABLE-INSTANCE-FUNCTION"
1203              "%FUNCALLABLE-INSTANCE-LAYOUT"
1204              "BASIC-STRUCTURE-CLASS" "BYTE-CLOSURE-DATA"
1205              "BYTE-CLOSURE-FUNCTION" "BYTE-FUNCTION" "CLASS-CELL-CLASS"
1206              "FUNCALLABLE-STRUCTURE-CLASS-P" "REGISTER-LAYOUT"
1207              "FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX"
1208              "MAKE-RANDOM-PCL-CLASS" "INSTANCE-LAMBDA"
1209              "%FUNCALLABLE-INSTANCE-LEXENV" "%MAKE-SYMBOL"
1210              "%FUNCALLABLE-INSTANCE-FUNCTION" "SYMBOL-HASH"
1211
1212              "MAKE-UNDEFINED-CLASS" "CLASS-DIRECT-SUPERCLASSES" "MAKE-LAYOUT"
1213              "BYTE-FUNCTION-TYPE"
1214              "REDEFINE-LAYOUT-WARNING" "SLOT-CLASS"
1215              "INSURED-FIND-CLASS"
1216
1217              ;; symbols from former SB!CONDITIONS
1218              "*HANDLER-CLUSTERS*" "*RESTART-CLUSTERS*"
1219              "SHOW-CONDITION" "CASE-FAILURE"
1220              "NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET"
1221              "DESCRIBE-CONDITION"
1222              
1223              "!COLD-INIT" "!UNINTERN-INIT-ONLY-STUFF"
1224              "!GLOBALDB-COLD-INIT" "!FDEFN-COLD-INIT"
1225              "!TYPE-CLASS-COLD-INIT" "!TYPEDEFS-COLD-INIT"
1226              "!ALIEN-TYPE-COLD-INIT" "!CLASSES-COLD-INIT"
1227              "!EARLY-TYPE-COLD-INIT" "!LATE-TYPE-COLD-INIT"
1228              "!TARGET-TYPE-COLD-INIT" "!RANDOM-COLD-INIT"
1229              "!READER-COLD-INIT"
1230              "STREAM-COLD-INIT-OR-RESET" "!LOADER-COLD-INIT"
1231              "!PACKAGE-COLD-INIT" "SIGNAL-COLD-INIT-OR-REINIT"
1232              "!POLICY-COLD-INIT-OR-RESANIFY" "!VM-TYPE-COLD-INIT"
1233              "!BACKQ-COLD-INIT" "!SHARPM-COLD-INIT"
1234              "!CLASS-FINALIZE" "GC-COLD-INIT-OR-REINIT"
1235
1236              ;; These belong in an "SB!LOAD" package someday.
1237              "*STATIC-FOREIGN-SYMBOLS*" "*ASSEMBLER-ROUTINES*"
1238
1239              ;; Note: These are out of lexicographical order because in CMU CL
1240              ;; they were defined as internal symbols in package "CL"
1241              ;; imported into package "C", as opposed to what we're
1242              ;; doing here, defining them as external symbols in a package
1243              ;; which is used by both "SB!C" and "SB!IMPL". (SBCL's "SB!C" is
1244              ;; directly analogous to CMU CL's "C"; and for this purpose,
1245              ;; SBCL's "SB!IMPL" is analogous to CMU CL's "CL".) As far
1246              ;; as I know there's nothing special about them, so they could
1247              ;; be merged into the same order as everything else in the
1248              ;; in this package. -- WHN 19990911
1249              "STRING>=*" "STRING>*" "STRING=*"
1250              "STRING<=*" "STRING<*" "STRING/=*"
1251              "SHORT-FLOAT-P" "%SVSET" "%SP-STRING-COMPARE" "%SETNTH"
1252              "%SETELT" "%SET-ROW-MAJOR-AREF" "%SET-FILL-POINTER"
1253              "%SET-FDEFINITION" "%SCHARSET" "%SBITSET" "%RPLACD"
1254              "%RPLACA" "%PUT" "%CHARSET" "%BITSET" "%ASET"
1255              "%ARRAY-TYPEP" "%SET-SAP-REF-DESCRIPTOR"))
1256
1257  #s(sb-cold:package-data
1258     :name "SB!LOOP"
1259     :doc "private: implementation details of LOOP"
1260     :use ("CL")
1261     :export ())
1262
1263  #!+mp
1264  #s(sb-cold:package-data
1265     :name "SB!MP"
1266     :doc "public (but unstable): multiprocessing support"
1267     :export ("*ALL-PROCESSES*" "*CURRENT-PROCESS*"
1268              "*CURRENT-STACK-GROUP*" "*INITIAL-STACK-GROUP*"
1269              "*MULTI-PROCESSING*" "ALL-PROCESSES"
1270              "ATOMIC-DECF" "ATOMIC-INCF" "ATOMIC-POP"
1271              "ATOMIC-PUSH" "CURRENT-PROCESS"
1272              "DESTROY-PROCESS" "DISABLE-PROCESS"
1273              "ENABLE-PROCESS" "INIT-STACK-GROUPS"
1274              "LOCK" "MAKE-STACK-GROUP" "MAKE-LOCK"
1275              "MAKE-PROCESS" "PROCESS-ACTIVE-P" "PROCESS-ALIVE-P"
1276              "PROCESS-IDLE-TIME" "PROCESS-INTERRUPT"
1277              "PROCESS-NAME" "PROCESS-PRESET"
1278              "PROCESS-REAL-TIME" "PROCESS-RUN-TIME"
1279              "PROCESS-STATE" "PROCESS-WAIT-UNTIL-FD-USABLE"
1280              "PROCESS-WAIT" "PROCESS-WAIT-WITH-TIMEOUT"
1281              "PROCESS-WHOSTATE" "PROCESS-YIELD" "PROCESSP"
1282              "RESTART-PROCESS" "SHOW-PROCESSES"
1283              "STACK-GROUP-RESUME" "WITHOUT-SCHEDULING"
1284              "WITH-LOCK-HELD"))
1285
1286  #s(sb-cold:package-data
1287     :name "SB!PCL"
1288     :doc
1289 "semi-public: This package includes useful meta-object protocol
1290 extensions, but even they are not guaranteed to be present in
1291 later versions of SBCL, and the other stuff in here is
1292 definitely not guaranteed to be present in later versions of SBCL."
1293     ;; FIXME: SB-PCL should probably USE-PACKAGE SB-KERNEL, since SB-PCL
1294     ;; is built on SB-KERNEL, and in the absence of USE-PACKAGE, it ends
1295     ;; up using a thundering herd of explicit prefixes to get to
1296     ;; SB-KERNEL symbols. However, it'll probably be too messy to do
1297     ;; this until the duplicate SB-PCL:CLASS/CL:CLASS hierarchy kludge
1298     ;; is unscrewed, since until it is there are too many things which
1299     ;; conflict between the two packages.
1300     :use ("CL" "SB!ITERATE" "SB!WALKER" "SB!INT" "SB!EXT")
1301     :import-from (("SB!KERNEL" "FUNCALLABLE-INSTANCE-P" "FUNCTION-DOC"
1302                    "PACKAGE-DOC-STRING"
1303                    "PACKAGE-HASHTABLE-SIZE" "PACKAGE-HASHTABLE-FREE"
1304                    "PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"))
1305     :reexport ("ADD-METHOD" "ALLOCATE-INSTANCE"
1306                "COMPUTE-APPLICABLE-METHODS"
1307                "ENSURE-GENERIC-FUNCTION"
1308                "MAKE-INSTANCE" "METHOD-QUALIFIERS"
1309                "REMOVE-METHOD")
1310     :export ("ADD-DEPENDENT"
1311              "ADD-DIRECT-METHOD"
1312              "ADD-DIRECT-SUBCLASS"
1313              "CLASS-DEFAULT-INITARGS"
1314              "CLASS-DIRECT-DEFAULT-INITARGS"
1315              "CLASS-DIRECT-SLOTS"
1316              "CLASS-DIRECT-SUBCLASSES"
1317              "CLASS-DIRECT-SUPERCLASSES"
1318              "CLASS-FINALIZED-P"
1319              "CLASS-PRECEDENCE-LIST"
1320              "CLASS-PROTOTYPE"
1321              "CLASS-SLOTS"
1322              "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
1323              "COMPUTE-CLASS-PRECEDENCE-LIST"
1324              "COMPUTE-DISCRIMINATING-FUNCTION"
1325              "COMPUTE-EFFECTIVE-METHOD"
1326              "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
1327              "COMPUTE-SLOTS"
1328              "DIRECT-SLOT-DEFINITION-CLASS"
1329              "EFFECTIVE-SLOT-DEFINITION-CLASS"
1330              "ENSURE-CLASS"
1331              "ENSURE-CLASS-USING-CLASS"
1332              "ENSURE-GENERIC-FUNCTION-USING-CLASS"
1333              "EQL-SPECIALIZER-INSTANCE"
1334              "EXTRACT-LAMBDA-LIST"
1335              "EXTRACT-SPECIALIZER-NAMES"
1336              "FINALIZE-INHERITANCE"
1337              "FIND-METHOD-COMBINATION"
1338              "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
1339              "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
1340              "GENERIC-FUNCTION-DECLARATIONS"
1341              "GENERIC-FUNCTION-LAMBDA-LIST"
1342              "GENERIC-FUNCTION-METHOD-CLASS"
1343              "GENERIC-FUNCTION-METHOD-COMBINATION"
1344              "GENERIC-FUNCTION-METHODS"
1345              "GENERIC-FUNCTION-NAME"
1346              "INTERN-EQL-SPECIALIZER"
1347              "MAKE-METHOD-LAMBDA"
1348              "MAP-DEPENDENTS"
1349              "METHOD-FUNCTION"
1350              "METHOD-GENERIC-FUNCTION"
1351              "METHOD-LAMBDA-LIST"
1352              "METHOD-SPECIALIZERS"
1353              "ACCESSOR-METHOD-SLOT-DEFINITION"
1354              "READER-METHOD-CLASS"
1355              "REMOVE-DEPENDENT"
1356              "REMOVE-DIRECT-METHOD"
1357              "REMOVE-DIRECT-SUBCLASS"
1358              "SET-FUNCALLABLE-INSTANCE-FUNCTION"
1359              "SLOT-BOUNDP-USING-CLASS"
1360              "SLOT-DEFINITION-ALLOCATION"
1361              "SLOT-DEFINITION-INITARGS"
1362              "SLOT-DEFINITION-INITFORM"
1363              "SLOT-DEFINITION-INITFUNCTION"
1364              "SLOT-DEFINITION-LOCATION"
1365              "SLOT-DEFINITION-NAME"
1366              "SLOT-DEFINITION-READERS"
1367              "SLOT-DEFINITION-WRITERS"
1368              "SLOT-DEFINITION-TYPE"
1369              "SLOT-MAKUNBOUND-USING-CLASS"
1370              "SLOT-VALUE-USING-CLASS"
1371              "SPECIALIZER-DIRECT-GENERIC-FUNCTION"
1372              "SPECIALIZER-DIRECT-METHODS"
1373              "STANDARD-INSTANCE-ACCESS"
1374              "UPDATE-DEPENDENT"
1375              "VALIDATE-SUPERCLASS"
1376              "WRITER-METHOD-CLASS"))
1377
1378  #s(sb-cold:package-data
1379     :name "SB!PRETTY"
1380     :doc "private: implementation of pretty-printing"
1381     :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL")
1382     :export ("PRETTY-STREAM" "PRETTY-STREAM-P" "!PPRINT-COLD-INIT"))
1383
1384  #s(sb-cold:package-data
1385     :name "SB!PROFILE"
1386     :doc "public: the interface to the profiler"
1387     :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL")
1388     :export ("PROFILE" "REPORT" "RESET" "UNPROFILE"))
1389
1390  #s(sb-cold:package-data
1391     :name "SB!SYS"
1392     :doc
1393 "private: In theory, this \"contains functions and information
1394 necessary for system interfacing\" (said cmu-user.tex at the time
1395 of the SBCL code fork). That probably was and is a good idea, but in
1396 practice, the distinctions between this package and SB-KERNEL
1397 and even SB-VM seem to have become somewhat blurred over the years."
1398     :use ("CL" "SB!EXT" "SB!INT")
1399     :export ("%ASSEMBLER-CODE-TYPE" "%BIND-ALIGNED-SAP"
1400              ;; FIXME: %PRIMITIVE shouldn't be here. (I now know that %SYS
1401              ;; is for OS-dependent stuff. %PRIMITIVE should probably be in
1402              ;; SB!KERNEL.)
1403              "%PRIMITIVE" "%SP-BYTE-BLT" "%SP-FIND-CHARACTER"
1404              "%SP-FIND-CHARACTER-WITH-ATTRIBUTE"
1405              "%SP-REVERSE-FIND-CHARACTER-WITH-ATTRIBUTE"
1406              "%STANDARD-CHAR-P"
1407              "*LONG-SITE-NAME*" "*SHORT-SITE-NAME*"
1408              "*STDERR*" "*STDIN*"
1409              "*STDOUT*" "*TASK-DATA*"
1410              "*TASK-NOTIFY*" "*TASK-SELF*" "*TTY*" "*TYPESCRIPTPORT*"
1411              "ADD-FD-HANDLER" "ADD-PORT-DEATH-HANDLER"
1412              "ADD-PORT-OBJECT"
1413              "ALLOCATE-SYSTEM-MEMORY"
1414              "BEEP" "BITS" 
1415              "BYTES" "C-PROCEDURE" "CHECK<=" "CHECK="
1416              "COMPILER-VERSION"
1417              "DEALLOCATE-SYSTEM-MEMORY"
1418              "DEFAULT-INTERRUPT"
1419              "DEPORT-BOOLEAN" "DEPORT-INTEGER"
1420              "DO-DO-BODY" "DOUBLE-FLOAT-RADIX"
1421              "ENABLE-INTERRUPT" "ENUMERATION"
1422              "FD-STREAM" "FD-STREAM-FD"
1423              "FD-STREAM-P" "FIND-IF-IN-CLOSURE"
1424              "FOREIGN-SYMBOL-ADDRESS" "FOREIGN-SYMBOL-ADDRESS-AS-INTEGER"
1425              "GET-PAGE-SIZE" "GET-SYSTEM-INFO"
1426              "IGNORE-INTERRUPT"
1427              "INT-SAP" "INVALIDATE-DESCRIPTOR" "IO-TIMEOUT"
1428              "MACRO" "MAKE-FD-STREAM" "MAKE-OBJECT-SET" "MEMMOVE"
1429              "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER"
1430              "OBJECT-SET-OPERATION"
1431              "OS-COLD-INIT-OR-REINIT" "OS-CONTEXT-T" "OUTPUT-RAW-BYTES"
1432              "PARSE-BODY" "POINTER"
1433              "POINTER<" "POINTER>" "PORT" "POSITIVE-PRIMEP" 
1434              "READ-N-BYTES" "REALLOCATE-SYSTEM-MEMORY" "RECORD-SIZE"
1435              "REMOVE-FD-HANDLER" "REMOVE-PORT-DEATH-HANDLER"
1436              "REMOVE-PORT-OBJECT"
1437              "RESOLVE-LOADED-ASSEMBLER-REFERENCES"
1438              "SAP+" "SAP-" "SAP-INT" "SAP-INT-TYPE"
1439              "SAP-REF-16" "SAP-REF-32" "SAP-REF-64" "SAP-REF-8"
1440              "SAP-REF-DESCRIPTOR"
1441              "SAP-REF-DOUBLE" "SAP-REF-LONG"
1442              "SAP-REF-SAP" "SAP-REF-SINGLE"
1443              "SAP<" "SAP<=" "SAP=" "SAP>" "SAP>="
1444              "SCRUB-CONTROL-STACK" "SERVE-ALL-EVENTS"
1445              "SERVE-EVENT" "SERVER" "SERVER-MESSAGE"
1446              "SHORT-FLOAT-RADIX"
1447              "SIGNED-SAP-REF-16" "SIGNED-SAP-REF-32"
1448              "SIGNED-SAP-REF-64" "SIGNED-SAP-REF-8"
1449              "SINGLE-FLOAT-RADIX"
1450              ;; FIXME: STRUCTURE!OBJECT stuff probably belongs in SB!KERNEL.
1451              "STRUCTURE!OBJECT" "STRUCTURE!OBJECT-MAKE-LOAD-FORM"
1452              "SYMBOL-MACRO-LET"
1453              "SYSTEM-AREA-POINTER" "SYSTEM-AREA-POINTER-P" "VECTOR-SAP"
1454              "WAIT-UNTIL-FD-USABLE" "WITH-ENABLED-INTERRUPTS"
1455              "WITH-FD-HANDLER"
1456              "WITH-INTERRUPTS" "WITH-REPLY-PORT" "WITHOUT-GCING"
1457              "WITHOUT-INTERRUPTS" "WORDS"
1458              "ALLOCATE-SYSTEM-MEMORY-AT"
1459              "GET-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"))
1460
1461  #s(sb-cold:package-data
1462     :name "SB!UNIX"
1463     :doc
1464 "private: a wrapper layer for SBCL itself to use when talking
1465 with an underlying Unix-y operating system.
1466 This was a public package in CMU CL, but that was different.
1467 CMU CL's UNIX package tried to provide a comprehensive,
1468 stable Unix interface suitable for the end user.
1469 This package only tries to implement what happens to be
1470 needed by the current implementation of SBCL, and makes
1471 no guarantees of interface stability."
1472     :use ("CL" "SB!ALIEN" "SB!C-CALL" "SB!EXT" "SB!INT" "SB!SYS")
1473     :export ("CADDR-T" "D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN"
1474              "DADDR-T" "DEV-T" "DIRECT" "EXECGRP" "EXECOTH" "EXECOWN" "F-DUPFD"
1475              "F-GETFD" "F-GETFL" "F-GETOWN" "F-SETFD" "F-SETFL" "F-SETOWN"
1476              "FAPPEND" "FASYNC" "FCREAT" "FEXCL" "FIONREAD" "FNDELAY" "FTRUNC"
1477              "F_OK" "GID-T"
1478              "INO-T" "UNIX-SETITIMER" "UNIX-GETITIMER"
1479              "KBDCGET" "KBDCRESET" "KBDCRST" "KBDCSET"
1480              "KBDCSSTD" "KBDGCLICK" "KBDSCLICK" "KBDSGET" "L_INCR" "L_SET"
1481              "L_XTND" "OFF-T" "O_APPEND" "O_CREAT" "O_EXCL" "O_RDONLY" "O_RDWR"
1482              "O_TRUNC" "O_WRONLY" "READGRP" "READOTH" "READOWN" "RLIM-CUR"
1483              "RLIM-MAX" "RU-IDRSS" "RU-INBLOCK" "RU-ISRSS" "RU-IXRSS"
1484              "RU-MAJFLT" "RU-MAXRSS" "RU-MINFLT" "RU-MSGRCV" "RU-MSGSND"
1485              "RU-NIVCSW" "RU-NSIGNALS" "RU-NSWAP" "RU-NVCSW" "RU-OUBLOCK"
1486              "RU-STIME" "RU-UTIME" "RUSAGE_CHILDREN" "RUSAGE_SELF" "RUSEAGE"
1487              "R_OK" "S-IEXEC" "S-IFBLK" "S-IFCHR" "S-IFDIR" "S-IFLNK" "S-IFMT"
1488              "S-IFREG" "S-IFSOCK" "S-IREAD" "S-ISGID" "S-ISUID" "S-ISVTX"
1489              "S-IWRITE" "SAVETEXT" "SC-MASK" "SC-ONSTACK" "SC-PC" "SETGIDEXEC"
1490              "SETUIDEXEC" "SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL"
1491              "SG-OSPEED" "SGTTYB" "SIZE-T" "ST-ATIME" "ST-BLKSIZE"
1492              "ST-BLOCKS" "ST-CTIME" "ST-DEV" "ST-GID" "ST-MODE" "ST-MTIME"
1493              "ST-NLINK" "ST-RDEV" "ST-SIZE" "ST-UID" "STAT" "SWBLK-T"
1494              "TERMINAL-SPEEDS" "TIME-T" "TIMEVAL" "TIMEZONE" "TIOCFLUSH"
1495              "TIOCGETC" "TIOCGETP" "TIOCGLTC" "TIOCGPGRP" "TIOCGWINSZ"
1496              "TIOCNOTTY" "TIOCSETC" "TIOCSETP" "TIOCSLTC" "TIOCSPGRP"
1497              "TIOCSWINSZ" "TV-SEC" "TV-USEC" "TZ-DSTTIME"
1498              "TZ-MINUTESWEST" "UID-T" "UNIX-ACCEPT" "UNIX-ACCESS" "UNIX-BIND"
1499              "UNIX-CHDIR" "UNIX-CHMOD" "UNIX-CHOWN" "UNIX-CLOSE" "UNIX-CONNECT"
1500              "UNIX-CREAT" "UNIX-CURRENT-DIRECTORY" "UNIX-DUP" "UNIX-DUP2"
1501              "UNIX-EXECVE" "UNIX-EXIT" "UNIX-FCHMOD" "UNIX-FCHOWN"
1502              "UNIX-FCNTL" "UNIX-FD" "UNIX-FILE-MODE" "UNIX-FORK" "UNIX-FSTAT"
1503              "UNIX-FSYNC" "UNIX-FTRUNCATE" "UNIX-GETDTABLESIZE" "UNIX-GETEGID"
1504              "UNIX-GETGID" "UNIX-GETHOSTID" "UNIX-GETHOSTNAME"
1505              "UNIX-GETPAGESIZE"  "UNIX-GETPEERNAME" "UNIX-GETPGRP"
1506              "UNIX-GETPID" "UNIX-GETPPID" "UNIX-GETRUSAGE"
1507              "UNIX-GETSOCKNAME" "UNIX-GETTIMEOFDAY" "UNIX-GETUID" "UNIX-GID"
1508              "UNIX-IOCTL" "UNIX-ISATTY" "UNIX-LINK" "UNIX-LISTEN" "UNIX-LSEEK"
1509              "UNIX-LSTAT" "UNIX-MKDIR" "UNIX-OPEN" "UNIX-PATHNAME" "UNIX-PID"
1510              "UNIX-PIPE" "UNIX-READ" "UNIX-READLINK" "UNIX-RECV" "UNIX-RENAME"
1511              "UNIX-RMDIR" "UNIX-SELECT" "UNIX-SEND" "UNIX-SETPGRP"
1512              "UNIX-SETREGID" "UNIX-SETREUID" "UNIX-SOCKET" "UNIX-STAT"
1513              "UNIX-SYMLINK" "UNIX-SYNC"
1514              "UNIX-TIMES" "UNIX-TRUNCATE" "UNIX-TTYNAME"
1515              "UNIX-UID" "UNIX-UNLINK" "UNIX-UTIMES" "UNIX-WRITE" "WINSIZE"
1516              "WRITEGRP" "WRITEOTH" "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL"
1517              "WS-YPIXEL" "W_OK" "X_OK" "SIGSYS" "TCSETPGRP" "FD-ZERO"
1518              "SIGQUIT" "SIGCHLD" "SIGSEGV" "FD-CLR" "SIGUSR2"
1519              "EALREADY" "SIGPIPE" "CHECK" "SIGXCPU" "EOPNOTSUPP"
1520              "SIGFPE" "SIGHUP" "ENOTSOCK" "SIGMASK" "EINTR"
1521              "SIGCONT" "UNIX-RESOLVE-LINKS" "SIGKILL" "EMSGSIZE" "ERANGE"
1522              "EPROTOTYPE" "UNIX-SIGNAL-NUMBER" "EPFNOSUPPORT" "SIGILL"
1523              "EDOM" "UNIX-SIGPAUSE" "EDQUOT" "FD-SETSIZE" "SIGTSTP"
1524              "EAFNOSUPPORT" "TCGETPGRP" "EMFILE" "ECONNRESET"
1525              "EADDRNOTAVAIL" "SIGALRM" "ENETDOWN" "EVICEOP"
1526              "UNIX-FAST-GETRUSAGE" "EPERM" "SIGINT" "EXDEV" "EDEADLK"
1527              "ENOSPC" "ECONNREFUSED" "SIGWINCH" "ENOPROTOOPT" "ESRCH"
1528              "EUSERS" "SIGVTALRM" "ENOTCONN" "ESUCCESS" "EPIPE"
1529              "UNIX-SIMPLIFY-PATHNAME" "EISCONN" "FD-ISSET"
1530              "ESHUTDOWN" "EBUSY" "SIGTERM" "ENAMETOOLONG" "EMLINK"
1531              "EADDRINUSE" "SIGBUS" "ERESTART" "TTY-PROCESS-GROUP"
1532              "UNIX-SIGNAL-NAME" "ETIMEDOUT" "ECHILD" "EFBIG" "SIGTRAP"
1533              "UNIX-KILLPG" "ENOTBLK" "SIGIOT" "SIGUSR1" "ECONNABORTED"
1534              "EHOSTUNREACH" "EBADF" "EINVAL" "FD-SET" "EISDIR"
1535              "SIGTTIN" "UNIX-KILL" "EHOSTDOWN" "E2BIG" "ESPIPE"
1536              "UNIX-FAST-SELECT" "ENXIO" "ENOTTY" "ELOOP" "LTCHARS"
1537              "SIGXFSZ" "EINPROGRESS" "ENOENT"
1538              "EPROTONOSUPPORT" "UNIX-SIGBLOCK" "SIGIO" "ENOMEM" "SIGEMT"
1539              "EFAULT" "ENODEV" "EIO" "EVICEERR" "ETXTBSY" "EWOULDBLOCK"
1540              "EAGAIN" "EDESTADDRREQ" "ENOEXEC" "ENETUNREACH" "ENOTEMPTY"
1541              "UNIX-MAYBE-PREPEND-CURRENT-DIRECTORY" "ENFILE"
1542              "SIGTTOU" "EEXIST" "SIGPROF" "SIGSTOP" "ENETRESET" "SIGURG"
1543              "ENOBUFS" "EPROCLIM" "EROFS" "ETOOMANYREFS" "UNIX-FILE-KIND"
1544              "ELOCAL" "UNIX-SIGSETMASK" "EREMOTE" "ESOCKTNOSUPPORT"
1545              "TIOCSIGSEND" "SIGWAITING"
1546              "C-IFLAG" "UNIX-TCGETATTR" "C-LFLAG" "C-OFLAG"
1547              "C-CFLAG" "TCSAFLUSH" "C-CC" "SIOCSPGRP" "TERMIOS"
1548              "UNIX-TCSETATTR" "O_NDELAY" "O_NOCTTY"
1549              "O_NONBLOCK" "TCSANOW" "TCSADRAIN" "TCIFLUSH" "TCOFLUSH"
1550              "TCIOFLUSH" "UNIX-CFGETOSPEED" "UNIX-CFSETOSPEED"
1551              "UNIX-CFGETISPEED" "UNIX-CFSETISPEED"
1552              "TTY-IGNBRK" "TTY-BRKINT" "TTY-IGNPAR" "TTY-PARMRK"
1553              "TTY-INPCK" "TTY-ISTRIP" "TTY-INLCR" "TTY-IGNCR" "TTY-ICRNL"
1554              "TTY-IUCLC" "TTY-IXON" "TTY-IXANY" "TTY-IXOFF" "TTY-IENQAK"
1555              "TTY-IMAXBEL" "TTY-OPOST" "TTY-OLCUC" "TTY-ONLCR" "TTY-OCRNL"
1556              "TTY-ONOCR" "TTY-ONLRET" "TTY-OFILL" "TTY-OFDEL" "TTY-ISIG"
1557              "TTY-ICANON" "TTY-XCASE" "TTY-ECHO" "TTY-ECHOE" "TTY-ECHOK"
1558              "TTY-ECHONL" "TTY-NOFLSH" "TTY-IEXTEN" "TTY-TOSTOP" "TTY-ECHOCTL"
1559              "TTY-ECHOPRT" "TTY-ECHOKE"  "TTY-DEFECHO" "TTY-FLUSHO"
1560              "TTY-PENDIN" "TTY-CSTOPB" "TTY-CREAD" "TTY-PARENB" "TTY-PARODD"
1561              "TTY-HUPCL" "TTY-CLOCAL" "RCV1EN" "XMT1EN" "TTY-LOBLK" "VINTR"
1562              "VQUIT" "VERASE" "VKILL" "VEOF" "VEOL" "VEOL2" "TTY-CBAUD"
1563              "TTY-CSIZE" "TTY-CS5" "TTY-CS6" "TTY-CS7" "TTY-CS8" "VMIN" "VTIME"
1564              "VSUSP" "VSTART" "VSTOP" "VDSUSP" "UNIX-TCSENDBREAK"
1565              "UNIX-TCDRAIN" "UNIX-TCFLUSH" "UNIX-TCFLOW"
1566              #!+(or svr4 bsd linux) "O_NDELAY"
1567              #!+(or svr4 linux) ("EADDRINUSE" "EADDRNOTAVAIL" "EADV"
1568                                  "EAFNOSUPPORT" "EALREADY" "EBADE" "EBADFD"
1569                                  "EBADMSG" "EBADR" "EBADRQC"
1570                                  "EBADSLT" "EBFONT" #!+svr4 "ECANCELED"
1571                                  "ECHRNG" "ECOMM" "ECONNABORTED"
1572                                  "ECONNREFUSED" "ECONNRESET" "EDEADLK"
1573                                  "EDEADLOCK" "EDESTADDRREQ" #!+linux "EDOTDOT"
1574                                  #!+linux "EDQUOT" "EHOSTDOWN" "EHOSTUNREACH"
1575                                  "EIDRM" "EILSEQ" "EINPROGRESS"
1576                                  "EISCONN" #!+linux "EISNAM" "EL2HLT"
1577                                  "EL2NSYNC" "EL3HLT" "EL3RST" "ELIBACC"
1578                                  "ELIBBAD" "ELIBEXEC" "ELIBMAX" "ELIBSCN"
1579                                  "ELNRNG" "ELOOP" "EMSGSIZE" "EMULTIHOP"
1580                                  "ENAMETOOLONG" #!+linux "ENAVAIL"
1581                                  "ENETDOWN" "ENETRESET" "ENETUNREACH" "ENOANO"
1582                                  "ENOBUFS" "ENOCSI" "ENODATA" "ENOLCK"
1583                                  "ENOLINK" "ENOMSG" "ENONET" "ENOPKG"
1584                                  "ENOPROTOOPT" "ENOSR" "ENOSTR" "ENOSYS"
1585                                  "ENOTCONN" "ENOTEMPTY" #!+linux "ENOTNAM"
1586                                  "ENOTSOCK" #!+svr4 "ENOTSUP" "ENOTUNIQ"
1587                                  "EOPNOTSUPP" "EOVERFLOW" "EPFNOSUPPORT"
1588                                  "EPROTO" "EPROTONOSUPPORT" "EPROTOTYPE"
1589                                  "EREMCHG" "EREMOTE" #!+linux "EREMOTEIO"
1590                                  "ERESTART" "ESHUTDOWN" "ESOCKTNOSUPPORT"
1591                                  "ESRMNT" "ESTALE" "ESTRPIPE" "ETIME"
1592                                  "ETIMEDOUT" "ETOOMANYREFS" #!+linux "EUCLEAN"
1593                                  "EUNATCH" "EUSERS" "EWOULDBLOCK" "EXFULL")))
1594
1595  #s(sb-cold:package-data
1596     :name "SB!VM"
1597     :doc
1598 "internal: the default place to hide information about the hardware and data
1599 structure representations"
1600     :use ("CL" "SB!ALIEN" "SB!ALIEN-INTERNALS" "SB!ASSEM"
1601           "SB!C" "SB!C-CALL" "SB!EXT" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!UNIX")
1602     :export ("*ASSEMBLY-UNIT-LENGTH*" "*PRIMITIVE-OBJECTS*"
1603              "AFTER-BREAKPOINT-TRAP"
1604              "ANY-REG-SC-NUMBER" "ARRAY-DATA-SLOT" "ARRAY-DIMENSIONS-OFFSET"
1605              "ARRAY-DISPLACED-P-SLOT" "ARRAY-DISPLACEMENT-SLOT"
1606              "ARRAY-ELEMENTS-SLOT" "ARRAY-FILL-POINTER-P-SLOT"
1607              "ARRAY-FILL-POINTER-SLOT" "ATOMIC-FLAG" "BASE-CHAR-REG-SC-NUMBER"
1608              "BASE-CHAR-STACK-SC-NUMBER" "BASE-CHAR-TYPE"
1609              "BIGNUM-DIGITS-OFFSET" "BIGNUM-TYPE" "BINDING-SIZE"
1610              "BINDING-SYMBOL-SLOT" "BINDING-VALUE-SLOT" "BREAKPOINT-TRAP"
1611              "BYTE-CODE-CLOSURE-TYPE" "BYTE-CODE-FUNCTION-TYPE"
1612              "BYTE-BITS" "BYTE-REG-SC-NUMBER"
1613              "CATCH-BLOCK-CURRENT-CODE-SLOT"
1614              "CATCH-BLOCK-CURRENT-CONT-SLOT" "CATCH-BLOCK-CURRENT-UWP-SLOT"
1615              "CATCH-BLOCK-ENTRY-PC-SLOT" "CATCH-BLOCK-PREVIOUS-CATCH-SLOT"
1616              "CATCH-BLOCK-SC-NUMBER" "CATCH-BLOCK-SIZE" "CATCH-BLOCK-SIZE-SLOT"
1617              "CATCH-BLOCK-TAG-SLOT" "CERROR-TRAP"
1618              "CLOSURE-FUNCTION-HEADER-TYPE" "CLOSURE-FUNCTION-SLOT"
1619              "CLOSURE-HEADER-TYPE" "CLOSURE-INFO-OFFSET"
1620              "CODE-CODE-SIZE-SLOT" "CODE-CONSTANTS-OFFSET"
1621              "CODE-DEBUG-INFO-SLOT" "CODE-ENTRY-POINTS-SLOT" "CODE-HEADER-TYPE"
1622              "CODE-TRACE-TABLE-OFFSET-SLOT" "COMPLEX-ARRAY-TYPE"
1623              "COMPLEX-BIT-VECTOR-TYPE" "COMPLEX-DOUBLE-FLOAT-FILLER-SLOT"
1624              "COMPLEX-DOUBLE-FLOAT-IMAG-SLOT" "COMPLEX-DOUBLE-FLOAT-REAL-SLOT"
1625              "COMPLEX-DOUBLE-FLOAT-SIZE" "COMPLEX-DOUBLE-FLOAT-TYPE"
1626              "COMPLEX-DOUBLE-REG-SC-NUMBER" "COMPLEX-DOUBLE-STACK-SC-NUMBER"
1627              "COMPLEX-IMAG-SLOT" "COMPLEX-REAL-SLOT"
1628              "COMPLEX-LONG-FLOAT-IMAG-SLOT" "COMPLEX-LONG-FLOAT-REAL-SLOT"
1629              "COMPLEX-LONG-FLOAT-SIZE" "COMPLEX-LONG-FLOAT-TYPE"
1630              "COMPLEX-LONG-REG-SC-NUMBER" "COMPLEX-LONG-STACK-SC-NUMBER"
1631              "COMPLEX-SINGLE-FLOAT-IMAG-SLOT" "COMPLEX-SINGLE-FLOAT-REAL-SLOT"
1632              "COMPLEX-SINGLE-FLOAT-SIZE" "COMPLEX-SINGLE-FLOAT-TYPE"
1633              "COMPLEX-SINGLE-REG-SC-NUMBER" "COMPLEX-SINGLE-STACK-SC-NUMBER"
1634              "COMPLEX-SIZE" "COMPLEX-STRING-TYPE" "COMPLEX-TYPE"
1635              "COMPLEX-VECTOR-TYPE" "CONS-CAR-SLOT" "CONS-CDR-SLOT"
1636              "CONS-SIZE" "CONSTANT-SC-NUMBER"
1637              "CONTEXT-FLOATING-POINT-MODES" "CONTEXT-FLOAT-REGISTER"
1638              "CONTEXT-PC" "CONTEXT-REGISTER"
1639              "CONTROL-STACK-SC-NUMBER" "COUNT-NO-OPS"
1640              "CURRENT-DYNAMIC-SPACE-START"
1641              "CURRENT-FLOAT-TRAP" "DEFINE-FOR-EACH-PRIMITIVE-OBJECT"
1642              "DESCRIPTOR-REG-SC-NUMBER" "DESCRIPTOR-VS-NON-DESCRIPTOR-STORAGE"
1643              "DOUBLE-FLOAT-EXPONENT-BYTE" "DOUBLE-FLOAT-BIAS"
1644              "DOUBLE-FLOAT-DIGITS" "DOUBLE-FLOAT-EXPONENT-BYTE"
1645              "DOUBLE-FLOAT-FILLER-SLOT" "DOUBLE-FLOAT-HIDDEN-BIT"
1646              "DOUBLE-FLOAT-NORMAL-EXPONENT-MAX"
1647              "DOUBLE-FLOAT-NORMAL-EXPONENT-MIN" "DOUBLE-FLOAT-SIGNIFICAND-BYTE"
1648              "DOUBLE-FLOAT-SIZE" "DOUBLE-FLOAT-TRAPPING-NAN-BIT"
1649              "DOUBLE-FLOAT-TYPE" "DOUBLE-FLOAT-VALUE-SLOT"
1650              "DOUBLE-INT-CARG-REG-SC-NUMBER" "DOUBLE-REG-SC-NUMBER"
1651              "DOUBLE-STACK-SC-NUMBER"
1652              "ERROR-TRAP" "EVEN-FIXNUM-TYPE"
1653              "EXPORTED-STATIC-SYMBOLS" "EXTERN-ALIEN-NAME"
1654              "FDEFN-FUNCTION-SLOT" "FDEFN-NAME-SLOT" "FDEFN-RAW-ADDR-SLOT"
1655              "FDEFN-SIZE" "FDEFN-TYPE" "FIND-HOLES" "FIXNUMIZE"
1656              "FIXUP-CODE-OBJECT" "FLOAT-DENORMAL-TRAP-BIT"
1657              "FLOAT-DIVIDE-BY-ZERO-TRAP-BIT"
1658              "FLOAT-IMPRECISE-TRAP-BIT" "FLOAT-INVALID-TRAP-BIT"
1659              "FLOAT-OVERFLOW-TRAP-BIT" "FLOAT-SIGN-SHIFT"
1660              "FLOAT-UNDERFLOW-TRAP-BIT" "FLOATING-POINT-MODES"
1661              "FORWARDING-POINTER-TYPE"
1662              "FP-CONSTANT-SC-NUMBER"
1663              "FP-DOUBLE-ZERO-SC-NUMBER" "FP-SINGLE-ZERO-SC-NUMBER"
1664              "FUNCALLABLE-INSTANCE-FUNCTION-SLOT"
1665              "FUNCALLABLE-INSTANCE-HEADER-TYPE"
1666              "FUNCALLABLE-INSTANCE-INFO-OFFSET"
1667              "FUNCTION-ARGLIST-SLOT" "FUNCTION-CODE-OFFSET"
1668              "FUNCTION-END-BREAKPOINT-TRAP"
1669              "FUNCTION-HEADER-CODE-OFFSET"
1670              "FUNCTION-HEADER-NEXT-SLOT" "FUNCTION-HEADER-SELF-SLOT"
1671              "FUNCTION-HEADER-TYPE" "FUNCTION-HEADER-TYPE-SLOT"
1672              "FUNCTION-NAME-SLOT" "FUNCTION-NEXT-SLOT" "FUNCTION-POINTER-TYPE"
1673              "FUNCTION-SELF-SLOT" "FUNCTION-TYPE-SLOT"
1674              "FUNCALLABLE-INSTANCE-LAYOUT-SLOT"
1675              "FUNCALLABLE-INSTANCE-LEXENV-SLOT"
1676              "GENESIS" "HALT-TRAP" "IGNORE-ME-SC-NUMBER"
1677              "IMMEDIATE-BASE-CHAR-SC-NUMBER" "IMMEDIATE-SAP-SC-NUMBER"
1678              "IMMEDIATE-SC-NUMBER" "*INITIAL-DYNAMIC-SPACE-FREE-POINTER*"
1679              "INSTANCE-HEADER-TYPE" "INSTANCE-POINTER-TYPE"
1680              "INSTANCE-SLOTS-OFFSET" "INSTANCE-USAGE"
1681              "INTERIOR-REG-SC-NUMBER" "INTERNAL-ERROR-ARGUMENTS"
1682              "INTERRUPTED-FLAG" "LIST-ALLOCATED-OBJECTS" "LIST-POINTER-TYPE"
1683              "LONG-FLOAT-BIAS" "LONG-FLOAT-DIGITS" "LONG-FLOAT-EXPONENT-BYTE"
1684              "LONG-FLOAT-HIDDEN-BIT" "LONG-FLOAT-NORMAL-EXPONENT-MAX"
1685              "LONG-FLOAT-NORMAL-EXPONENT-MIN" "LONG-FLOAT-SIGNIFICAND-BYTE"
1686              "LONG-FLOAT-SIZE" "LONG-FLOAT-TRAPPING-NAN-BIT" "LONG-FLOAT-TYPE"
1687              "LONG-FLOAT-VALUE-SLOT" "LONG-REG-SC-NUMBER"
1688              "LONG-STACK-SC-NUMBER"
1689              "LOWTAG-BITS" "LOWTAG-LIMIT" "LOWTAG-MASK"
1690              "MEMORY-USAGE" "MOST-POSITIVE-COST"
1691              "NEGATIVE-IMMEDIATE-SC-NUMBER" "NON-DESCRIPTOR-REG-SC-NUMBER"
1692              "NULL-SC-NUMBER" "OBJECT-NOT-LIST-TRAP" "OBJECT-NOT-INSTANCE-TRAP"
1693              "ODD-FIXNUM-TYPE" "OFFSET-STATIC-SYMBOL" "OTHER-IMMEDIATE-0-TYPE"
1694              "OTHER-IMMEDIATE-1-TYPE" "OTHER-POINTER-TYPE"
1695              "PAD-DATA-BLOCK" "PENDING-INTERRUPT-TRAP"
1696              "PRIMITIVE-OBJECT" "PRIMITIVE-OBJECT-HEADER"
1697              "PRIMITIVE-OBJECT-LOWTAG" "PRIMITIVE-OBJECT-NAME"
1698              "PRIMITIVE-OBJECT-OPTIONS" "PRIMITIVE-OBJECT-P"
1699              "PRIMITIVE-OBJECT-SIZE" "PRIMITIVE-OBJECT-SLOTS"
1700              "PRIMITIVE-OBJECT-VARIABLE-LENGTH" "PRINT-ALLOCATED-OBJECTS"
1701              "RANDOM-IMMEDIATE-SC-NUMBER" "RATIO-DENOMINATOR-SLOT"
1702              "RATIO-NUMERATOR-SLOT" "RATIO-SIZE" "RATIO-TYPE"
1703              "*READ-ONLY-SPACE-FREE-POINTER*"
1704              "REGISTER-SAVE-PENALTY" "RETURN-PC-HEADER-TYPE"
1705              "RETURN-PC-RETURN-POINT-OFFSET" "SANCTIFY-FOR-EXECUTION"
1706              "SAP-POINTER-SLOT" "SAP-REG-SC-NUMBER" "SAP-SIZE"
1707              "SAP-STACK-SC-NUMBER" "SAP-TYPE"
1708              "SIGFPE-HANDLER" "SIGNED-REG-SC-NUMBER" "SIGNED-STACK-SC-NUMBER"
1709              "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-TYPE"
1710              "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-TYPE"
1711              "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-TYPE"
1712              "SIMPLE-ARRAY-DOUBLE-FLOAT-TYPE"
1713              "SIMPLE-ARRAY-LONG-FLOAT-TYPE"
1714              "SIMPLE-ARRAY-SINGLE-FLOAT-TYPE"
1715              "SIMPLE-ARRAY-TYPE" "SIMPLE-ARRAY-UNSIGNED-BYTE-16-TYPE"
1716              "SIMPLE-ARRAY-UNSIGNED-BYTE-2-TYPE"
1717              "SIMPLE-ARRAY-UNSIGNED-BYTE-32-TYPE"
1718              "SIMPLE-ARRAY-UNSIGNED-BYTE-4-TYPE"
1719              "SIMPLE-ARRAY-UNSIGNED-BYTE-8-TYPE"
1720              "SIMPLE-ARRAY-SIGNED-BYTE-16-TYPE"
1721              "SIMPLE-ARRAY-SIGNED-BYTE-30-TYPE"
1722              "SIMPLE-ARRAY-SIGNED-BYTE-32-TYPE"
1723              "SIMPLE-ARRAY-SIGNED-BYTE-8-TYPE"
1724              "SIMPLE-BIT-VECTOR-TYPE"
1725              "SIMPLE-STRING-TYPE" "SIMPLE-VECTOR-TYPE" "SINGLE-FLOAT-BIAS"
1726              "SINGLE-FLOAT-DIGITS" "SINGLE-FLOAT-EXPONENT-BYTE"
1727              "SINGLE-FLOAT-HIDDEN-BIT" "SINGLE-FLOAT-NORMAL-EXPONENT-MAX"
1728              "SINGLE-FLOAT-NORMAL-EXPONENT-MIN" "SINGLE-FLOAT-SIGNIFICAND-BYTE"
1729              "SINGLE-FLOAT-SIZE" "SINGLE-FLOAT-TRAPPING-NAN-BIT"
1730              "SINGLE-FLOAT-TYPE" "SINGLE-FLOAT-VALUE-SLOT"
1731              "SINGLE-INT-CARG-REG-SC-NUMBER"
1732              "SINGLE-REG-SC-NUMBER" "SINGLE-STACK-SC-NUMBER"
1733              "SINGLE-STEP-BREAKPOINT-TRAP"
1734              "SINGLE-VALUE-RETURN-BYTE-OFFSET" "SLOT-DOCS"
1735              "SLOT-LENGTH" "SLOT-NAME" "SLOT-OFFSET" "SLOT-OPTIONS"
1736              "SLOT-REST-P" "*STATIC-FUNCTIONS*" "STATIC-FUNCTION-OFFSET"
1737              "STATIC-SYMBOL-OFFSET" "STATIC-SYMBOL-P"
1738              "*STATIC-SPACE-FREE-POINTER*" "*STATIC-SYMBOLS*"
1739              "STRUCTURE-USAGE" "SYMBOL-FUNCTION-SLOT"
1740              "SYMBOL-HASH-SLOT" "SYMBOL-HEADER-TYPE" "SYMBOL-NAME-SLOT"
1741              "SYMBOL-PACKAGE-SLOT" "SYMBOL-PLIST-SLOT"
1742              "SYMBOL-RAW-FUNCTION-ADDR-SLOT" "SYMBOL-SETF-FUNCTION-SLOT"
1743              "SYMBOL-SIZE" "SYMBOL-UNUSED-SLOT" "SYMBOL-VALUE-SLOT"
1744              "BINDING-STACK-START" "BINDING-STACK-END" 
1745              "CONTROL-STACK-START" "CONTROL-STACK-END"
1746              "DYNAMIC-SPACE-START" "DYNAMIC-SPACE-END"
1747              "READ-ONLY-SPACE-START" "READ-ONLY-SPACE-END"
1748              "TARGET-BYTE-ORDER"
1749              "TARGET-FASL-CODE-FORMAT" "TARGET-FASL-FILE-TYPE"
1750              "TARGET-HEAP-ADDRESS-SPACE" "*TARGET-MOST-NEGATIVE-FIXNUM*"
1751              "*TARGET-MOST-POSITIVE-FIXNUM*" 
1752              "STATIC-SPACE-START" "STATIC-SPACE-END"
1753              "TRACE-TABLE-CALL-SITE"
1754              "TRACE-TABLE-FUNCTION-EPILOGUE" "TRACE-TABLE-FUNCTION-PROLOGUE"
1755              "TRACE-TABLE-NORMAL" "TYPE-BITS" "TYPE-MASK" "UNBOUND-MARKER-TYPE"
1756              "UNSIGNED-IMMEDIATE-SC-NUMBER"
1757              "UNSIGNED-REG-SC-NUMBER" "UNSIGNED-STACK-SC-NUMBER"
1758              "UNWIND-BLOCK-CURRENT-CODE-SLOT" "UNWIND-BLOCK-CURRENT-CONT-SLOT"
1759              "UNWIND-BLOCK-CURRENT-UWP-SLOT" "UNWIND-BLOCK-ENTRY-PC-SLOT"
1760              "UNWIND-BLOCK-SIZE" "VALUE-CELL-HEADER-TYPE" "VALUE-CELL-SIZE"
1761              "VALUE-CELL-VALUE-SLOT" "VECTOR-DATA-OFFSET" "VECTOR-LENGTH-SLOT"
1762              "VECTOR-MUST-REHASH-SUBTYPE" "VECTOR-NORMAL-SUBTYPE"
1763              "VECTOR-VALID-HASHING-SUBTYPE"
1764              "WEAK-POINTER-BROKEN-SLOT" "WEAK-POINTER-NEXT-SLOT"
1765              "WEAK-POINTER-SIZE" "WEAK-POINTER-TYPE" "WEAK-POINTER-VALUE-SLOT"
1766              "WORD" "WORD-BITS" "WORD-BYTES" "WORD-REG-SC-NUMBER" "WORD-SHIFT"
1767              "ZERO-SC-NUMBER"))
1768
1769  #s(sb-cold:package-data
1770     :name "SB!WALKER"
1771     :doc "internal: a code walker used by PCL"
1772     :use ("CL" "SB!INT" "SB!EXT")
1773     :export ("DEFINE-WALKER-TEMPLATE" "WALK-FORM"
1774              "*WALK-FORM-EXPAND-MACROS-P*" 
1775              "VARIABLE-LEXICAL-P" "VARIABLE-SPECIAL-P"
1776              "VARIABLE-GLOBALLY-SPECIAL-P"
1777              "*VARIABLE-DECLARATIONS*" "VARIABLE-DECLARATION"
1778
1779              ;; These were exported from the original PCL version of this 
1780              ;; package, but aren't used in SBCL.
1781              ;;"NESTED-WALK-FORM" "MACROEXPAND-ALL"
1782              )))