7e1f40e99c61ab83e6221b7367bb732c1923f8bf
[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     :use ("CL" "SB!ALIEN-INTERNALS" "SB!ALIEN" "SB!BIGNUM"
138           #!+sb-dyncount "SB-DYNCOUNT"
139           "SB!EXT" "SB!INT" "SB!KERNEL" "SB!ASSEM" "SB!SYS")
140     :reexport ("SLOT" "CODE-INSTRUCTIONS" "FLUSHABLE")
141     :export ("%ALIEN-FUNCALL" "%CATCH-BREAKUP" "%CONTINUE-UNWIND" "&MORE"
142               "%LISTIFY-REST-ARGS" "%MORE-ARG" "%MORE-ARG-VALUES"
143               "%UNWIND-PROTECT-BREAKUP"
144
145               "*BACKEND-BYTE-ORDER*" "*BACKEND-DISASSEM-PARAMS*"
146               "*BACKEND-FASL-FILE-IMPLEMENTATION*"
147               "*BACKEND-FASL-FILE-TYPE*" "*BACKEND-FASL-FILE-VERSION*"
148               "*BACKEND-INFO-ENVIRONMENT*"
149               "*BACKEND-INSTRUCTION-FLAVORS*" "*BACKEND-INSTRUCTION-FORMATS*"
150               "*BACKEND-INTERNAL-ERRORS*" "*BACKEND-PAGE-SIZE*"
151               "*BACKEND-REGISTER-SAVE-PENALTY*"
152               "*BACKEND-SB-LIST*" "*BACKEND-SB-NAMES*"
153               "*BACKEND-SC-NAMES*" "*BACKEND-SC-NUMBERS*"
154               "*BACKEND-SPECIAL-ARG-TYPES*"
155               "*BACKEND-T-PRIMITIVE-TYPE*"
156
157               "*CODE-SEGMENT*" 
158               "*CONVERTING-FOR-INTERPRETER*"
159               "*COUNT-VOP-USAGES*" "*ELSEWHERE*"
160               "*FASL-HEADER-STRING-START-STRING*"
161               "*FASL-HEADER-STRING-STOP-CHAR-CODE*"
162               "*SETF-ASSUMED-FBOUNDP*"
163               "*SUPPRESS-VALUES-DECLARATION*"
164
165               "ALLOC-ALIEN-STACK-SPACE" "ALLOC-NUMBER-STACK-SPACE"
166               "ALLOCATE-CODE-OBJECT" "ALLOCATE-FRAME"
167               "ALLOCATE-DYNAMIC-CODE-OBJECT" "ALLOCATE-FULL-CALL-FRAME"
168               "ANY" "ARGUMENT-COUNT-ERROR" "ASSEMBLE-FILE"
169               "ATTRIBUTES" "ATTRIBUTES-INTERSECTION" "ATTRIBUTES-UNION"
170               "ATTRIBUTES=" "BIND"
171               "BYTE-BLT" ; doesn't logically belong here, but is name of VOP..
172               "CALL" "CALL-LOCAL" "CALL-NAMED" "CALL-OUT" "CALL-VARIABLE"
173               "CALLEE-NFP-TN" "CALLEE-RETURN-PC-TN"
174               "CASE-BODY" "CATCH-BLOCK" "CHECK-CONS"
175               "CHECK-FIXNUM" "CHECK-FUNCTION" "CHECK-FUNCTION-OR-SYMBOL"
176               "CHECK-SIGNED-BYTE-32" "CHECK-SYMBOL" "CHECK-UNSIGNED-BYTE-32"
177               "CLOSURE-INIT" "CLOSURE-REF"
178               "CODE-CONSTANT-REF" "CODE-CONSTANT-SET" 
179               "COMPILE-FOR-EVAL" "COMPONENT" "COMPONENT-HEADER-LENGTH"
180               "COMPONENT-INFO" "COMPONENT-LIVE-TN" "COMPUTE-FUNCTION"
181               "COMPUTE-OLD-NFP" "COPY-MORE-ARG" 
182               "CURRENT-BINDING-POINTER" "CURRENT-NFP-TN"
183               "CURRENT-STACK-POINTER" "DEALLOC-ALIEN-STACK-SPACE"
184               "DEALLOC-NUMBER-STACK-SPACE" "DEF-BOOLEAN-ATTRIBUTE"
185               "DEF-IR1-TRANSLATOR" "DEF-PRIMITIVE-TRANSLATOR"
186               "!DEF-PRIMITIVE-TYPE" "!DEF-PRIMITIVE-TYPE-ALIAS"
187               "DEF-SOURCE-TRANSFORM" "!DEF-VM-SUPPORT-ROUTINE"
188               "DEFINE-ASSEMBLY-ROUTINE" "DEFINE-MOVE-FUNCTION"
189               "DEFINE-MOVE-VOP" "DEFINE-STORAGE-BASE"
190               "DEFINE-STORAGE-CLASS" "DEFINE-VOP"
191               "DEFKNOWN" "DEFOPTIMIZER"
192               "DEFTRANSFORM" "DERIVE-TYPE"
193               "ENTRY-NODE-INFO-NLX-TAG" "ENTRY-NODE-INFO-ST-TOP"
194               "ENVIRONMENT-DEBUG-LIVE-TN" "ENVIRONMENT-LIVE-TN"
195               "FAST-SYMBOL-FUNCTION" "FAST-SYMBOL-VALUE" "FOLDABLE"
196               "FORCE-TN-TO-STACK" "GET-VECTOR-SUBTYPE"
197               "HALT" "IF-EQ" "INSTANCE-REF" "INSTANCE-SET"
198               "IR2-COMPONENT-CONSTANTS" "IR2-CONVERT"
199               "IR2-ENVIRONMENT-NUMBER-STACK-P" "KNOWN-CALL-LOCAL"
200               "KNOWN-RETURN" "LAMBDA-EVAL-INFO-ARGS-PASSED"
201               "LAMBDA-EVAL-INFO-ENTRIES" "LAMBDA-EVAL-INFO-FRAME-SIZE"
202               "LAMBDA-EVAL-INFO-FUNCTION" "LOCATION=" "LTN-ANNOTATE"
203               "MAKE-ALIAS-TN" "MAKE-CATCH-BLOCK"
204               "MAKE-CLOSURE" "MAKE-CONSTANT-TN" "MAKE-FIXNUM"
205               "MAKE-LOAD-TIME-CONSTANT-TN" "MAKE-N-TNS" "MAKE-NORMAL-TN"
206               "MAKE-OTHER-IMMEDIATE-TYPE" "MAKE-RANDOM-TN"
207               "MAKE-REPRESENTATION-TN" "MAKE-RESTRICTED-TN" "MAKE-SC-OFFSET"
208               "MAKE-STACK-POINTER-TN" "MAKE-TN-REF" "MAKE-UNWIND-BLOCK"
209               "MAKE-VALUE-CELL" "MAKE-WIRED-TN" "MAYBE-COMPILER-NOTE"
210               "META-PRIMITIVE-TYPE-OR-LOSE"
211               "META-SB-OR-LOSE" "META-SC-NUMBER-OR-LOSE" "META-SC-OR-LOSE"
212               "MORE-ARG-CONTEXT" "MOVABLE" "MOVE" "MULTIPLE-CALL"
213               "MULTIPLE-CALL-LOCAL" "MULTIPLE-CALL-NAMED"
214               "MULTIPLE-CALL-VARIABLE" "NLX-ENTRY" "NLX-ENTRY-MULTIPLE"
215               "NON-DESCRIPTOR-STACK" "NOTE-ENVIRONMENT-START"
216               "NOTE-THIS-LOCATION" "OPTIMIZER" "PACK-TRACE-TABLE"
217               "POLICY" "PREDICATE" "PRIMITIVE-TYPE" "PRIMITIVE-TYPE-OF"
218               "PRIMITIVE-TYPE-OR-LOSE" "PRIMITIVE-TYPE-VOP"
219               "PRIMITIVE-TYPE-NAME" "PUSH-VALUES"
220               "READ-PACKED-BIT-VECTOR" "READ-VAR-INTEGER" "READ-VAR-STRING"
221               "RESET-STACK-POINTER" "RESTORE-DYNAMIC-STATE"
222               "RETURN-MULTIPLE" "SAVE-DYNAMIC-STATE" "SB"
223               "SB-ALLOCATED-SIZE" "SB-NAME" "SB-OR-LOSE" "SB-P" "SC" "SC-CASE"
224               "SC-IS" "SC-NAME" "SC-NUMBER" "SC-NUMBER-OR-LOSE"
225               "SC-OFFSET-OFFSET" "SC-OFFSET-SCN" "SC-OR-LOSE" "SC-P" "SC-SB"
226               "SET-UNWIND-PROTECT" "SET-VECTOR-SUBTYPE"
227               "SETUP-CLOSURE-ENVIRONMENT" "SETUP-ENVIRONMENT"
228               "SPECIFY-SAVE-TN" "INSTANCE-REF"
229               "INSTANCE-SET" "TAIL-CALL" "TAIL-CALL-NAMED"
230               "TAIL-CALL-VARIABLE" "TEMPLATE-OR-LOSE"
231               "TN" "TN-OFFSET" "TN-P" "TN-REF" "TN-REF-ACROSS" "TN-REF-LOAD-TN"
232               "TN-REF-NEXT" "TN-REF-NEXT-REF" "TN-REF-P" "TN-REF-TARGET"
233               "TN-REF-TN" "TN-REF-VOP" "TN-REF-WRITE-P" "TN-SC" "TN-VALUE"
234               "TRACE-TABLE-ENTRY" "TYPE-CHECK-ERROR" "UNBIND" "UNBIND-TO-HERE"
235               "UNSAFE" "UNWIND" "UWP-ENTRY"
236               "VALUE-CELL-REF" "VALUE-CELL-SET"
237               "VERIFY-ARGUMENT-COUNT" "WRITE-PACKED-BIT-VECTOR"
238               "WRITE-VAR-INTEGER" "WRITE-VAR-STRING" "XEP-ALLOCATE-FRAME"
239               "LABEL-ID" "FIXUP" "FIXUP-FLAVOR" "FIXUP-NAME" "FIXUP-OFFSET"
240               "FIXUP-P" "MAKE-FIXUP"
241               "DEF-ALLOC"
242               "VAR-ALLOC"
243               "SAFE-FDEFN-FUNCTION"
244               "NOTE-FIXUP"
245               "DEF-REFFER"
246               "EMIT-NOP"
247               "DEF-SETTER"
248               "FIXED-ALLOC"
249               "MAKE-UNBOUND-MARKER"
250               "RETURN-SINGLE"
251               "NOTE-NEXT-INSTRUCTION"
252               "SET-SLOT"
253               "LOCATION-NUMBER"
254               "BYTE-FASL-FILE-VERSION"
255               "*COMPONENT-BEING-COMPILED*"
256               "BLOCK-NUMBER"
257               "BACKEND"
258               "BACKEND-BYTE-FASL-FILE-IMPLEMENTATION"
259               "IR2-BLOCK-BLOCK"
260               "DISASSEM-BYTE-COMPONENT"
261               "FUNCALLABLE-INSTANCE-LEXENV"
262               "DISASSEM-BYTE-FUN"
263               "VOP-BLOCK"
264               "*ASSEMBLY-OPTIMIZE*"
265               "LARGE-ALLOC"
266               "%SET-FUNCTION-SELF"
267               "VM-SUPPORT-ROUTINES-IMMEDIATE-CONSTANT-SC"
268               "VM-SUPPORT-ROUTINES-LOCATION-PRINT-NAME"
269               "VM-SUPPORT-ROUTINES-PRIMITIVE-TYPE-OF"
270               "VM-SUPPORT-ROUTINES-PRIMITIVE-TYPE"
271               "VM-SUPPORT-ROUTINES-MAKE-CALL-OUT-TNS"
272               "VM-SUPPORT-ROUTINES-STANDARD-ARGUMENT-LOCATION"
273               "VM-SUPPORT-ROUTINES-MAKE-RETURN-PC-PASSING-LOCATION"
274               "VM-SUPPORT-ROUTINES-MAKE-OLD-FP-PASSING-LOCATION"
275               "VM-SUPPORT-ROUTINES-MAKE-OLD-FP-SAVE-LOCATION"
276               "VM-SUPPORT-ROUTINES-MAKE-RETURN-PC-SAVE-LOCATION"
277               "VM-SUPPORT-ROUTINES-MAKE-ARGUMENT-COUNT-LOCATION"
278               "VM-SUPPORT-ROUTINES-MAKE-NFP-TN"
279               "VM-SUPPORT-ROUTINES-MAKE-STACK-POINTER-TN"
280               "VM-SUPPORT-ROUTINES-MAKE-NUMBER-STACK-POINTER-TN"
281               "VM-SUPPORT-ROUTINES-MAKE-UNKNOWN-VALUES-LOCATIONS"
282               "VM-SUPPORT-ROUTINES-SELECT-COMPONENT-FORMAT"
283               "VM-SUPPORT-ROUTINES-MAKE-NLX-SP-TN"
284               "VM-SUPPORT-ROUTINES-MAKE-DYNAMIC-STATE-TNS"
285               "VM-SUPPORT-ROUTINES-MAKE-NLX-ENTRY-ARGUMENT-START-LOCATION"
286               "VM-SUPPORT-ROUTINES-GENERATE-CALL-SEQUENCE"
287               "VM-SUPPORT-ROUTINES-GENERATE-RETURN-SEQUENCE"
288               "VM-SUPPORT-ROUTINES-EMIT-NOP"
289               "VM-SUPPORT-ROUTINES-LOCATION-NUMBER"))
290
291  #s(sb-cold:package-data
292     :name "SB!C-CALL"
293     ;; FIXME: Why not just put this stuff into SB-ALIEN? Or maybe
294     ;; just glom this and SB-ALIEN together into SB-FFI?
295     :doc "public: some types used with ALIENs"
296     :use ("CL" "SB!SYS" "SB!ALIEN-INTERNALS" "SB!ALIEN" "SB!INT" "SB!EXT")
297     :reexport ("FLOAT" "CHAR")
298     :export ("C-STRING" "DOUBLE" "INT" "LONG"
299              "SHORT" "UNSIGNED-CHAR" "UNSIGNED-INT"
300              "UNSIGNED-LONG" "UNSIGNED-SHORT" "VOID"))
301
302  #!+sb-dyncount
303  #s(sb-cold:package-data
304     :name "SB!DYNCOUNT"
305     :doc "private: some somewhat-stale code for collecting runtime statistics"
306     :use ("CL" "SB!ALIEN-INTERNALS" "SB!ALIEN" "SB!BIGNUM"
307           "SB!EXT" "SB!INT" "SB!KERNEL" "SB!ASSEM" "SB!SYS")
308     :export ("*COLLECT-DYNAMIC-STATISTICS*" "COUNT-ME"
309              "DYNCOUNT-INFO-COUNTS" "DYNCOUNT-INFO-COSTS"
310              "IR2-COMPONENT-DYNCOUNT-INFO"
311              "DYNCOUNT-INFO" "DYNCOUNT-INFO-P"))
312
313  ;; This package is a grab bag for things which used to be internal
314  ;; symbols in package COMMON-LISP. Lots of these symbols are accessed
315  ;; with explicit SB!IMPL:: prefixes in the code. It would be nice to
316  ;; reduce the use of this practice, so if symbols from here which are
317  ;; accessed that way are found to belong more appropriately in
318  ;; an existing package (e.g. KERNEL or SYS or EXT) or a new package
319  ;; (e.g. something to collect together all the FOP stuff), I
320  ;; (WHN 19990223) encourage maintainers to move them there..
321  ;;
322  ;; ..except that it's getting so big and crowded that maybe it
323  ;; should be split up, too.
324  #s(sb-cold:package-data
325     :name "SB!IMPL"
326     :doc "private: a grab bag of implementation details"
327     :use ("CL" "SB!ALIEN" "SB!BIGNUM" "SB!C-CALL" "SB!DEBUG" "SB!EXT"
328           "SB!GRAY" "SB!INT" "SB!KERNEL" "SB!SYS"))
329
330  ;; FIXME: It seems to me that this could go away, with its contents moved
331  ;; into SB!KERNEL, like the implementation of the rest of the class system.
332 ;; #s(sb-cold:package-data
333 ;;    :name "SB!CONDITIONS"
334 ;;    :doc "private: the implementation of the condition system"
335 ;;    :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL"))
336
337  #s(sb-cold:package-data
338     :name "SB!DEBUG"
339     :doc
340 "public: (eventually) the debugger interface (but currently) the
341 debugger interface mixed with various low-level implementation stuff
342 like *STACK-TOP-HINT*"
343     :use ("CL" "SB!EXT" "SB!INT" "SB!SYS")
344     :export ("*AUTO-EVAL-IN-FRAME*" "*DEBUG-CONDITION*"
345              "*DEBUG-PRINT-LENGTH*" "*DEBUG-PRINT-LEVEL*"
346              "*DEBUG-READTABLE*" "*DEBUG-HELP-STRING*"
347              "*FLUSH-DEBUG-ERRORS*" "*IN-THE-DEBUGGER*"
348              "*TRACE-INDENTATION-STEP*" "*MAX-TRACE-INDENTATION*"
349              "*TRACE-FRAME*" "*TRACE-PRINT-LENGTH*"
350              "*TRACE-PRINT-LEVEL*" "*TRACED-FUNCTION-LIST*"
351              "ARG" "BACKTRACE" "INTERNAL-DEBUG" "VAR"
352              "*PRINT-LOCATION-KIND*"
353              "*ONLY-BLOCK-START-LOCATIONS*" "*STACK-TOP-HINT*"
354              "*TRACE-VALUES*" "DO-DEBUG-COMMAND"
355              "*TRACE-ENCAPSULATE-DEFAULT*"))
356
357  #s(sb-cold:package-data
358     :name "SB!DI"
359     :doc "private: primitives used to write debuggers"
360     :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!VM")
361     :import-from (("SB!C"
362                    "DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME"
363                    "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED"
364                    "DEBUG-SOURCE-START-POSITIONS" "MAKE-DEBUG-SOURCE"
365                    "DEBUG-SOURCE" "DEBUG-SOURCE-P"))
366     :reexport ("DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME"
367                "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED"
368                "DEBUG-SOURCE-START-POSITIONS" "DEBUG-SOURCE"
369                "DEBUG-SOURCE-P")
370     :export ("*DEBUGGING-INTERPRETER*" "ACTIVATE-BREAKPOINT"
371              "AMBIGUOUS-DEBUG-VARS" "AMBIGUOUS-VARIABLE-NAME" "BREAKPOINT"
372              "BREAKPOINT-ACTIVE-P" "BREAKPOINT-HOOK-FUNCTION" "BREAKPOINT-INFO"
373              "BREAKPOINT-KIND" "BREAKPOINT-P" "BREAKPOINT-WHAT" "CODE-LOCATION"
374              "CODE-LOCATION-DEBUG-BLOCK" "CODE-LOCATION-DEBUG-FUNCTION"
375              "CODE-LOCATION-DEBUG-SOURCE" "CODE-LOCATION-FORM-NUMBER"
376              "CODE-LOCATION-P" "CODE-LOCATION-TOP-LEVEL-FORM-OFFSET"
377              "CODE-LOCATION-UNKNOWN-P" "CODE-LOCATION=" "DEACTIVATE-BREAKPOINT"
378              "DEBUG-BLOCK" "DEBUG-BLOCK-ELSEWHERE-P" "DEBUG-BLOCK-P"
379              "DEBUG-BLOCK-SUCCESSORS" "DEBUG-CONDITION" "DEBUG-ERROR"
380              "DEBUG-FUNCTION" "DEBUG-FUNCTION-FUNCTION" "DEBUG-FUNCTION-KIND"
381              "DEBUG-FUNCTION-LAMBDA-LIST" "DEBUG-FUNCTION-NAME"
382              "DEBUG-FUNCTION-P" "DEBUG-FUNCTION-START-LOCATION"
383              "DEBUG-FUNCTION-SYMBOL-VARIABLES"
384              "DEBUG-SOURCE-ROOT-NUMBER" "DEBUG-VAR"
385              "DEBUG-VAR-ID" "DEBUG-VAR-INFO-AVAILABLE"
386              "DEBUG-VAR-SYMBOL-NAME" "DEBUG-VAR-P" "DEBUG-VAR-PACKAGE-NAME"
387              "DEBUG-VAR-SYMBOL" "DEBUG-VAR-VALID-VALUE"
388              "DEBUG-VAR-VALIDITY" "DEBUG-VAR-VALUE"
389              "DELETE-BREAKPOINT" "DO-BLOCKS"
390              "DO-DEBUG-BLOCK-LOCATIONS" "DO-DEBUG-FUNCTION-BLOCKS"
391              "DO-DEBUG-FUNCTION-VARIABLES" "EVAL-IN-FRAME"
392              "FORM-NUMBER-TRANSLATIONS" "FRAME" "FRAME-CATCHES"
393              "FRAME-CODE-LOCATION" "FRAME-DEBUG-FUNCTION" "FRAME-DOWN"
394              "FRAME-FUNCTION-MISMATCH" "FRAME-NUMBER" "FRAME-P" "FRAME-UP"
395              "FUNCTION-DEBUG-FUNCTION" "FUNCTION-END-COOKIE-VALID-P"
396              "INVALID-CONTROL-STACK-POINTER" "INVALID-VALUE"
397              "LAMBDA-LIST-UNAVAILABLE" "MAKE-BREAKPOINT" "NO-DEBUG-BLOCKS"
398              "NO-DEBUG-FUNCTION-RETURNS" "NO-DEBUG-INFO" "PREPROCESS-FOR-EVAL"
399              "RETURN-FROM-FRAME" "SOURCE-PATH-CONTEXT"
400              "TOP-FRAME" "UNHANDLED-DEBUG-CONDITION" "UNKNOWN-CODE-LOCATION"
401              "UNKNOWN-CODE-LOCATION-P" "UNKNOWN-DEBUG-VAR"
402              "CODE-LOCATION-KIND" "FLUSH-FRAMES-ABOVE"))
403
404  #s(sb-cold:package-data
405     :name "SB!DISASSEM"
406     :doc "private: stuff related to the implementation of the disassembler"
407     :use ("CL" "SB!EXT" "SB!INT")
408     :export ("*DISASSEM-INST-ALIGNMENT-BYTES*"
409              "*DISASSEM-NOTE-COLUMN*" "*DISASSEM-OPCODE-COLUMN-WIDTH*"
410              "*DISASSEM-SCHEDULER-P*" "*DISASSEM-LOCATION-COLUMN-WIDTH*"
411              "ADD-COMMENT-HOOK" "ADD-HOOK" "ADD-NOTE-HOOK"
412              "ARG-VALUE" "CREATE-DSTATE" "DISASSEM-STATE"
413              "DISASSEMBLE-CODE-COMPONENT"
414              "DISASSEMBLE-FUNCTION" "DISASSEMBLE-MEMORY"
415              "DISASSEMBLE-SEGMENT" "DISASSEMBLE-SEGMENTS"
416              "DSTATE-CODE" "DSTATE-CURPOS" "DSTATE-GET-PROP"
417              "DSTATE-NEXTPOS" "DSTATE-SEGMENT-LENGTH"
418              "DSTATE-SEGMENT-SAP" "DSTATE-SEGMENT-START"
419              "FIELD-TYPE" "FIND-INST" "GEN-FIELD-TYPE-DECL-FORM"
420              "GEN-INST-DECL-FORM" "GEN-INST-FORMAT-DECL-FORM"
421              "GET-CODE-SEGMENTS" "GET-FUNCTION-SEGMENTS"
422              "GET-INST-SPACE" "HANDLE-BREAK-ARGS"
423              "INST" "INST-FORMAT" "LABEL-SEGMENTS"
424              "MAYBE-NOTE-ASSEMBLER-ROUTINE"
425              "MAYBE-NOTE-ASSOCIATED-STORAGE-REF"
426              "MAYBE-NOTE-NIL-INDEXED-OBJECT"
427              "MAYBE-NOTE-NIL-INDEXED-SYMBOL-SLOT-REF"
428              "MAYBE-NOTE-SINGLE-STORAGE-REF" "NOTE"
429              "NOTE-CODE-CONSTANT" "PARAMS" "PRIN1-QUOTED-SHORT"
430              "PRIN1-SHORT" "PRINT-BYTES"
431              "PRINT-CURRENT-ADDRESS" "PRINT-FIELD" "PRINT-INST"
432              "PRINT-INST-USING" "PRINT-NOTES-AND-NEWLINE"
433              "PRINT-WORDS" "SAP-REF-DCHUNK" "SEG-DEBUG-FUNCTION"
434              "SEG-LENGTH" "SEG-START" "SEGMENT"
435              "SET-ADDRESS-PRINTING-RANGE" "SET-DISASSEM-PARAMS"
436              "SET-DSTATE-SEGMENT" "SIGN-EXTEND" "SPECIALIZE"
437              "GEN-PRINTER-DEF-FORMS-DEF-FORM" "MAKE-DSTATE"
438              "DEFINE-ARGUMENT-TYPE" "GEN-ARG-TYPE-DEF-FORM"
439              "READ-SIGNED-SUFFIX" "ADD-OFFS-HOOK"
440              "MAKE-MEMORY-SEGMENT" "GEN-PREAMBLE-FORM"
441              "MAKE-SEGMENT" "SEGMENT-OVERFLOW"
442              "SEG-VIRTUAL-LOCATION" "MAKE-DECODED-INST"
443              "DCHUNK" "*DEFAULT-DSTATE-HOOKS*"
444              "MAKE-CODE-SEGMENT" "MAKE-OFFS-HOOK"
445              "DSTATE-SEGMENT" "DSTATE-CUR-OFFS"
446              "PRINC16" "INSTRUCTION" "DEFINE-INSTRUCTION-FORMAT"
447              "DSTATE-NEXT-OFFS" "INSTALL-INST-FLAVORS"
448              "SEG-SAP-MAKER" "DISASSEMBLE-ASSEM-SEGMENT"
449              "GEN-CLEAR-INFO-FORM" "READ-SUFFIX"
450              "MAP-SEGMENT-INSTRUCTIONS" "GEN-FORMAT-DEF-FORM"
451              "SET-LOCATION-PRINTING-RANGE" "MAKE-VECTOR-SEGMENT"
452              "ADD-OFFS-NOTE-HOOK" "ADD-OFFS-COMMENT-HOOK"
453              "DSTATE-CUR-ADDR" "DSTATE-NEXT-ADDR"))
454
455  #!+sb-interpreter
456  #s(sb-cold:package-data
457     :name "SB!EVAL"
458     :doc "private: the implementation of the IR1 interpreter"
459     :use ("CL" "SB!KERNEL" "SB!INT")
460     :export ("*EVAL-STACK-TRACE*" "*INTERNAL-APPLY-NODE-TRACE*"
461              "FLUSH-INTERPRETED-FUNCTION-CACHE" "INTERNAL-EVAL"
462              "INTERPRETED-FUNCTION"
463              "INTERPRETED-FUNCTION-ARGLIST"
464              "INTERPRETED-FUNCTION-CLOSURE"
465              "INTERPRETED-FUNCTION-LAMBDA-EXPRESSION"
466              "INTERPRETED-FUNCTION-NAME"
467              "INTERPRETED-FUNCTION-P"
468              "INTERPRETED-FUNCTION-TYPE"
469              "MAKE-INTERPRETED-FUNCTION"
470              "PRINT-INTERPRETED-FUNCTION-OBJECT"
471              "TRACE-EVAL"))
472
473  #s(sb-cold:package-data
474     :name "SB!EXT"
475     :doc "public: miscellaneous supported extensions to the ANSI Lisp spec"
476     ;; FIXME: Why don't we just USE-PACKAGE %KERNEL here instead of importing?
477     :use ("CL" "SB!ALIEN" "SB!C-CALL" "SB!INT" "SB!SYS" "SB!GRAY")
478     ;; FIXME: If we advertise these as extensions, they should be in the
479     ;; SB!EXT package (and perhaps re-exported from the %KERNEL
480     ;; package) rather than in some other package and reexported from
481     ;; SB!EXT.
482     :import-from (("SB!KERNEL" "WEAK-POINTER-P"))
483     :reexport ("LOAD-FOREIGN" "LOAD-1-FOREIGN" "WEAK-POINTER-P")
484     :export (;; Information about how the program was invoked is
485              ;; nonstandard but very useful.
486              "*POSIX-ARGV*" "POSIX-GETENV" "POSIX-ENVIRON"
487
488              ;; People have various good reasons to mess with the GC.
489              "*AFTER-GC-HOOKS*" "*BEFORE-GC-HOOKS*"
490              "*GC-NOTIFY-AFTER*" "*GC-NOTIFY-BEFORE*" "*GC-NOTIFY-STREAM*"
491              "*GC-VERBOSE*"
492              "BYTES-CONSED-BETWEEN-GCS"
493              "GC" "GC-OFF" "GC-ON" "GET-BYTES-CONSED"
494              "*GC-RUN-TIME*"
495              "PURIFY"
496
497              ;; There is no one right way to report progress on
498              ;; hairy compiles.
499              "*COMPILE-PROGRESS*"
500
501              ;; There is no one right way to do DESCRIBE.
502              "*DESCRIBE-INDENTATION-STEP*"
503
504              ;; There is no one right way to do efficiency notes.
505              "*EFFICIENCY-NOTE-COST-THRESHOLD*" "*EFFICIENCY-NOTE-LIMIT*"
506
507              ;; There's no one right way to report errors.
508              "*ENCLOSING-SOURCE-CUTOFF*"
509              "*UNDEFINED-WARNING-LIMIT*"
510
511              ;; and for dedicated users who really want to customize
512              ;; error reporting, we have
513              "DEF-SOURCE-CONTEXT"
514
515              ;; FIXME: These seem like the right thing, but are they
516              ;; consistent with ANSI? (And actually maybe they're not
517              ;; quite the right thing; it might be better to also do
518              ;; WITH-STANDARD-IO-SYNTAX or something.)
519              "*ERROR-PRINT-LENGTH*" "*ERROR-PRINT-LEVEL*" "*ERROR-PRINT-LINES*"
520
521              ;; KLUDGE: CMU CL had
522              ;; "*IGNORE-FLOATING-POINT-UNDERFLOW*", which seemed
523              ;; like a reasonable idea but doesn't seem to be supported
524              ;; now? -- WHN 19991206
525
526              ;; extended declarations..
527              "FREEZE-TYPE" "INHIBIT-WARNINGS"
528              "MAYBE-INLINE" "OPTIMIZE-INTERFACE"
529
530              ;; ..and variables to control compiler policy
531              "*INLINE-EXPANSION-LIMIT*"
532              "*USE-IMPLEMENTATION-TYPES*"
533              "*BYTE-COMPILE-TOP-LEVEL*"
534              "*BYTE-COMPILE-DEFAULT*"
535              "*DERIVE-FUNCTION-TYPES*" ; FIXME FIXME FIXME FIXME..
536
537              ;; a special form for breaking out of our "declarations
538              ;; are assertions" default
539              "TRULY-THE"
540
541              ;; This is something which must exist inside any Common Lisp
542              ;; implementation, and which someone writing a customized toplevel
543              ;; might well want. It seems perverse to hide it from
544              ;; them..
545              "INTERACTIVE-EVAL"
546
547              ;; weak pointers and finalization
548              "FINALIZE" "CANCEL-FINALIZATION"
549              ;; FIXME: "WEAK-POINTER-P" here once it moves from SB!KERNEL
550              "HASH-TABLE-WEAK-P" "MAKE-WEAK-POINTER"
551              "WEAK-POINTER" "WEAK-POINTER-VALUE"
552
553              ;; If the user knows we're doing IEEE, he might reasonably
554              ;; want to do this stuff.
555              "FLOAT-DENORMALIZED-P"
556              "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P"
557              "FLOATING-POINT-INVALID"
558              "FLOAT-INFINITY-P"
559              "SHORT-FLOAT-NEGATIVE-INFINITY"
560              "SHORT-FLOAT-POSITIVE-INFINITY"
561              "SINGLE-FLOAT-NEGATIVE-INFINITY"
562              "SINGLE-FLOAT-POSITIVE-INFINITY"
563              "DOUBLE-FLOAT-NEGATIVE-INFINITY"
564              "DOUBLE-FLOAT-POSITIVE-INFINITY"
565              "LONG-FLOAT-NEGATIVE-INFINITY"
566              "LONG-FLOAT-POSITIVE-INFINITY"
567
568              ;; hacks to work around system limitations
569              "*INTEXP-MAXIMUM-EXPONENT*" ; since we crash hard when
570                                          ; memory is exhausted
571
572              ;; saving Lisp images
573              "SAVE-LISP-AND-DIE"
574
575              ;; miscellaneous useful supported extensions
576              "QUIT"
577
578              ;; RUN-PROGRAM is not only useful for users, but also
579              ;; useful to implement parts of SBCL itself, so we're
580              ;; going to have to implement it anyway, so we might
581              ;; as well support it. And then once we're committed
582              ;; to implementing RUN-PROGRAM, it's nice to have it
583              ;; return a PROCESS object with operations defined on
584              ;; that object.
585              "RUN-PROGRAM"
586              "PROCESS-ALIVE-P" "PROCESS-CLOSE"
587              "PROCESS-CORE-DUMPED" "PROCESS-ERROR" "PROCESS-EXIT-CODE"
588              "PROCESS-INPUT" "PROCESS-KILL" "PROCESS-OUTPUT" "PROCESS-P"
589              "PROCESS-PID" "PROCESS-PLIST" "PROCESS-PTY" "PROCESS-STATUS"
590              "PROCESS-STATUS-HOOK" "PROCESS-WAIT"))
591
592  #s(sb-cold:package-data
593     :name "SB!FORMAT"
594     :doc "private: implementation of FORMAT and friends"
595     :use ("CL" "SB!KERNEL" "SB!EXT" "SB!INT"))
596
597  #s(sb-cold:package-data
598     :name "SB!GRAY"
599     :doc
600 "public: an implementation of the stream-definition-by-user
601 Lisp extension proposal by David N. Gray"
602     :use ("CL" "SB!KERNEL" "SB!EXT" "SB!INT")
603     :export ("FUNDAMENTAL-BINARY-STREAM" "FUNDAMENTAL-BINARY-INPUT-STREAM"
604              "FUNDAMENTAL-BINARY-OUTPUT-STREAM" "FUNDAMENTAL-CHARACTER-STREAM"
605              "FUNDAMENTAL-CHARACTER-INPUT-STREAM"
606              "FUNDAMENTAL-CHARACTER-OUTPUT-STREAM"
607              "FUNDAMENTAL-INPUT-STREAM" "FUNDAMENTAL-OUTPUT-STREAM"
608              "FUNDAMENTAL-STREAM"
609              "STREAM-ADVANCE-TO-COLUMN" "STREAM-CLEAR-INPUT"
610              "STREAM-CLEAR-OUTPUT" "STREAM-FINISH-OUTPUT" "STREAM-FORCE-OUTPUT"
611              "STREAM-FRESH-LINE" "STREAM-LINE-COLUMN" "STREAM-LINE-LENGTH"
612              "STREAM-LISTEN" "STREAM-PEEK-CHAR" "STREAM-READ-BYTE"
613              "STREAM-READ-CHAR" "STREAM-READ-CHAR-NO-HANG" "STREAM-READ-LINE"
614              "STREAM-START-LINE-P" "STREAM-TERPRI" "STREAM-UNREAD-CHAR"
615              "STREAM-WRITE-BYTE" "STREAM-WRITE-CHAR" "STREAM-WRITE-STRING"))
616
617  ;; FIXME: It looks as though it's no longer important to have INSPECT be
618  ;; a separate package. INSPECT functionality is in the ANSI spec, and we
619  ;; might as well implement it with everything else.
620  #s(sb-cold:package-data
621     :name "SB!INSPECT"
622     :doc "private: implementation of INSPECT"
623     :use ("CL" "SB!KERNEL" "SB!EXT" "SB!INT")
624     :export ("*INTERFACE-STYLE*" "REMOVE-ALL-DISPLAYS"
625              "REMOVE-OBJECT-DISPLAY" "SHOW-OBJECT"))
626
627  #s(sb-cold:package-data
628     :name "SB!INT"
629     :doc
630 "private: miscellaneous unsupported extensions to the ANSI spec. Most of
631 the stuff in here originated in CMU CL's EXTENSIONS package and is
632 retained, possibly temporariliy, because it might be used internally."
633     :use ("CL" "SB!ALIEN" "SB!C-CALL" "SB!SYS" "SB!GRAY")
634     :export ("*AFTER-SAVE-INITIALIZATIONS*" "*BEFORE-SAVE-INITIALIZATIONS*"
635
636              "*ALL-MODIFIER-NAMES*"
637              "*BACKUP-EXTENSION*"
638
639              ;; INFO stuff doesn't belong in a user-visible package, we
640              ;; should be able to change it without apology.
641              "*INFO-ENVIRONMENT*"
642              "CLEAR-INFO"
643              "COMPACT-INFO-ENVIRONMENT"
644              "DEFINE-INFO-CLASS" "DEFINE-INFO-TYPE"
645              "DO-INFO"
646              "INFO"
647              "MAKE-INFO-ENVIRONMENT"
648
649              ;; packages grabbed once and for all
650              "*KEYWORD-PACKAGE*" "*CL-PACKAGE*"
651
652              ;; hash mixing operations
653              "MIX" "MIXF"
654
655              ;; Arguably there's no one right value for the system
656              ;; prompt. But Common Lisp makes it easy for you to write
657              ;; your own REPL if you really care, so I'm not convinced we
658              ;; need this as a supported extension.
659              "*PROMPT*"
660
661              ;; I'm not convinced that FDEFINITIONs are the ideal
662              ;; solution, so exposing ways to peek into the system
663              ;; seems undesirable, since it makes it harder to get
664              ;; rid of FDEFINITIONs entirely later.
665              "*SETF-FDEFINITION-HOOK*"
666
667              ;; error-reporting facilities
668              "SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"
669              "SIMPLE-PROGRAM-ERROR" "SIMPLE-STYLE-WARNING"
670              "STYLE-WARN"
671
672              ;; bootstrapping magic, to make things happen both in
673              ;; the cross-compilation host compiler's environment and
674              ;; in the cross-compiler's environment
675              "DEF!MACRO" "DEF!METHOD" "DEF!STRUCT" "DEF!TYPE"
676
677              ;; miscellaneous non-standard but handy user-level functions..
678              "ASSQ" "DELQ" "MEMQ" "POSQ" "NEQ"
679              "%FIND-PACKAGE-OR-LOSE" "FIND-UNDELETED-PACKAGE-OR-LOSE"
680              "SANE-PACKAGE"
681              "CIRCULAR-LIST-P"
682              "SWAPPED-ARGS-FUN"
683              "ANY/TYPE" "EVERY/TYPE"
684              "TYPE-BOUND-NUMBER"
685
686              ;; ..and macros..
687              "COLLECT"
688              "DO-ANONYMOUS" "DOHASH" "DOVECTOR"
689              "NAMED-LET"
690              "ONCE-ONLY"
691              "DEFENUM"
692              "DEFPRINTER"
693              "AVER"
694
695              ;; ..and DEFTYPEs..
696              "INDEX" 
697
698              ;; ..and type predicates
699              "INSTANCEP"
700              "DOUBLE-FLOATP"
701              "LOGICAL-PATHNAME-P"
702              "LONG-FLOATP"
703              "SHORT-FLOATP"
704              "SINGLE-FLOATP"
705              "FIXNUMP"
706              "BIGNUMP"
707              "RATIOP" 
708
709              ;; encapsulation
710              "ARGUMENT-LIST"
711              "BASIC-DEFINITION"
712              "ENCAPSULATE" "ENCAPSULATED-DEFINITION" "ENCAPSULATED-P"
713              "UNENCAPSULATE"
714
715              ;; various CHAR-CODEs
716              "BELL-CHAR-CODE" "ESCAPE-CHAR-CODE" "FORM-FEED-CHAR-CODE"
717              "RETURN-CHAR-CODE" "RUBOUT-CHAR-CODE" "TAB-CHAR-CODE"
718
719              ;; symbol-hacking idioms
720              "KEYWORDICATE" "SYMBOLICATE"
721
722              ;; search lists (FIXME: should go away)
723              "ENUMERATE-SEARCH-LIST"
724              "CLEAR-SEARCH-LIST"
725              "SEARCH-LIST"
726              "SEARCH-LIST-DEFINED-P"
727
728              ;; certainly doesn't belong in public extensions
729              ;; FIXME: maybe belongs in %KERNEL with other typesystem stuff?
730              "CONSTANT-ARGUMENT"
731
732              ;; various internal defaults
733              "*DEFAULT-PACKAGE-USE-LIST*"
734              "DEFAULT-INIT-CHAR"
735              "*LOAD-SOURCE-DEFAULT-TYPE*"
736
737              ;; hash caches
738              "DEFINE-HASH-CACHE"
739              "DEFUN-CACHED"
740
741              ;; time
742              "FORMAT-DECODED-TIME"
743              "FORMAT-UNIVERSAL-TIME"
744              "PARSE-TIME"
745
746              ;; indenting
747              "MAKE-INDENTING-STREAM"
748              "INDENTING-FURTHER"
749
750              ;; stream commands, used by the debugger
751              "GET-STREAM-COMMAND" "MAKE-STREAM-COMMAND" "STREAM-COMMAND"
752              "STREAM-COMMAND-ARGS" "STREAM-COMMAND-NAME" "STREAM-COMMAND-P"
753
754              ;; used for FORMAT tilde paren
755              "MAKE-CASE-FROB-STREAM"
756
757              ;; debuggers' little helpers
758              #!+sb-show "*/SHOW*"
759              #!+sb-show "HEXSTR"
760              "/SHOW"  "/NOSHOW"
761              "/XHOW"  "/NOXHOW"
762              "/SHOW0" "/NOSHOW0"
763              "/HEXSTR" "/NOHEXSTR"
764              "/PRIMITIVE-PRINT" "/NO-PRIMITIVE-PRINT"
765
766              ;; cross-compilation bootstrap hacks which turn into
767              ;; placeholders in a target system
768              "UNCROSS" 
769
770              ;; might as well be shared among the various files which
771              ;; need it:
772              "*EOF-OBJECT*"
773
774              ;; misc. utilities used internally
775              "LEGAL-FUNCTION-NAME-P"
776              "FUNCTION-NAME-BLOCK-NAME"
777              "LISTEN-SKIP-WHITESPACE"
778              "PACKAGE-INTERNAL-SYMBOL-COUNT" "PACKAGE-EXTERNAL-SYMBOL-COUNT"
779              "PROPER-LIST-OF-LENGTH-P"
780              "LIST-OF-LENGTH-AT-LEAST-P"
781              "READ-SEQUENCE-OR-DIE"
782              "RENAME-KEY-ARGS"
783              "REQUIRED-ARGUMENT"
784              "UNIX-NAMESTRING" ; FIXME: perhaps belongs in package %UNIX
785              "FEATUREP"
786              "FLUSH-STANDARD-OUTPUT-STREAMS"
787              "MAKE-GENSYM-LIST"
788              "DEFCONSTANT-EQX"
789              "ABOUT-TO-MODIFY"
790              "PRINT-PRETTY-ON-STREAM-P"
791
792              ;; These could be moved back into SB!EXT if someone has
793              ;; compelling reasons, but hopefully we can get by
794              ;; without supporting them, at least not as publicly
795              ;; accessible things with fixed interfaces.
796              "DEFAULT-DIRECTORY"
797              "GET-FLOATING-POINT-MODES" "SET-FLOATING-POINT-MODES"
798              "WITH-FLOAT-TRAPS-MASKED"
799              "DEFINE-HASH-TABLE-TEST"
800              "*GC-INHIBIT-HOOK*"
801
802              ;; compatibility hacks for old-style CMU CL data formats
803              "UNIX-ENVIRONMENT-CMUCL-FROM-SBCL"
804              "UNIX-ENVIRONMENT-SBCL-FROM-CMUCL"
805
806              ;; a sort of quasi unbound tag for use in hash tables
807              "+EMPTY-HT-SLOT+"
808
809              ;; not used any more, I think -- WHN 19991206
810              #+nil
811              ("SERVE-BUTTON-PRESS"
812               "SERVE-BUTTON-RELEASE" "SERVE-CIRCULATE-NOTIFY"
813               "SERVE-CIRCULATE-REQUEST" "SERVE-CLIENT-MESSAGE"
814               "SERVE-COLORMAP-NOTIFY" "SERVE-CONFIGURE-NOTIFY"
815               "SERVE-CONFIGURE-REQUEST" "SERVE-CREATE-NOTIFY"
816               "SERVE-DESTROY-NOTIFY" "SERVE-ENTER-NOTIFY" "SERVE-EXPOSURE"
817               "SERVE-FOCUS-IN" "SERVE-FOCUS-OUT" "SERVE-GRAPHICS-EXPOSURE"
818               "SERVE-GRAVITY-NOTIFY" "SERVE-KEY-PRESS" "SERVE-KEY-RELEASE"
819               "SERVE-LEAVE-NOTIFY" "SERVE-MAP-NOTIFY" "SERVE-MAP-REQUEST"
820               "SERVE-MOTION-NOTIFY" "SERVE-NO-EXPOSURE" "SERVE-PROPERTY-NOTIFY"
821               "SERVE-REPARENT-NOTIFY" "SERVE-RESIZE-REQUEST"
822               "SERVE-SELECTION-CLEAR" "SERVE-SELECTION-NOTIFY"
823               "SERVE-SELECTION-REQUEST" "SERVE-UNMAP-NOTIFY"
824               "SERVE-VISIBILITY-NOTIFY")))
825
826  #s(sb-cold:package-data
827     :name "SB!ITERATE"
828     :doc "private: an iteration facility used to implement PCL"
829     :use ("CL" "SB!WALKER" "SB!INT" "SB!EXT")
830     :export ("ITERATE" "ITERATE*" "GATHERING" "GATHER"
831              "WITH-GATHERING" "INTERVAL" "ELEMENTS"
832              "LIST-ELEMENTS" "LIST-TAILS" "PLIST-ELEMENTS"
833              "EACHTIME" "WHILE" "UNTIL" "COLLECTING" "JOINING"
834              "MAXIMIZING" "MINIMIZING" "SUMMING"
835              "*ITERATE-WARNINGS*"))
836
837  #s(sb-cold:package-data
838     :name "SB!KERNEL"
839     :doc
840 "private: Theoretically this 'hides state and types used for package
841 integration' (said CMU CL architecture.tex) and that probably was and
842 is a good idea, but see SB-SYS for blurring of boundaries."
843     :use ("CL" "SB!ALIEN" "SB!ALIEN-INTERNALS" "SB!BIGNUM"
844           "SB!EXT" "SB!INT" "SB!SYS" "SB!GRAY")
845     :import-from (("SB!C-CALL" "VOID"))
846     :reexport ("DEF!STRUCT" "DEF!MACRO" "VOID")
847     :export ("%ACOS" "%ACOSH" "%ARRAY-AVAILABLE-ELEMENTS"
848              "%ARRAY-DATA-VECTOR" "%ARRAY-DIMENSION"
849              "%ARRAY-DISPLACED-P"
850              "%ARRAY-DISPLACEMENT" "%ARRAY-FILL-POINTER"
851              "%ARRAY-FILL-POINTER-P"
852              "%ASIN" "%ASINH"
853              "%ATAN" "%ATAN2" "%ATANH"
854              "%CALLER-FRAME-AND-PC" "%CHECK-BOUND" "%CLOSURE-FUNCTION"
855              "%CLOSURE-INDEX-REF" "%COS" "%COS-QUICK"
856              "%COSH" "%DEPOSIT-FIELD"
857              "%DOUBLE-FLOAT" "%DPB" "%EXP" "%EXPM1"
858              "%HYPOT" "%INSTANCE-SET-CONDITIONAL" "%LDB"
859              "%LOG" "%LOGB" "%LOG10" "%LOG1P" "%LONG-FLOAT"
860              "%MAKE-COMPLEX" "%MAKE-FUNCALLABLE-INSTANCE" "%MAKE-RATIO"
861              "%MAP" "%MAP-TO-SIMPLE-VECTOR-ARITY-1" "%MAP-TO-LIST-ARITY-1"
862              "%MAP-TO-NIL-ON-SEQUENCE" "%MAP-TO-NIL-ON-SIMPLE-VECTOR"
863              "%MAP-TO-NIL-ON-VECTOR" "%MASK-FIELD" "%NEGATE" "%POW"
864              "%PUTHASH" "%RAW-BITS" "%RAW-REF-COMPLEX-DOUBLE"
865              "%RAW-REF-COMPLEX-LONG"
866              "%RAW-REF-COMPLEX-SINGLE" "%RAW-REF-DOUBLE"
867              "%RAW-REF-LONG"
868              "%RAW-REF-SINGLE" "%RAW-SET-COMPLEX-DOUBLE"
869              "%RAW-SET-COMPLEX-LONG" "%RAW-SET-COMPLEX-SINGLE"
870              "%RAW-SET-DOUBLE" "%RAW-SET-LONG" "%RAW-SET-SINGLE"
871              "%SCALB" "%SCALBN" "%SET-FUNCALLABLE-INSTANCE-FUNCTION"
872              "%SET-FUNCALLABLE-INSTANCE-INFO" "%SET-RAW-BITS"
873              "%SET-SAP-REF-16" "%SET-SAP-REF-32" "%SET-SAP-REF-64"
874              "%SET-SAP-REF-8" "%SET-SAP-REF-DOUBLE" "%SET-SAP-REF-LONG"
875              "%SET-SAP-REF-SAP" "%SET-SAP-REF-SINGLE"
876              "%SET-SIGNED-SAP-REF-16" "%SET-SIGNED-SAP-REF-32"
877              "%SET-SIGNED-SAP-REF-64" "%SET-SIGNED-SAP-REF-8"
878              "%SET-STACK-REF" "%SIN" "%SIN-QUICK"
879              "%SINGLE-FLOAT" "%SINH" "%SP-SET-DEFINITION"
880              "%SP-SET-PLIST"
881              "%SQRT" "%SXHASH-SIMPLE-STRING"
882              "%SXHASH-SIMPLE-SUBSTRING" "%TAN" "%TAN-QUICK"
883              "%TANH" "%UNARY-ROUND" "%UNARY-TRUNCATE"
884              "%WITH-ARRAY-DATA" "WITH-ARRAY-DATA"
885              "*ALREADY-MAYBE-GCING*"
886              "*CURRENT-LEVEL*" "*EMPTY-TYPE*"
887              "*EVAL-STACK-TOP*" "*GC-INHIBIT*"
888              "*NEED-TO-COLLECT-GARBAGE*"
889              "*PRETTY-PRINTER*" "*UNIVERSAL-TYPE*"
890              "*UNPARSE-FUNCTION-TYPE-SIMPLIFY*" "*WILD-TYPE*"
891              "32BIT-LOGICAL-AND" "32BIT-LOGICAL-ANDC1"
892              "32BIT-LOGICAL-ANDC2"
893              "32BIT-LOGICAL-EQV" "32BIT-LOGICAL-NAND"
894              "32BIT-LOGICAL-NOR"
895              "32BIT-LOGICAL-NOT" "32BIT-LOGICAL-OR"
896              "32BIT-LOGICAL-ORC1"
897              "32BIT-LOGICAL-ORC2" "32BIT-LOGICAL-XOR"
898              "ALIEN-TYPE-TYPE"
899              "ALIEN-TYPE-TYPE-ALIEN-TYPE" "ALIEN-TYPE-TYPE-P"
900              "ALLOCATE-VECTOR"
901              "ALWAYS-SUBTYPEP" "ARGS-TYPE" "ARGS-TYPE-ALLOWP"
902              "ARGS-TYPE-KEYP"
903              "ARGS-TYPE-KEYWORDS" "ARGS-TYPE-OPTIONAL" "ARGS-TYPE-P"
904              "ARGS-TYPE-REQUIRED" "ARGS-TYPE-REST"
905              "ARRAY-HEADER-P" "ARRAY-TYPE" "ARRAY-TYPE-COMPLEXP"
906              "ARRAY-TYPE-DIMENSIONS" "ARRAY-TYPE-ELEMENT-TYPE"
907              "ARRAY-TYPE-P"
908              "ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE" "ASH-INDEX"
909              "ASSERT-ERROR" "BASE-CHAR-P"
910              "!BEGIN-COLLECTING-COLD-INIT-FORMS"
911              "BINDING-STACK-POINTER-SAP" "BIT-BASH-AND"
912              "BIT-BASH-ANDC1"
913              "BIT-BASH-ANDC2" "BIT-BASH-CLEAR" "BIT-BASH-COPY"
914              "BIT-BASH-EQV"
915              "BIT-BASH-IOR" "BIT-BASH-LOGNAND" "BIT-BASH-LOGNOR"
916              "BIT-BASH-NOT"
917              "BIT-BASH-ORC1" "BIT-BASH-ORC2" "BIT-BASH-SET"
918              "BIT-BASH-XOR"
919              "BIT-INDEX" "BOGUS-ARGUMENT-TO-VALUES-LIST-ERROR"
920              "BOOLE-CODE"
921              "BYTE-SPECIFIER" "CALLABLE" "CASE-BODY-ERROR"
922              "CHARPOS"
923              "CHECK-FOR-CIRCULARITY" "CHECK-TYPE-ERROR"
924              "CLOSED-FLAME"
925              "CODE-COMPONENT" "CODE-COMPONENT-P"
926              "CODE-DEBUG-INFO" "CODE-HEADER-REF" "CODE-HEADER-SET"
927              "CODE-INSTRUCTIONS"
928              "COERCE-TO-BIT-VECTOR" "COERCE-TO-FUNCTION"
929              "COERCE-TO-LIST" "COERCE-TO-SIMPLE-STRING"
930              "COERCE-TO-SIMPLE-VECTOR" "COERCE-TO-VECTOR"
931              "*COLD-INIT-COMPLETE-P*"
932              "!COLD-INIT-FORMS" "COMPLEX-DOUBLE-FLOAT-P"
933              "COMPLEX-FLOAT-P" "COMPLEX-LONG-FLOAT-P"
934              "COMPLEX-RATIONAL-P" "COMPLEX-SINGLE-FLOAT-P" "COMPLEX-VECTOR-P"
935              "COMPOUND-TYPE" "COMPOUND-TYPE-P" "COMPOUND-TYPE-TYPES"
936              "CONS-TYPE" "CONS-TYPE-CAR-TYPE" "CONS-TYPE-CDR-TYPE"
937              "CONS-TYPE-P"
938              "CONSED-SEQUENCE" "CONSTANT" "CONSTANT-TYPE"
939              "CONSTANT-TYPE-P" "CONSTANT-TYPE-TYPE"
940              "CONTAINING-INTEGER-TYPE"
941              "CONTROL-STACK-POINTER-SAP" "COPY-FROM-SYSTEM-AREA"
942              "COPY-TO-SYSTEM-AREA"
943              "COPY-BYTE-VECTOR-TO-SYSTEM-AREA"
944              "CSUBTYPEP" "CTYPE" "TYPE-HASH-VALUE"
945              "CTYPE-OF" "CTYPE-P" "CTYPEP" "CURRENT-FP" "CURRENT-SP"
946              "DATA-VECTOR-REF" "DATA-VECTOR-SET" "DECODE-DOUBLE-FLOAT"
947              "DECODE-LONG-FLOAT" "DECODE-SINGLE-FLOAT" "DESCEND-INTO"
948              "DIVISION-BY-ZERO-ERROR"
949              "DOUBLE-FLOAT-EXPONENT" "DOUBLE-FLOAT-HIGH-BITS"
950              "DOUBLE-FLOAT-INT-EXPONENT" "DOUBLE-FLOAT-LOW-BITS"
951              "DOUBLE-FLOAT-SIGNIFICAND"
952              "DOUBLE-FLOAT-P" "FLOAT-WAIT"
953              "DYNAMIC-SPACE-FREE-POINTER"
954              "!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS"
955              "ERROR-NUMBER-OR-LOSE" "FDOCUMENTATION" "FILENAME"
956              "FIND-AND-INIT-OR-CHECK-LAYOUT"
957              "FLOAT-EXPONENT" "FLOAT-FORMAT-DIGITS" "FLOAT-FORMAT-NAME"
958              "FLOAT-FORMAT-MAX" "FLOATING-POINT-EXCEPTION"
959              "FORM" "FUNCALLABLE-INSTANCE-P"
960              "FUNCTION-CODE-HEADER" "FUNCTION-DOC"
961              "FUNCTION-TYPE"
962              "FUNCTION-TYPE-ALLOWP"
963              "FUNCTION-TYPE-KEYP" "FUNCTION-TYPE-KEYWORDS"
964              "FUNCTION-TYPE-NARGS" "FUNCTION-TYPE-OPTIONAL"
965              "FUNCTION-TYPE-P"
966              "FUNCTION-TYPE-REQUIRED" "FUNCTION-TYPE-REST"
967              "FUNCTION-TYPE-RETURNS" "FUNCTION-TYPE-WILD-ARGS"
968              "FUNCTION-WORD-OFFSET" "GET-CLOSURE-LENGTH"
969              "GET-HEADER-DATA"
970              "GET-LISP-OBJ-ADDRESS" "GET-LOWTAG"
971              "GET-TYPE"
972              "HAIRY-DATA-VECTOR-REF" "HAIRY-DATA-VECTOR-SET" "HAIRY-TYPE"
973              "HAIRY-TYPE-CHECK-TEMPLATE-NAME" "HAIRY-TYPE-SPECIFIER"
974              "HANDLE-CIRCULARITY" "IGNORE-IT"
975              "ILL-BIN" "ILL-BOUT" "ILL-IN" "ILL-OUT"
976              "INDEX-TOO-LARGE-ERROR" "INTEGER-DECODE-DOUBLE-FLOAT"
977              "INTEGER-DECODE-LONG-FLOAT" "INTEGER-DECODE-SINGLE-FLOAT"
978              "INTERNAL-ERROR" "INTERNAL-TIME"
979              "INTERSECTION-TYPE" "INTERSECTION-TYPE-P"
980              "INTERSECTION-TYPE-TYPES"
981              "INVALID-ARGUMENT-COUNT-ERROR" "INVALID-ARRAY-INDEX-ERROR"
982              "INVALID-UNWIND-ERROR" "IRRATIONAL"
983              "JUST-DUMP-IT-NORMALLY"
984              "KEY-INFO" "KEY-INFO-NAME"
985              "KEY-INFO-P" "KEY-INFO-TYPE"
986              "LAYOUT-DEPTHOID"
987              "LAYOUT-INVALID-ERROR" "LEXENV"
988              "LINE-LENGTH"
989              "LISP-STREAM"
990              "LISP-STREAM-BIN" "LISP-STREAM-BOUT"
991              "LISP-STREAM-IN" "LISP-STREAM-IN-BUFFER"
992              "LISP-STREAM-IN-INDEX"
993              "LISP-STREAM-MISC" "LISP-STREAM-N-BIN"
994              "LISP-STREAM-OUT" "LISP-STREAM-SOUT"
995              "LIST-TO-SIMPLE-STRING*" "LIST-TO-BIT-VECTOR*"
996              "LIST-TO-VECTOR*" 
997              "LONG-FLOAT-EXPONENT" "LONG-FLOAT-EXP-BITS"
998              "LONG-FLOAT-HIGH-BITS"
999              "LONG-FLOAT-LOW-BITS" "LONG-FLOAT-MID-BITS" "LONG-FLOAT-P"
1000              "LONG-FLOAT-RADIX" "LONG-WORDS"
1001              "LRA" "LRA-CODE-HEADER" "LRA-P"
1002              "MAKE-ALIEN-TYPE-TYPE" "MAKE-ARGS-TYPE"
1003              "MAKE-ARRAY-HEADER" "MAKE-ARRAY-TYPE" "MAKE-CONS-TYPE"
1004              "MAKE-DOUBLE-FLOAT" "MAKE-FUNCTION-TYPE"
1005              "MAKE-KEY-INFO" "MAKE-LISP-OBJ" "MAKE-LONG-FLOAT"
1006              "MAKE-MEMBER-TYPE" "MAKE-NAMED-TYPE"
1007              "MAKE-NULL-LEXENV" "MAKE-NUMERIC-TYPE"
1008              "MAKE-SINGLE-FLOAT" "MAKE-SPECIALIZABLE-ARRAY"
1009              "%MAKE-INSTANCE"
1010              "MAKE-VALUES-TYPE"
1011              "MAYBE-GC" "MEMBER-TYPE" "MEMBER-TYPE-MEMBERS"
1012              "MEMBER-TYPE-P" "MERGE-BITS" "MODIFIED-NUMERIC-TYPE"
1013              "DEFMACRO-MUNDANELY" "MUTATOR-SELF"
1014              "NAMED-TYPE" "NAMED-TYPE-NAME" "NAMED-TYPE-P"
1015              "NATIVE-BYTE-ORDER" "NEGATE"
1016              "NEVER-SUBTYPEP" "NIL-FUNCTION-RETURNED-ERROR"
1017              "NOT-<=-ERROR" "NOT-=-ERROR"
1018              "NOT-DUMPED-AT-ALL"
1019              "NUMERIC-CONTAGION" "NUMERIC-TYPE"
1020              "NUMERIC-TYPE-CLASS" "NUMERIC-TYPE-COMPLEXP"
1021              "NUMERIC-TYPE-FORMAT"
1022              "NUMERIC-TYPE-HIGH" "NUMERIC-TYPE-LOW" "NUMERIC-TYPE-P"
1023              "OBJECT-NOT-ARRAY-ERROR" "OBJECT-NOT-BASE-CHAR-ERROR"
1024              "OBJECT-NOT-BIGNUM-ERROR" "OBJECT-NOT-BIT-VECTOR-ERROR"
1025              "OBJECT-NOT-COERCEABLE-TO-FUNCTION-ERROR"
1026              "OBJECT-NOT-COMPLEX-ERROR"
1027              "OBJECT-NOT-COMPLEX-FLOAT-ERROR"
1028              "OBJECT-NOT-COMPLEX-SINGLE-FLOAT-ERROR"
1029              "OBJECT-NOT-COMPLEX-LONG-FLOAT-ERROR"
1030              "OBJECT-NOT-COMPLEX-DOUBLE-FLOAT-ERROR"
1031              "OBJECT-NOT-COMPLEX-RATIONAL-ERROR"
1032              ;; FIXME: It's confusing using "complex" to mean
1033              ;; both "not on the real number line" and "not of
1034              ;; a SIMPLE-ARRAY nature". Perhaps we could rename
1035              ;; all the uses in the second sense as "hairy" instead?
1036              "OBJECT-NOT-COMPLEX-VECTOR-ERROR"
1037              "OBJECT-NOT-CONS-ERROR"
1038              "OBJECT-NOT-DOUBLE-FLOAT-ERROR" "OBJECT-NOT-FIXNUM-ERROR"
1039              "OBJECT-NOT-FLOAT-ERROR" "OBJECT-NOT-FUNCTION-ERROR"
1040              "OBJECT-NOT-FUNCTION-OR-SYMBOL-ERROR"
1041              "OBJECT-NOT-INSTANCE-ERROR"
1042              "OBJECT-NOT-INTEGER-ERROR"
1043              "OBJECT-NOT-LIST-ERROR" "OBJECT-NOT-LONG-FLOAT-ERROR"
1044              "OBJECT-NOT-NUMBER-ERROR"
1045              "OBJECT-NOT-RATIO-ERROR" "OBJECT-NOT-RATIONAL-ERROR"
1046              "OBJECT-NOT-REAL-ERROR" "OBJECT-NOT-SAP-ERROR"
1047              "OBJECT-NOT-SIGNED-BYTE-32-ERROR"
1048              "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-ERROR"
1049              "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-ERROR"
1050              "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-ERROR"
1051              "OBJECT-NOT-SIMPLE-ARRAY-DOUBLE-FLOAT-ERROR"
1052              "OBJECT-NOT-SIMPLE-ARRAY-ERROR"
1053              "OBJECT-NOT-SIMPLE-ARRAY-LONG-FLOAT-ERROR"
1054              "OBJECT-NOT-SIMPLE-ARRAY-SINGLE-FLOAT-ERROR"
1055              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-16-ERROR"
1056              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-2-ERROR"
1057              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-32-ERROR"
1058              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-4-ERROR"
1059              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-8-ERROR"
1060              "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-16-ERROR"
1061              "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-30-ERROR"
1062              "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-32-ERROR"
1063              "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-8-ERROR"
1064              "OBJECT-NOT-SIMPLE-BIT-VECTOR-ERROR"
1065              "OBJECT-NOT-SIMPLE-STRING-ERROR"
1066              "OBJECT-NOT-SIMPLE-VECTOR-ERROR"
1067              "OBJECT-NOT-SINGLE-FLOAT-ERROR" "OBJECT-NOT-STRING-ERROR"
1068              "OBJECT-NOT-INSTANCE-ERROR" "OBJECT-NOT-SYMBOL-ERROR"
1069              "OBJECT-NOT-TYPE-ERROR"
1070              "OBJECT-NOT-UNSIGNED-BYTE-32-ERROR"
1071              "OBJECT-NOT-VECTOR-ERROR" "OBJECT-NOT-WEAK-POINTER-ERROR"
1072              "ODD-KEY-ARGUMENTS-ERROR"
1073              "OUTPUT-OBJECT" "OUTPUT-UGLY-OBJECT"
1074              "PACKAGE-DOC-STRING"
1075              "PACKAGE-HASHTABLE-SIZE" "PACKAGE-HASHTABLE-FREE"
1076              "PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"
1077              "PARSE-DEFMACRO" "PARSE-LAMBDA-LIST" "PARSE-UNKNOWN-TYPE"
1078              "PARSE-UNKNOWN-TYPE-SPECIFIER"
1079              "PATHNAME-DESIGNATOR" "PUNT-PRINT-IF-TOO-LONG"
1080              "READER-PACKAGE-ERROR"
1081              #!+gengc "*SAVED-STATE-CHAIN*"
1082              "SCALE-DOUBLE-FLOAT" "SCALE-LONG-FLOAT"
1083              "SCALE-SINGLE-FLOAT"
1084              "SEQUENCE-END" "SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE"
1085              "SET-HEADER-DATA" "SHIFT-TOWARDS-END"
1086              "SHIFT-TOWARDS-START" "SHRINK-VECTOR" "SIGNED-BYTE-32-P"
1087              "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-P"
1088              "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-P"
1089              "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-P"
1090              "SIMPLE-ARRAY-DOUBLE-FLOAT-P" "SIMPLE-ARRAY-LONG-FLOAT-P"
1091              "SIMPLE-ARRAY-P"
1092              "SIMPLE-ARRAY-SINGLE-FLOAT-P"
1093              "SIMPLE-ARRAY-UNSIGNED-BYTE-16-P"
1094              "SIMPLE-ARRAY-UNSIGNED-BYTE-2-P"
1095              "SIMPLE-ARRAY-UNSIGNED-BYTE-32-P"
1096              "SIMPLE-ARRAY-UNSIGNED-BYTE-4-P"
1097              "SIMPLE-ARRAY-UNSIGNED-BYTE-8-P"
1098              "SIMPLE-ARRAY-SIGNED-BYTE-16-P"
1099              "SIMPLE-ARRAY-SIGNED-BYTE-30-P"
1100              "SIMPLE-ARRAY-SIGNED-BYTE-32-P"
1101              "SIMPLE-ARRAY-SIGNED-BYTE-8-P"
1102              "SIMPLE-PACKAGE-ERROR"
1103              "SIMPLE-UNBOXED-ARRAY"
1104              "SINGLE-FLOAT-BITS" "SINGLE-FLOAT-EXPONENT"
1105              "SINGLE-FLOAT-INT-EXPONENT" "SINGLE-FLOAT-P"
1106              "SINGLE-FLOAT-SIGNIFICAND"
1107              "SINGLE-VALUE-TYPE" "SPECIALIZABLE" "SPECIALIZABLE-VECTOR"
1108              "SPECIFIER-TYPE" "STACK-REF"
1109              "STREAMLIKE" "STRINGABLE"
1110              "STRUCTURE-RAW-SLOT-TYPE-AND-SIZE"
1111              "%INSTANCE-LENGTH"
1112              "%INSTANCE-REF" "%INSTANCE-SET"
1113              "STRING-TO-SIMPLE-STRING"
1114              "SYSTEM-AREA-CLEAR"
1115              "SYSTEM-AREA-COPY" "TWO-ARG-*"
1116              "TRY-TO-RENAME-INTERPRETED-FUNCTION-AS-MACRO"
1117              "TWO-ARG-+" "TWO-ARG--"
1118              "TWO-ARG-/" "TWO-ARG-/=" "TWO-ARG-<"
1119              "TWO-ARG-<=" "TWO-ARG-="
1120              "TWO-ARG->" "TWO-ARG->=" "TWO-ARG-AND"
1121              "TWO-ARG-GCD" "TWO-ARG-IOR"
1122              "TWO-ARG-LCM" "TWO-ARG-XOR"
1123              "TYPE-DIFFERENCE" "TYPE-EXPAND"
1124              "TYPE-INTERSECTION" "TYPE-INTERSECTION2"
1125              "TYPE-APPROX-INTERSECTION2"
1126              "TYPE-SPECIFIER"
1127              "TYPE-UNION" "TYPE/=" "TYPE="
1128              "TYPES-INTERSECT" "UNBOUND-SYMBOL-ERROR" "UNBOXED-ARRAY"
1129              "UNDEFINED-SYMBOL-ERROR" "UNION-TYPE" "UNION-TYPE-P"
1130              "UNION-TYPE-TYPES" "UNKNOWN-ERROR"
1131              "UNKNOWN-KEY-ARGUMENT-ERROR"
1132              "UNKNOWN-TYPE" "UNKNOWN-TYPE-P"
1133              "UNKNOWN-TYPE-SPECIFIER" "UNSEEN-THROW-TAG-ERROR"
1134              "UNSIGNED-BYTE-32-P" "VALUES-SPECIFIER-TYPE"
1135              "VALUES-SPECIFIER-TYPE-CACHE-CLEAR" "VALUES-SUBTYPEP"
1136              "VALUES-TYPE"
1137              "VALUES-TYPE-INTERSECTION" "VALUES-TYPE-KEYP"
1138              "VALUES-TYPE-KEYWORDS" "VALUES-TYPE-OPTIONAL"
1139              "VALUES-TYPE-P" "VALUES-TYPE-REQUIRED"
1140              "VALUES-TYPE-REST" "VALUES-TYPE-UNION"
1141              "VALUES-TYPES" "VALUES-TYPES-INTERSECT" "VECTOR-T-P"
1142              "VECTOR-TO-VECTOR*" "VECTOR-TO-SIMPLE-STRING*"
1143              "VECTOR-TO-BIT-VECTOR*" "VECTOR-TO-SIMPLE-BIT-VECTOR*"
1144              "VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH"
1145              "WITH-CIRCULARITY-DETECTION" "WITH-TYPE-CACHES"
1146              "WRONG-NUMBER-OF-INDICES-ERROR"
1147
1148              "FDEFN" "MAKE-FDEFN" "FDEFN-P"
1149              "FDEFN-NAME" "FDEFN-FUNCTION"
1150              "FDEFN-MAKUNBOUND" "%COERCE-NAME-TO-FUNCTION"
1151              "%COERCE-CALLABLE-TO-FUNCTION"
1152              "FUNCTION-SUBTYPE" "*MAXIMUM-ERROR-DEPTH*"
1153              "%SET-SYMBOL-PLIST" "INFINITE-ERROR-PROTECT"
1154              "FIND-CALLER-NAME"
1155              "%SET-SYMBOL-VALUE" "%SET-SYMBOL-PACKAGE"
1156              "OUTPUT-SYMBOL-NAME"
1157              "FSET" "RAW-DEFINITION"
1158              "INVOKE-MACROEXPAND-HOOK"
1159              "DEFAULT-STRUCTURE-PRINT"
1160              "LAYOUT" "LAYOUT-LENGTH"
1161              "LAMBDA-WITH-ENVIRONMENT" "LAYOUT-PURE" "DSD-RAW-TYPE"
1162              "%COMPILER-DEFSTRUCT"
1163              "%COMPILER-ONLY-DEFSTRUCT" "FUNCTION-%COMPILER-ONLY-DEFSTRUCT"
1164              "DEFSTRUCT-DESCRIPTION" "UNDEFINE-STRUCTURE"
1165              "DD-COPIER" "UNDEFINE-FUNCTION-NAME" "DD-TYPE"
1166              "CLASS-STATE" "INSTANCE"
1167              "*TYPE-SYSTEM-INITIALIZED*" "WEAK-POINTER-P" "FIND-LAYOUT"
1168              "DSD-NAME" "%TYPEP" "DD-RAW-INDEX"
1169              "DD-NAME" "CLASS-SUBCLASSES"
1170              "CLASS-LAYOUT" "CLASS-%NAME"
1171              "DD-RAW-LENGTH" "NOTE-NAME-DEFINED"
1172              "%CODE-CODE-SIZE" "DD-SLOTS"
1173              "%IMAGPART" "DSD-ACCESSOR"
1174              "%CODE-DEBUG-INFO" "DSD-%NAME"
1175              "LAYOUT-CLASS" "LAYOUT-INVALID"
1176              "%FUNCTION-NAME" "DSD-TYPE" "%INSTANCEP"
1177              "DEFSTRUCT-SLOT-DESCRIPTION" "%FUNCTION-ARGLIST"
1178              "%FUNCTION-NEXT" "LAYOUT-CLOS-HASH-LENGTH" "DD-PREDICATE"
1179              "CLASS-PROPER-NAME" "%NOTE-TYPE-DEFINED" "LAYOUT-INFO"
1180              "%SET-INSTANCE-LAYOUT" "DD-DEFAULT-CONSTRUCTOR"
1181              "LAYOUT-OF" "%FUNCTION-SELF" "%REALPART"
1182              "STRUCTURE-CLASS-P" "DSD-INDEX"
1183              "%INSTANCE-LAYOUT" "LAYOUT-CLOS-HASH"
1184              "%FUNCTION-TYPE" "PROCLAIM-AS-FUNCTION-NAME"
1185              "BECOME-DEFINED-FUNCTION-NAME"
1186              "%%COMPILER-DEFSTRUCT" "%NUMERATOR" "CLASS-TYPEP"
1187              "STRUCTURE-CLASS-PRINT-FUNCTION" "DSD-READ-ONLY"
1188              "LAYOUT-INHERITS" "DD-LENGTH" "%CODE-ENTRY-POINTS"
1189              "%DENOMINATOR"
1190              "BYTE-FUNCTION-OR-CLOSURE" "MAKE-STANDARD-CLASS"
1191              "BYTE-FUNCTION-NAME" "CLASS-CELL-TYPEP" "BYTE-CLOSURE"
1192              "FIND-CLASS-CELL" "EXTRACT-FUNCTION-TYPE"
1193              "FUNCALLABLE-STRUCTURE-CLASS"
1194              "%RANDOM-DOUBLE-FLOAT" "%RANDOM-LONG-FLOAT"
1195              "%RANDOM-SINGLE-FLOAT"
1196              "RANDOM-PCL-CLASS" "BASIC-STRUCTURE-CLASS-PRINT-FUNCTION"
1197              "%FUNCALLABLE-INSTANCE-INFO" "*EVAL-STACK*" "RANDOM-CHUNK"
1198              "MAKE-FUNCALLABLE-STRUCTURE-CLASS" "LAYOUT-CLOS-HASH-MAX"
1199              "CLASS-CELL-NAME" "BUILT-IN-CLASS-DIRECT-SUPERCLASSES"
1200              "INITIALIZE-BYTE-COMPILED-FUNCTION"
1201              "RANDOM-LAYOUT-CLOS-HASH"
1202              "CLASS-PCL-CLASS" "FUNCALLABLE-STRUCTURE"
1203              "FUNCALLABLE-INSTANCE-FUNCTION"
1204              "%FUNCALLABLE-INSTANCE-LAYOUT"
1205              "BASIC-STRUCTURE-CLASS" "BYTE-CLOSURE-DATA"
1206              "BYTE-CLOSURE-FUNCTION" "BYTE-FUNCTION" "CLASS-CELL-CLASS"
1207              "FUNCALLABLE-STRUCTURE-CLASS-P" "REGISTER-LAYOUT"
1208              "FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX"
1209              "MAKE-RANDOM-PCL-CLASS" "INSTANCE-LAMBDA"
1210              "%FUNCALLABLE-INSTANCE-LEXENV" "%MAKE-SYMBOL"
1211              "%FUNCALLABLE-INSTANCE-FUNCTION" "SYMBOL-HASH"
1212
1213              "MAKE-UNDEFINED-CLASS" "CLASS-DIRECT-SUPERCLASSES" "MAKE-LAYOUT"
1214              "BYTE-FUNCTION-TYPE"
1215              "REDEFINE-LAYOUT-WARNING" "SLOT-CLASS"
1216              "INSURED-FIND-CLASS" "CONDITION-FUNCTION-NAME"
1217
1218              ;; symbols from former SB!CONDITIONS
1219              "*HANDLER-CLUSTERS*" "*RESTART-CLUSTERS*"
1220              "SHOW-CONDITION" "CASE-FAILURE"
1221              "NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET"
1222              "DESCRIBE-CONDITION"
1223              
1224              "!COLD-INIT" "!UNINTERN-INIT-ONLY-STUFF"
1225              "!GLOBALDB-COLD-INIT" "!FDEFN-COLD-INIT"
1226              "!TYPE-CLASS-COLD-INIT" "!TYPEDEFS-COLD-INIT"
1227              "!ALIEN-TYPE-COLD-INIT" "!CLASSES-COLD-INIT"
1228              "!EARLY-TYPE-COLD-INIT" "!LATE-TYPE-COLD-INIT"
1229              "!TARGET-TYPE-COLD-INIT" "!RANDOM-COLD-INIT"
1230              "!READER-COLD-INIT"
1231              "STREAM-COLD-INIT-OR-RESET" "!LOADER-COLD-INIT"
1232              "!PACKAGE-COLD-INIT" "SIGNAL-COLD-INIT-OR-REINIT"
1233              "!POLICY-COLD-INIT-OR-RESANIFY" "!VM-TYPE-COLD-INIT"
1234              "!BACKQ-COLD-INIT" "!SHARPM-COLD-INIT"
1235              "!CLASS-FINALIZE" "GC-COLD-INIT-OR-REINIT"
1236
1237              ;; These belong in an "SB!LOAD" package someday.
1238              "*STATIC-FOREIGN-SYMBOLS*" "*ASSEMBLER-ROUTINES*"
1239
1240              ;; Note: These are out of lexicographical order because in CMU CL
1241              ;; they were defined as internal symbols in package "CL"
1242              ;; imported into package "C", as opposed to what we're
1243              ;; doing here, defining them as external symbols in a package
1244              ;; which is used by both "SB!C" and "SB!IMPL". (SBCL's "SB!C" is
1245              ;; directly analogous to CMU CL's "C"; and for this purpose,
1246              ;; SBCL's "SB!IMPL" is analogous to CMU CL's "CL".) As far
1247              ;; as I know there's nothing special about them, so they could
1248              ;; be merged into the same order as everything else in the
1249              ;; in this package. -- WHN 19990911
1250              "STRING>=*" "STRING>*" "STRING=*"
1251              "STRING<=*" "STRING<*" "STRING/=*"
1252              "SHORT-FLOAT-P" "%SVSET" "%SP-STRING-COMPARE" "%SETNTH"
1253              "%SETELT" "%SET-ROW-MAJOR-AREF" "%SET-FILL-POINTER"
1254              "%SET-FDEFINITION" "%SCHARSET" "%SBITSET" "%RPLACD"
1255              "%RPLACA" "%PUT" "%CHARSET" "%BITSET" "%ASET"
1256              "%ARRAY-TYPEP" "%SET-SAP-REF-DESCRIPTOR"))
1257
1258  #s(sb-cold:package-data
1259     :name "SB!LOOP"
1260     :doc "private: implementation details of LOOP"
1261     :use ("CL")
1262     :export ())
1263
1264  #!+mp
1265  #s(sb-cold:package-data
1266     :name "SB!MP"
1267     :doc "public (but unstable): multiprocessing support"
1268     :export ("*ALL-PROCESSES*" "*CURRENT-PROCESS*"
1269              "*CURRENT-STACK-GROUP*" "*INITIAL-STACK-GROUP*"
1270              "*MULTI-PROCESSING*" "ALL-PROCESSES"
1271              "ATOMIC-DECF" "ATOMIC-INCF" "ATOMIC-POP"
1272              "ATOMIC-PUSH" "CURRENT-PROCESS"
1273              "DESTROY-PROCESS" "DISABLE-PROCESS"
1274              "ENABLE-PROCESS" "INIT-STACK-GROUPS"
1275              "LOCK" "MAKE-STACK-GROUP" "MAKE-LOCK"
1276              "MAKE-PROCESS" "PROCESS-ACTIVE-P" "PROCESS-ALIVE-P"
1277              "PROCESS-IDLE-TIME" "PROCESS-INTERRUPT"
1278              "PROCESS-NAME" "PROCESS-PRESET"
1279              "PROCESS-REAL-TIME" "PROCESS-RUN-TIME"
1280              "PROCESS-STATE" "PROCESS-WAIT-UNTIL-FD-USABLE"
1281              "PROCESS-WAIT" "PROCESS-WAIT-WITH-TIMEOUT"
1282              "PROCESS-WHOSTATE" "PROCESS-YIELD" "PROCESSP"
1283              "RESTART-PROCESS" "SHOW-PROCESSES"
1284              "STACK-GROUP-RESUME" "WITHOUT-SCHEDULING"
1285              "WITH-LOCK-HELD"))
1286
1287  #s(sb-cold:package-data
1288     :name "SB!PCL"
1289     :doc
1290 "semi-public: This package includes useful meta-object protocol
1291 extensions, but even they are not guaranteed to be present in
1292 later versions of SBCL, and the other stuff in here is
1293 definitely not guaranteed to be present in later versions of SBCL."
1294     ;; FIXME: SB-PCL should probably USE-PACKAGE SB-KERNEL, since SB-PCL
1295     ;; is built on SB-KERNEL, and in the absence of USE-PACKAGE, it ends
1296     ;; up using a thundering herd of explicit prefixes to get to
1297     ;; SB-KERNEL symbols. However, it'll probably be too messy to do
1298     ;; this until the duplicate SB-PCL:CLASS/CL:CLASS hierarchy kludge
1299     ;; is unscrewed, since until it is there are too many things which
1300     ;; conflict between the two packages.
1301     :use ("CL" "SB!ITERATE" "SB!WALKER" "SB!INT" "SB!EXT")
1302     :import-from (("SB!KERNEL" "FUNCALLABLE-INSTANCE-P" "FUNCTION-DOC"
1303                    "PACKAGE-DOC-STRING"
1304                    "PACKAGE-HASHTABLE-SIZE" "PACKAGE-HASHTABLE-FREE"
1305                    "PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"))
1306     :reexport ("ADD-METHOD" "ALLOCATE-INSTANCE"
1307                "COMPUTE-APPLICABLE-METHODS"
1308                "ENSURE-GENERIC-FUNCTION"
1309                "MAKE-INSTANCE" "METHOD-QUALIFIERS"
1310                "REMOVE-METHOD")
1311     :export ("ADD-DEPENDENT"
1312              "ADD-DIRECT-METHOD"
1313              "ADD-DIRECT-SUBCLASS"
1314              "CLASS-DEFAULT-INITARGS"
1315              "CLASS-DIRECT-DEFAULT-INITARGS"
1316              "CLASS-DIRECT-SLOTS"
1317              "CLASS-DIRECT-SUBCLASSES"
1318              "CLASS-DIRECT-SUPERCLASSES"
1319              "CLASS-FINALIZED-P"
1320              "CLASS-PRECEDENCE-LIST"
1321              "CLASS-PROTOTYPE"
1322              "CLASS-SLOTS"
1323              "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
1324              "COMPUTE-CLASS-PRECEDENCE-LIST"
1325              "COMPUTE-DISCRIMINATING-FUNCTION"
1326              "COMPUTE-EFFECTIVE-METHOD"
1327              "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
1328              "COMPUTE-SLOTS"
1329              "DIRECT-SLOT-DEFINITION-CLASS"
1330              "EFFECTIVE-SLOT-DEFINITION-CLASS"
1331              "ENSURE-CLASS"
1332              "ENSURE-CLASS-USING-CLASS"
1333              "ENSURE-GENERIC-FUNCTION-USING-CLASS"
1334              "EQL-SPECIALIZER-INSTANCE"
1335              "EXTRACT-LAMBDA-LIST"
1336              "EXTRACT-SPECIALIZER-NAMES"
1337              "FINALIZE-INHERITANCE"
1338              "FIND-METHOD-COMBINATION"
1339              "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
1340              "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
1341              "GENERIC-FUNCTION-DECLARATIONS"
1342              "GENERIC-FUNCTION-LAMBDA-LIST"
1343              "GENERIC-FUNCTION-METHOD-CLASS"
1344              "GENERIC-FUNCTION-METHOD-COMBINATION"
1345              "GENERIC-FUNCTION-METHODS"
1346              "GENERIC-FUNCTION-NAME"
1347              "INTERN-EQL-SPECIALIZER"
1348              "MAKE-METHOD-LAMBDA"
1349              "MAP-DEPENDENTS"
1350              "METHOD-FUNCTION"
1351              "METHOD-GENERIC-FUNCTION"
1352              "METHOD-LAMBDA-LIST"
1353              "METHOD-SPECIALIZERS"
1354              "ACCESSOR-METHOD-SLOT-DEFINITION"
1355              "READER-METHOD-CLASS"
1356              "REMOVE-DEPENDENT"
1357              "REMOVE-DIRECT-METHOD"
1358              "REMOVE-DIRECT-SUBCLASS"
1359              "SET-FUNCALLABLE-INSTANCE-FUNCTION"
1360              "SLOT-BOUNDP-USING-CLASS"
1361              "SLOT-DEFINITION-ALLOCATION"
1362              "SLOT-DEFINITION-INITARGS"
1363              "SLOT-DEFINITION-INITFORM"
1364              "SLOT-DEFINITION-INITFUNCTION"
1365              "SLOT-DEFINITION-LOCATION"
1366              "SLOT-DEFINITION-NAME"
1367              "SLOT-DEFINITION-READERS"
1368              "SLOT-DEFINITION-WRITERS"
1369              "SLOT-DEFINITION-TYPE"
1370              "SLOT-MAKUNBOUND-USING-CLASS"
1371              "SLOT-VALUE-USING-CLASS"
1372              "SPECIALIZER-DIRECT-GENERIC-FUNCTION"
1373              "SPECIALIZER-DIRECT-METHODS"
1374              "STANDARD-INSTANCE-ACCESS"
1375              "UPDATE-DEPENDENT"
1376              "VALIDATE-SUPERCLASS"
1377              "WRITER-METHOD-CLASS"))
1378
1379  #s(sb-cold:package-data
1380     :name "SB!PRETTY"
1381     :doc "private: implementation of pretty-printing"
1382     :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL")
1383     :export ("PRETTY-STREAM" "PRETTY-STREAM-P" "!PPRINT-COLD-INIT"))
1384
1385  #s(sb-cold:package-data
1386     :name "SB!PROFILE"
1387     :doc "public: the interface to the profiler"
1388     :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL")
1389     :export ("PROFILE" "REPORT" "RESET" "UNPROFILE"))
1390
1391  #s(sb-cold:package-data
1392     :name "SB!SYS"
1393     :doc
1394 "private: In theory, this \"contains functions and information
1395 necessary for system interfacing\" (said cmu-user.tex at the time
1396 of the SBCL code fork). That probably was and is a good idea, but in
1397 practice, the distinctions between this package and SB-KERNEL
1398 and even SB-VM seem to have become somewhat blurred over the years."
1399     :use ("CL" "SB!EXT" "SB!INT")
1400     :export ("%ASSEMBLER-CODE-TYPE" "%BIND-ALIGNED-SAP"
1401              ;; FIXME: %PRIMITIVE shouldn't be here. (I now know that %SYS
1402              ;; is for OS-dependent stuff. %PRIMITIVE should probably be in
1403              ;; SB!KERNEL.)
1404              "%PRIMITIVE" "%SP-BYTE-BLT" "%SP-FIND-CHARACTER"
1405              "%SP-FIND-CHARACTER-WITH-ATTRIBUTE"
1406              "%SP-REVERSE-FIND-CHARACTER-WITH-ATTRIBUTE"
1407              "%STANDARD-CHAR-P"
1408              "*BEEP-FUNCTION*"
1409              "*LONG-SITE-NAME*" "*SHORT-SITE-NAME*"
1410              "*STDERR*" "*STDIN*"
1411              "*STDOUT*" "*TASK-DATA*"
1412              "*TASK-NOTIFY*" "*TASK-SELF*" "*TTY*" "*TYPESCRIPTPORT*"
1413              "ADD-FD-HANDLER" "ADD-PORT-DEATH-HANDLER"
1414              "ADD-PORT-OBJECT"
1415              "ALLOCATE-SYSTEM-MEMORY"
1416              "BEEP" "BITS" "STRUCTURE!OBJECT"
1417              "STRUCTURE!OBJECT-MAKE-LOAD-FORM"
1418              "BYTES" "C-PROCEDURE" "CHECK<=" "CHECK="
1419              "COMPILER-VERSION"
1420              "DEALLOCATE-SYSTEM-MEMORY"
1421              "DEFAULT-INTERRUPT"
1422              "DEPORT-BOOLEAN" "DEPORT-INTEGER"
1423              "DO-DO-BODY" "DOUBLE-FLOAT-RADIX"
1424              "ENABLE-INTERRUPT" "ENUMERATION"
1425              "FD-STREAM" "FD-STREAM-FD"
1426              "FD-STREAM-P" "FIND-IF-IN-CLOSURE"
1427              "FOREIGN-SYMBOL-ADDRESS" "FOREIGN-SYMBOL-ADDRESS-AS-INTEGER"
1428              "GET-PAGE-SIZE" "GET-SYSTEM-INFO"
1429              "IGNORE-INTERRUPT"
1430              "INT-SAP" "INVALIDATE-DESCRIPTOR" "IO-TIMEOUT"
1431              "MACRO" "MAKE-FD-STREAM" "MAKE-OBJECT-SET" "MEMMOVE"
1432              "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER"
1433              "OBJECT-SET-OPERATION"
1434              "OS-COLD-INIT-OR-REINIT" "OS-CONTEXT-T" "OUTPUT-RAW-BYTES"
1435              "PARSE-BODY" "POINTER"
1436              "POINTER<" "POINTER>" "PORT" "POSITIVE-PRIMEP" 
1437              "READ-N-BYTES" "REALLOCATE-SYSTEM-MEMORY" "RECORD-SIZE"
1438              "REMOVE-FD-HANDLER" "REMOVE-PORT-DEATH-HANDLER"
1439              "REMOVE-PORT-OBJECT"
1440              "RESOLVE-LOADED-ASSEMBLER-REFERENCES"
1441              "SAP+" "SAP-" "SAP-INT" "SAP-INT-TYPE"
1442              "SAP-REF-16" "SAP-REF-32" "SAP-REF-64" "SAP-REF-8"
1443              "SAP-REF-DESCRIPTOR"
1444              "SAP-REF-DOUBLE" "SAP-REF-LONG"
1445              "SAP-REF-SAP" "SAP-REF-SINGLE"
1446              "SAP<" "SAP<=" "SAP=" "SAP>" "SAP>="
1447              "SCRUB-CONTROL-STACK" "SERVE-ALL-EVENTS"
1448              "SERVE-EVENT" "SERVER" "SERVER-MESSAGE"
1449              "SHORT-FLOAT-RADIX"
1450              "SIGNED-SAP-REF-16" "SIGNED-SAP-REF-32"
1451              "SIGNED-SAP-REF-64" "SIGNED-SAP-REF-8"
1452              "SINGLE-FLOAT-RADIX" "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" "GET-UNIX-ERROR-MSG" "GET-ERRNO" "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" "EACCES" "CHECK" "SIGXCPU" "EOPNOTSUPP"
1520              "SIGFPE" "SIGHUP" "ENOTSOCK" "OPEN-DIR" "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" "CLOSE-DIR" "EISDIR"
1535              "SIGTTIN" "UNIX-KILL" "ENOTDIR" "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              "READ-DIR" "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              )))