Fix sequence type derivation in the presence of negation types.
[sbcl.git] / package-data-list.lisp-expr
blob10c2dc464c6d172df896c7674edddf7b7cb3e1cd
1 ;;;; -*- Lisp -*-
3 ;;;; the specifications of target packages, except for a few things
4 ;;;; which are handled elsewhere by other mechanisms:
5 ;;;;   * any SHADOWing and nickname hackery;
6 ;;;;   * the standard, non-SBCL-specific packages COMMON-LISP,
7 ;;;;     COMMON-LISP-USER, and KEYWORD.
8 ;;;;
9 ;;;; The packages are named SB!FOO here and elsewhere in
10 ;;;; cross-compilation, in order to avoid collision with possible
11 ;;;; corresponding SB-FOO packages in the cross-compilation host.
12 ;;;; They're renamed to SB-FOO later, after we've departed from the xc
13 ;;;; mothership and the danger of namespace collision is past.
15 ;;;; This software is part of the SBCL system. See the README file for
16 ;;;; more information.
17 ;;;;
18 ;;;; This software is derived from the CMU CL system, which was
19 ;;;; written at Carnegie Mellon University and released into the
20 ;;;; public domain. The software is in the public domain and is
21 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
22 ;;;; files for more information.
24 ;;;; KLUDGE: To make it easier for emacs to autoindent this file nicely
25 ;;;; (which prevents spurious conflicts in CVS) each longish list should
26 ;;;; have only one string on the first line. Silly, but there you go.
28 ;;;; NOTE:
29 ;;;; It is generally not necessary to use reader conditionals
30 ;;;; within this file. If A-NICE-FUNCTION is external in SB-KERNEL
31 ;;;; but not defined for a particular backend, it will not get
32 ;;;; interned during cold load, and hence will not exist in the target.
33 ;;;; This is exactly as desired - it is not necessary for the writer
34 ;;;; of architecture-specific code to clutter up the list of package
35 ;;;; definitions to avoid exporting some stuff. You just export what you
36 ;;;; need, and genesis will do the right thing. Most of the pre-existing
37 ;;;; conditionals are historical baggage, and should be removed.
38 ;;;; EXCEPTION: packages whose symbols are created mainly during
39 ;;;; warm load might have a reason to use reader conditionals.
40 ;;;; For those packages, all symbols listed here are interned during
41 ;;;; genesis, since otherwise the symbols would all disappear,
42 ;;;; and then warm load would intern them as internals, not externals.
43 ;;;; This list of exceptional packages can be found in the
44 ;;;; definition of the FINISH-SYMBOLS function.
46 (#s(sb-cold:package-data
47     :name "SB!ALIEN"
48     :doc "public: the ALIEN foreign function interface (If you're
49 porting CMU CL code, note that this package corresponds roughly to a union
50 of the packages ALIEN and C-CALL at the time of the SBCL fork. SB-C-CALL
51 is a deprecated nickname to help ease the transition from older versions
52 of SBCL which maintained the CMU-CL-style split into two packages.)"
53     :use ("CL" "SB!EXT" "SB!INT" "SB!SYS" "SB!ALIEN-INTERNALS")
54     :reexport ("ARRAY"
55                "BOOLEAN" "CHAR" "DOUBLE-FLOAT"
56                "FLOAT" "FUNCTION" "INTEGER" "LONG-FLOAT"
57                "SINGLE-FLOAT"
58                ;; FIXME: Do we really want to reexport
59                ;; SYSTEM-AREA-POINTER here? Why?
60                "SYSTEM-AREA-POINTER"
61                "UNION"  "VALUES" "*")
62     :export ("ADDR"
63              "ALIEN"
64              "ALIEN-FUNCALL" "ALIEN-SAP" "ALIEN-SIZE"
65              "CAST" "C-STRING"
66              "DEFINE-ALIEN-ROUTINE" "DEFINE-ALIEN-TYPE" "DEFINE-ALIEN-VARIABLE"
67              "DEREF" "DOUBLE"
68              "ENUM" "EXTERN-ALIEN"
69              "FREE-ALIEN"
70              "GET-ERRNO"
71              "INT"
72              "LOAD-1-FOREIGN" "LOAD-FOREIGN" "LOAD-SHARED-OBJECT" "LONG" "LONG-LONG"
73              "MAKE-ALIEN"
74              "MAKE-ALIEN-STRING"
75              "NULL-ALIEN"
76              "OFF-T"
77              "SAP-ALIEN" "SHORT" "SIGNED"
78              "SIZE-T"
79              "SLOT" "STRUCT"
80              "UNDEFINED-ALIEN-ERROR"
81              "UNLOAD-SHARED-OBJECT"
82              "UNSIGNED"
83              "UNSIGNED-CHAR" "UNSIGNED-INT" "UNSIGNED-LONG" "UNSIGNED-LONG-LONG" "UNSIGNED-SHORT"
84              "UTF8-STRING"
85              "VOID"
86              "WITH-ALIEN"))
88    #s(sb-cold:package-data
89       :name "SB!ALIEN-INTERNALS"
90       :doc "private: stuff for implementing ALIENs and friends"
91       :use ("CL")
92       :export ("%ALIEN-VALUE"
93                "%CAST"
94                "%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR"
95                "%LOCAL-ALIEN-ADDR" "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN"
96                "%SET-DEREF" "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT"
97                "%SLOT-ADDR" "*SAVED-FP-AND-PCS*" "*VALUES-TYPE-OKAY*"
98                "ALIEN-ARRAY-TYPE"
99                "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE"
100                "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P"
101                "ALIEN-CALLBACK"
102                "ALIEN-CALLBACK-ACCESSOR-FORM"
103                "ALIEN-CALLBACK-ASSEMBLER-WRAPPER"
104                "ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P"
105                "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE"
106                "ALIEN-FLOAT-TYPE-P" "ALIEN-FUN-TYPE"
107                "ALIEN-FUN-TYPE-ARG-TYPES" "ALIEN-FUN-TYPE-P"
108                "ALIEN-FUN-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE"
109                "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED"
110                "ALIEN-LONG-FLOAT-TYPE" "ALIEN-LONG-FLOAT-TYPE-P"
111                "ALIEN-POINTER-TYPE" "ALIEN-POINTER-TYPE-P"
112                "ALIEN-POINTER-TYPE-TO" "ALIEN-RECORD-FIELD"
113                "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET"
114                "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE"
115                "ALIEN-RECORD-TYPE" "ALIEN-RECORD-TYPE-FIELDS"
116                "ALIEN-RECORD-TYPE-P" "ALIEN-SINGLE-FLOAT-TYPE"
117                "ALIEN-SINGLE-FLOAT-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE"
118                "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS"
119                "ALIEN-TYPE-P" "ALIEN-TYPEP"
120                "ALIEN-VALUE"
121                "ALIEN-VALUE-TYPE"
122                "ALIEN-VALUE-TYPEP"
123                "ALIEN-VALUE-SAP" "ALIEN-VALUE-P"
124                "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P"
125                "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "ALIEN-VOID-TYPE-P"
126                "COMPUTE-ALIEN-REP-TYPE" "COMPUTE-DEPORT-ALLOC-LAMBDA"
127                "COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA"
128                "COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE"
129                "COMPUTE-NATURALIZE-LAMBDA" "DEFINE-ALIEN-TYPE-CLASS"
130                "DEFINE-ALIEN-TYPE-METHOD" "DEFINE-ALIEN-TYPE-TRANSLATOR"
131                "DEPORT" "DEPORT-ALLOC"
132                "DISPOSE-LOCAL-ALIEN"
133                "*ENTER-ALIEN-CALLBACK*" "ENTER-ALIEN-CALLBACK"
134                "FIND-SAVED-FP-AND-PC"
135                "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM"
136                "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD"
137                "INVOKE-WITH-SAVED-FP-AND-PC" "LOCAL-ALIEN"
138                "LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P"
139                "LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE"
140                "MAKE-ALIEN-FUN-TYPE" "MAKE-ALIEN-POINTER-TYPE"
141                "MAYBE-WITH-PINNED-OBJECTS"
142                "MAKE-LOCAL-ALIEN" "NATURALIZE"
143                "NOTE-LOCAL-ALIEN-TYPE"
144                "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE"))
146    #s(sb-cold:package-data
147       :name "SB!ASSEM"
148       :doc "private: the assembler, used by the compiler"
149       :use ("CL" "SB!EXT" "SB!INT")
150       :export ("ASSEMBLY-UNIT"
151                "ASSEMBLY-UNIT-BITS"
153                "*ASSEM-SCHEDULER-P*"
154                "*ASSEM-INSTRUCTIONS*"
155                "*ASSEM-MAX-LOCATIONS*"
157                "EMIT-ALIGNMENT" "EMIT-BYTE" "EMIT-SKIP" "EMIT-BACK-PATCH"
158                "EMIT-CHOOSER" "DEFINE-BITFIELD-EMITTER"
159                "DEFINE-INSTRUCTION" "DEFINE-INSTRUCTION-MACRO"
160                "EMIT-POSTIT"
162                "MAKE-SEGMENT" "SEGMENT-TYPE" "ASSEMBLE"
163                "INST" "LABEL" "LABEL-P" "GEN-LABEL"
164                "EMIT-LABEL" "LABEL-POSITION" "APPEND-SEGMENT"
165                "FINALIZE-SEGMENT"
166                "SEGMENT-CONTENTS-AS-VECTOR" "WRITE-SEGMENT-CONTENTS"
167                "READS" "WRITES" "SEGMENT"
168                "WITHOUT-SCHEDULING"
169                "VARIABLE-LENGTH"
170                "SEGMENT-COLLECT-DYNAMIC-STATISTICS"
172                ;; FIXME: These are in the SB-ASSEM package now, but
173                ;; (left over from CMU CL) are defined in files which
174                ;; are IN-PACKAGE SB-C. It would probably be cleaner
175                ;; to move at least most of them to files which are
176                ;; IN-PACKAGE SB-ASSEM.
177                "BRANCH"  "FLUSHABLE"))
179    #s(sb-cold:package-data
180       :name "SB!BIGNUM"
181       :doc "private: bignum implementation"
182       :use ("CL" "SB!KERNEL" "SB!INT" "SB!EXT")
183       :export ("%ADD-WITH-CARRY"
184                "%ALLOCATE-BIGNUM" "%ASHL" "%ASHR"
185                "%BIGNUM-LENGTH" "%BIGNUM-REF" "%BIGNUM-REF-WITH-OFFSET"
186                "%BIGNUM-SET"
187                "%BIGNUM-SET-LENGTH" "%DIGIT-0-OR-PLUSP"
188                "%DIGIT-LOGICAL-SHIFT-RIGHT"
189                "%FIXNUM-DIGIT-WITH-CORRECT-SIGN" "%FIXNUM-TO-DIGIT"
190                "%BIGFLOOR" "%LOGAND" "%LOGIOR" "%LOGNOT" "%LOGXOR"
191                "%MULTIPLY" "%MULTIPLY-AND-ADD"
192                "%SUBTRACT-WITH-BORROW" "ADD-BIGNUMS"
193                "BIGNUM-ASHIFT-LEFT" "BIGNUM-ASHIFT-RIGHT"
194                "BIGNUM-COMPARE"
195                "BIGNUM-ELEMENT-TYPE" "BIGNUM-GCD" "BIGNUM-INDEX"
196                "BIGNUM-LENGTH"
197                "BIGNUM-INTEGER-LENGTH"
198                "BIGNUM-LOGBITP"
199                "BIGNUM-LOGCOUNT" "BIGNUM-LOGICAL-AND"
200                "BIGNUM-LOGICAL-IOR" "BIGNUM-LOGICAL-NOT"
201                "BIGNUM-LOGICAL-XOR" "BIGNUM-PLUS-P"
202                "BIGNUM-TO-FLOAT" "BIGNUM-TRUNCATE" "BIGNUM-TYPE"
203                "MAKE-SMALL-BIGNUM"
204                "MULTIPLY-BIGNUM-AND-FIXNUM" "MULTIPLY-BIGNUMS"
205                "MULTIPLY-FIXNUMS" "NEGATE-BIGNUM"
206                "%RANDOM-BIGNUM" "SUBTRACT-BIGNUM" "SXHASH-BIGNUM"))
208    #s(sb-cold:package-data
209       :name "SB!C"
210       :doc "private: implementation of the compiler"
211       ;; (It seems strange to have the compiler USE SB-ALIEN-INTERNALS,
212       ;; but the point seems to be to be able to express things like
213       ;; SB!C:DEFTRANSFORM SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN without
214       ;; having to use a bunch of package prefixes, by putting them
215       ;; in the SB-C package. Maybe it'd be tidier to define an SB-ALIEN-COMP
216       ;; package for this? But it seems like a fairly low priority.)
217       ;; (Probably the same considerations also explain why BIGNUM is
218       ;;in the USE list.)
219       :use ("CL" "SB!ALIEN-INTERNALS" "SB!ALIEN" "SB!ASSEM" "SB!BIGNUM"
220                  #!+sb-dyncount "SB-DYNCOUNT" "SB!EXT" "SB!FASL" "SB!INT"
221                  "SB!KERNEL" "SB!SYS")
222       :reexport ("SLOT" "CODE-INSTRUCTIONS" "FLUSHABLE")
223       :export ("%ALIEN-FUNCALL"
224                "%CATCH-BREAKUP" "%CONTINUE-UNWIND"
225                "%LISTIFY-REST-ARGS" "%MORE-ARG" "%MORE-ARG-VALUES"
226                "%UNWIND-PROTECT-BREAKUP"
228                "*BACKEND-BYTE-ORDER*" "*BACKEND-DISASSEM-PARAMS*"
229                "+BACKEND-INTERNAL-ERRORS+" "*BACKEND-PAGE-BYTES*"
230                "*BACKEND-REGISTER-SAVE-PENALTY*"
231                "*BACKEND-SB-LIST*"
232                "*BACKEND-SC-NAMES*" "*BACKEND-SC-NUMBERS*"
233                "*BACKEND-SUBFEATURES*"
234                "*BACKEND-T-PRIMITIVE-TYPE*"
236                "*CODE-SEGMENT*"
237                "*ELSEWHERE*" "*FREE-FUNS*"
238                "*LEXENV*"
239                "*SUPPRESS-VALUES-DECLARATION*"
241                #!+x86 "SET-FPU-WORD-FOR-C"
242                #!+x86 "SET-FPU-WORD-FOR-LISP"
243                "ALIGN-STACK-POINTER"
244                "ALIEN-FUNCALL-SAVES-FP-AND-PC"
245                "ALLOC-ALIEN-STACK-SPACE" "ALLOC-NUMBER-STACK-SPACE"
246                "ALLOCATE-CODE-OBJECT" "ALLOCATE-FRAME"
247                "ALLOCATE-FULL-CALL-FRAME"
248                "ALWAYS-TRANSLATABLE"
249                "ANCESTOR-FRAME-REF" "ANCESTOR-FRAME-SET"
250                "ANY" "ARG-COUNT-ERROR" "ASSEMBLE-FILE"
251                "ATTRIBUTES" "ATTRIBUTES-INTERSECTION" "ATTRIBUTES-UNION"
252                "ATTRIBUTES="
253                "CALL" "CALL-LOCAL" "CALL-NAMED" "CALL-OUT" "CALL-VARIABLE"
254                "CALLEE-NFP-TN" "CALLEE-RETURN-PC-TN"
255                "CASE-BODY" "CATCH-BLOCK" "UNWIND-BLOCK"
256                "CLOSURE-INIT" "CLOSURE-REF" "CLOSURE-INIT-FROM-FP"
257                "*CODE-COVERAGE-INFO*"
258                "COMPARE-AND-SWAP-SLOT"
259                "COMPILE-IN-LEXENV"
260                "%COMPILER-DEFUN" "COMPILER-ERROR" "FATAL-COMPILER-ERROR"
261                "COMPILER-NOTIFY"
262                "COMPILER-STYLE-WARN" "COMPILER-WARN"
263                "COMPONENT" "COMPONENT-HEADER-LENGTH"
264                "COMPONENT-INFO" "COMPONENT-LIVE-TN" "COMPUTE-FUN"
265                "COMPUTE-OLD-NFP" "COPY-MORE-ARG"
266                "CURRENT-BINDING-POINTER" "CURRENT-NFP-TN"
267                "CURRENT-STACK-POINTER"
268                "DEALLOC-ALIEN-STACK-SPACE"
269                "DEALLOC-NUMBER-STACK-SPACE"
270                "DEBUG-CATCH-TAG"
271                "DEF-IR1-TRANSLATOR"
272                "!DEF-PRIMITIVE-TYPE" "!DEF-PRIMITIVE-TYPE-ALIAS"
273                "DEFINE-SOURCE-TRANSFORM"
274                "DEFINITION-SOURCE-LOCATION"
275                "DEFINITION-SOURCE-LOCATION-NAMESTRING"
276                "DEFINITION-SOURCE-LOCATION-TOPLEVEL-FORM-NUMBER"
277                "DEFINITION-SOURCE-LOCATION-FORM-NUMBER"
278                "DEFINITION-SOURCE-LOCATION-PLIST"
279                "DEFINE-MODULAR-FUN"
280                "DEFINE-MOVE-FUN"
281                "DEFINE-MOVE-VOP" "DEFINE-STORAGE-BASE"
282                "DEFINE-STORAGE-CLASS" "DEFINE-VOP"
283                "DEFKNOWN" "DEFOPTIMIZER"
284                "DEFTRANSFORM" "DERIVE-TYPE"
285                "EMIT-BLOCK-HEADER"
286                "PHYSENV-DEBUG-LIVE-TN" "PHYSENV-LIVE-TN"
287                "FAST-SYMBOL-VALUE"
288                "FAST-SYMBOL-GLOBAL-VALUE"
289                "FIXUP-NOTE-KIND"
290                "FIXUP-NOTE-FIXUP"
291                "FIXUP-NOTE-POSITION"
292                "FOLDABLE"
293                "FORCE-TN-TO-STACK"
294                "FUN-INFO-DERIVE-TYPE" "FUN-INFO-IR2-CONVERT"
295                "FUN-INFO-LTN-ANNOTATE" "FUN-INFO-OPTIMIZER"
296                "GET-VECTOR-SUBTYPE"
297                "GET-TOPLEVELISH-FILE-INFO"
298                "HALT"
299                "IF-EQ"
300                "IMMEDIATE-TN-P"
301                "INHIBIT-SAFEPOINTS"
302                "COMPILER-MACRO-APPLICATION-MISSED-WARNING"
303                "INLINING-DEPENDENCY-FAILURE"
304                "INSERT-STEP-CONDITIONS"
305                "IR2-COMPONENT-CONSTANTS" "IR2-CONVERT"
306                "IR2-PHYSENV-NUMBER-STACK-P"
307                "KNOWN-CALL-LOCAL" "KNOWN-RETURN"
308                "LAMBDA-WITH-LEXENV" "LEXENV-FIND"
309                "LOCATION=" "LTN-ANNOTATE"
310                "MACRO-POLICY-DECLS"
311                "MAKE-ALIAS-TN" "MAKE-CATCH-BLOCK"
312                "MAKE-CLOSURE" "MAKE-CONSTANT-TN"
313                "MAKE-FIXUP-NOTE"
314                "MAKE-LOAD-TIME-CONSTANT-TN" "MAKE-N-TNS" "MAKE-NORMAL-TN"
315                "MAKE-RANDOM-TN"
316                "MAKE-REPRESENTATION-TN" "MAKE-RESTRICTED-TN" "MAKE-SC-OFFSET"
317                "MAKE-STACK-POINTER-TN" "MAKE-TN-REF" "MAKE-UNWIND-BLOCK"
318                "MAKE-WIRED-TN" "MAYBE-COMPILER-NOTIFY"
319                "MAYBE-INLINE-SYNTACTIC-CLOSURE"
320                "MORE-ARG-CONTEXT" "MOVABLE" "MOVE" "MULTIPLE-CALL"
321                "MULTIPLE-CALL-LOCAL" "MULTIPLE-CALL-NAMED"
322                "MULTIPLE-CALL-VARIABLE"
323                "%%NIP-DX" "%%NIP-VALUES"
324                "NLX-ENTRY" "NLX-ENTRY-MULTIPLE"
325                "NODE-STACK-ALLOCATE-P"
326                "NON-DESCRIPTOR-STACK" "NOTE-ENVIRONMENT-START"
327                "NOTE-THIS-LOCATION" "OPTIMIZER"
328                "PARSE-EVAL-WHEN-SITUATIONS"
329                "POLICY"
330                "%%POP-DX"
331                "PRIMITIVE-TYPE" "PRIMITIVE-TYPE-OF"
332                "PRIMITIVE-TYPE-OR-LOSE"
333                "PRIMITIVE-TYPE-NAME"
334                "PRIMITIVE-TYPE-INDIRECT-CELL-TYPE"
335                "PROCLAIM-FTYPE" "PROCLAIM-TYPE"
336                "PUSH-VALUES"
337                "READ-PACKED-BIT-VECTOR" "READ-VAR-INTEGER" "READ-VAR-STRING"
338                #!+inline-constants "REGISTER-INLINE-CONSTANT"
339                "RESET-STACK-POINTER" "RESTORE-DYNAMIC-STATE"
340                "RETURN-MULTIPLE" "SAVE-DYNAMIC-STATE" "SB"
341                "SB-ALLOCATED-SIZE" "SB-NAME" "SB-OR-LOSE" "SB-P" "SC" "SC-CASE"
342                "SC-IS" "SC-NAME" "SC-NUMBER" "SC-NUMBER-OR-LOSE" "SC-OFFSET"
343                "SC-OFFSET-OFFSET" "SC-OFFSET-SCN" "SC-OR-LOSE" "SC-P" "SC-SB"
344                "SET-UNWIND-PROTECT" "SET-VECTOR-SUBTYPE"
345                "SETUP-CLOSURE-ENVIRONMENT"
346                "SOURCE-LOCATION"
347                "SPECIFY-SAVE-TN"
348                "STORE-COVERAGE-DATA"
349                "TAIL-CALL" "TAIL-CALL-NAMED"
350                "TAIL-CALL-VARIABLE" "TEMPLATE-OR-LOSE"
351                "TN" "TN-OFFSET" "TN-P" "TN-REF" "TN-REF-ACROSS" "TN-REF-LOAD-TN"
352                "TN-REF-NEXT" "TN-REF-NEXT-REF" "TN-REF-P" "TN-REF-TARGET"
353                "TN-REF-TN" "TN-REF-VOP" "TN-REF-WRITE-P" "TN-SC" "TN-VALUE"
354                "TYPE-CHECK-ERROR" "UNBIND" "UNBIND-TO-HERE"
355                "UNSAFE" "UNSAFELY-FLUSHABLE" "UNWIND" "UWP-ENTRY"
356                "VERIFY-ARG-COUNT" "WRITE-PACKED-BIT-VECTOR"
357                "WRITE-VAR-INTEGER" "WRITE-VAR-STRING" "XEP-ALLOCATE-FRAME"
358                "XEP-SETUP-SP"
359                "LABEL-ID" "FIXUP" "FIXUP-FLAVOR" "FIXUP-NAME" "FIXUP-OFFSET"
360                "FIXUP-P" "MAKE-FIXUP"
361                "DEF-ALLOC"
362                "VAR-ALLOC"
363                "SAFE-FDEFN-FUN"
364                "NOTE-FIXUP"
365                "DEF-CASSER"
366                "DEF-REFFER"
367                "EMIT-CONSTANT"
368                "EMIT-NOP"
369                "DEF-SETTER"
370                "FIXED-ALLOC"
371                "MAKE-UNBOUND-MARKER"
372                "MAKE-FUNCALLABLE-INSTANCE-TRAMP"
373                "RETURN-SINGLE"
374                "NOTE-NEXT-INSTRUCTION"
375                "SET-SLOT" "INIT-SLOT"
376                "LOCATION-NUMBER"
377                "*COMPONENT-BEING-COMPILED*"
378                "BLOCK-NUMBER"
379                "IR2-BLOCK-BLOCK"
380                "VOP-BLOCK"
381                "*ASSEMBLY-OPTIMIZE*"
383                "IMMEDIATE-CONSTANT-SC"
384                "BOXED-IMMEDIATE-SC-P"
385                "COMBINATION-IMPLEMENTATION-STYLE"
386                "CONVERT-CONDITIONAL-MOVE-P"
387                "LOCATION-PRINT-NAME"
388                "PRIMITIVE-TYPE-OF"
389                "PRIMITIVE-TYPE"
390                "MAKE-CALL-OUT-TNS"
391                "STANDARD-ARG-LOCATION"
392                "STANDARD-ARG-LOCATION-SC"
393                "ARG-COUNT-SC"
394                "CLOSURE-SC"
395                "MAKE-RETURN-PC-PASSING-LOCATION"
396                "MAKE-OLD-FP-PASSING-LOCATION"
397                "MAKE-OLD-FP-SAVE-LOCATION"
398                "RETURN-PC-PASSING-OFFSET"
399                "OLD-FP-PASSING-OFFSET"
400                "MAKE-RETURN-PC-SAVE-LOCATION"
401                "MAKE-ARG-COUNT-LOCATION"
402                "MAKE-NFP-TN"
403                "MAKE-STACK-POINTER-TN"
404                "MAKE-NUMBER-STACK-POINTER-TN"
405                "MAKE-UNKNOWN-VALUES-LOCATIONS"
406                "SELECT-COMPONENT-FORMAT"
407                "MAKE-NLX-SP-TN"
408                "MAKE-DYNAMIC-STATE-TNS"
409                "MAKE-NLX-ENTRY-ARG-START-LOCATION"
410                "GENERATE-CALL-SEQUENCE"
411                "GENERATE-RETURN-SEQUENCE"
412                "LOCATION-NUMBER"
413                "WITH-COMPILER-ERROR-RESIGNALLING"
414                "WITH-SOURCE-LOCATION"
416                "BRANCH-IF"))
418    #s(sb-cold:package-data
419       :name "SB!DEBUG"
420       :doc
421       "sorta public: Eventually this should become the debugger interface, with
422 basic stuff like BACKTRACE and ARG. For now, the actual supported interface
423 is still mixed indiscriminately with low-level internal implementation stuff
424 like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
425       :use ("CL" "SB!EXT" "SB!INT" "SB!SYS" "SB!KERNEL")
426       :reexport ("*DEBUG-PRINT-VARIABLE-ALIST*")
427       :export ("*BACKTRACE-FRAME-COUNT*"
428                "*DEBUG-BEGINNER-HELP-P*"
429                "*DEBUG-CONDITION*"
430                "*DEBUG-READTABLE*" "*DEBUG-HELP-STRING*"
431                "*FLUSH-DEBUG-ERRORS*" "*IN-THE-DEBUGGER*"
432                "*METHOD-FRAME-STYLE*"
433                "*TRACE-INDENTATION-STEP*" "*MAX-TRACE-INDENTATION*"
434                "ARG"
435                "INTERNAL-DEBUG" "VAR"
436                "*STACK-TOP-HINT*"
437                "*TRACE-ENCAPSULATE-DEFAULT*"
438                "FRAME-HAS-DEBUG-TAG-P"
439                "UNWIND-TO-FRAME-AND-CALL"
440                ;; Deprecated
441                "BACKTRACE" "BACKTRACE-AS-LIST" "*SHOW-ENTRY-POINT-DETAILS*"
442                ;; Replaced by
443                "PRINT-BACKTRACE" "LIST-BACKTRACE"))
445    #s(sb-cold:package-data
446       :name "SB!DI"
447       :doc "private: primitives used to write debuggers"
448       :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!VM")
449       :import-from (("SB!C"
450                      "DEBUG-SOURCE-FORM" "DEBUG-SOURCE-NAMESTRING"
451                      "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED"
452                      "DEBUG-SOURCE-START-POSITIONS" "MAKE-DEBUG-SOURCE"
453                      "DEBUG-SOURCE" "DEBUG-SOURCE-P"))
454       :reexport ("DEBUG-SOURCE-FORM"
455                  "DEBUG-SOURCE-NAMESTRING"
456                  "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED"
457                  "DEBUG-SOURCE-START-POSITIONS" "DEBUG-SOURCE"
458                  "DEBUG-SOURCE-P")
459       :export ("ACTIVATE-BREAKPOINT"
460                "AMBIGUOUS-DEBUG-VARS" "AMBIGUOUS-VAR-NAME" "BREAKPOINT"
461                "BREAKPOINT-ACTIVE-P" "BREAKPOINT-HOOK-FUN" "BREAKPOINT-INFO"
462                "BREAKPOINT-KIND" "BREAKPOINT-P" "BREAKPOINT-WHAT" "CODE-LOCATION"
463                "CODE-LOCATION-DEBUG-BLOCK" "CODE-LOCATION-DEBUG-FUN"
464                "CODE-LOCATION-DEBUG-SOURCE" "CODE-LOCATION-FORM-NUMBER"
465                "CODE-LOCATION-P" "CODE-LOCATION-TOPLEVEL-FORM-OFFSET"
466                "CODE-LOCATION-UNKNOWN-P" "CODE-LOCATION=" "DEACTIVATE-BREAKPOINT"
467                "DEBUG-BLOCK" "DEBUG-BLOCK-ELSEWHERE-P" "DEBUG-BLOCK-P"
468                "DEBUG-CONDITION" "DEBUG-ERROR"
469                "DEBUG-FUN" "DEBUG-FUN-FUN" "DEBUG-FUN-KIND"
470                "DEBUG-FUN-LAMBDA-LIST" "DEBUG-FUN-NAME" "DEBUG-FUN-CLOSURE-NAME"
471                "DEBUG-FUN-P" "DEBUG-FUN-START-LOCATION"
472                "DEBUG-FUN-SYMBOL-VARS"
473                "DEBUG-VAR" "DEBUG-VAR-ID" "DEBUG-VAR-INFO-AVAILABLE"
474                "DEBUG-VAR-SYMBOL-NAME" "DEBUG-VAR-P" "DEBUG-VAR-PACKAGE-NAME"
475                "DEBUG-VAR-SYMBOL" "DEBUG-VAR-VALID-VALUE"
476                "DEBUG-VAR-VALIDITY" "DEBUG-VAR-VALUE"
477                "DELETE-BREAKPOINT"
478                "DO-DEBUG-BLOCK-LOCATIONS" "DO-DEBUG-FUN-BLOCKS"
479                "DO-DEBUG-FUN-VARS"
480                "FORM-NUMBER-TRANSLATIONS"
481                "FRAME" "FRAME-CATCHES" "FRAME-CODE-LOCATION"
482                "FRAME-DEBUG-FUN" "FRAME-DOWN"
483                "FRAME-FUN-MISMATCH" "FRAME-NUMBER" "FRAME-P" "FRAME-UP"
484                "GET-TOPLEVEL-FORM"
485                "REPLACE-FRAME-CATCH-TAG"
486                "FUN-DEBUG-FUN" "FUN-END-COOKIE-VALID-P"
487                "INVALID-CONTROL-STACK-POINTER" "INVALID-VALUE"
488                "LAMBDA-LIST-UNAVAILABLE" "MAKE-BREAKPOINT" "NO-DEBUG-BLOCKS"
489                "NO-DEBUG-FUN-RETURNS" "PREPROCESS-FOR-EVAL"
490                "EVAL-IN-FRAME" "RETURN-FROM-FRAME" "SOURCE-PATH-CONTEXT"
491                "TOP-FRAME" "UNHANDLED-DEBUG-CONDITION"
492                "UNKNOWN-DEBUG-VAR"
493                "CODE-LOCATION-KIND" "FLUSH-FRAMES-ABOVE"))
495    #s(sb-cold:package-data
496       :name "SB!DISASSEM"
497       :doc "private: stuff related to the implementation of the disassembler"
498       :use ("CL" "SB!EXT" "SB!INT")
499       :export ("*DISASSEM-INST-ALIGNMENT-BYTES*"
500                "*DISASSEM-NOTE-COLUMN*" "*DISASSEM-OPCODE-COLUMN-WIDTH*"
501                "*DISASSEM-LOCATION-COLUMN-WIDTH*"
502                "ARG-VALUE" "DISASSEM-STATE"
503                "DISASSEMBLE-CODE-COMPONENT"
504                "DISASSEMBLE-FUN" "DISASSEMBLE-MEMORY"
505                "DISASSEMBLE-SEGMENT" "DISASSEMBLE-SEGMENTS"
506                "DSTATE-BYTE-ORDER"
507                "DSTATE-GET-INST-PROP"
508                "DSTATE-GET-PROP" "DSTATE-PUT-INST-PROP"
509                "DSTATE-SEGMENT-SAP"
510                "FIND-INST"
511                "GET-CODE-SEGMENTS" "GET-FUN-SEGMENTS"
512                "GET-INST-SPACE" "HANDLE-BREAK-ARGS"
513                "LABEL-SEGMENTS"
514                "MAYBE-NOTE-ASSEMBLER-ROUTINE"
515                "MAYBE-NOTE-ASSOCIATED-STORAGE-REF"
516                "MAYBE-NOTE-NIL-INDEXED-OBJECT"
517                "MAYBE-NOTE-NIL-INDEXED-SYMBOL-SLOT-REF"
518                "MAYBE-NOTE-SINGLE-STORAGE-REF"
519                "MAYBE-NOTE-STATIC-SYMBOL"
520                "NOTE"
521                "NOTE-CODE-CONSTANT" "NOTE-CODE-CONSTANT-ABSOLUTE"
522                "PRIN1-QUOTED-SHORT"
523                "PRIN1-SHORT" "PRINT-BYTES"
524                "PRINT-CURRENT-ADDRESS" "PRINT-INST"
525                "PRINT-NOTES-AND-NEWLINE"
526                "PRINT-WORDS" "SAP-REF-DCHUNK" "SAP-REF-INT"
527                "SEG-CODE" "SEG-LENGTH" "SEGMENT"
528                "SIGN-EXTEND"
529                "GEN-PRINTER-DEF-FORMS-DEF-FORM" "MAKE-DSTATE"
530                "DEFINE-ARG-TYPE"
531                "READ-SIGNED-SUFFIX" "ADD-OFFS-HOOK"
532                "MAKE-MEMORY-SEGMENT"
533                "MAKE-SEGMENT" "SEG-VIRTUAL-LOCATION"
534                "DCHUNK" "DCHUNK-ZERO" "*DEFAULT-DSTATE-HOOKS*"
535                "MAKE-CODE-SEGMENT" "MAKE-OFFS-HOOK"
536                "DSTATE-SEGMENT" "DSTATE-CUR-OFFS"
537                "PRINC16" "INSTRUCTION" "DEFINE-INSTRUCTION-FORMAT"
538                "DSTATE-NEXT-OFFS"
539                "SEG-SAP-MAKER" "DISASSEMBLE-ASSEM-SEGMENT"
540                "READ-SUFFIX"
541                "MAP-SEGMENT-INSTRUCTIONS"
542                "SET-LOCATION-PRINTING-RANGE" "MAKE-VECTOR-SEGMENT"
543                "ADD-OFFS-NOTE-HOOK" "ADD-OFFS-COMMENT-HOOK"
544                "DSTATE-CUR-ADDR" "DSTATE-NEXT-ADDR"
545                "SNARF-ERROR-JUNK"))
547    #!+sb-dyncount
548    #s(sb-cold:package-data
549       :name "SB!DYNCOUNT"
550       :doc "private: some somewhat-stale code for collecting runtime statistics"
551       :use ("CL" "SB!ALIEN-INTERNALS" "SB!ALIEN" "SB!BIGNUM"
552                  "SB!EXT" "SB!INT" "SB!KERNEL" "SB!ASSEM" "SB!SYS")
553       :export ("*COLLECT-DYNAMIC-STATISTICS*"
554                "COUNT-ME"
555                "DYNCOUNT-INFO-COUNTS" "DYNCOUNT-INFO-COSTS"
556                "IR2-COMPONENT-DYNCOUNT-INFO"
557                "DYNCOUNT-INFO" "DYNCOUNT-INFO-P"))
559    #s(sb-cold:package-data
560       :name "SB!FASL"
561       :doc "private: stuff related to FASL load/dump logic (and GENESIS)"
562       :use ("CL" "SB!ALIEN" "SB!ASSEM" "SB!BIGNUM" "SB!C"
563                  "SB!EXT" "SB!INT" "SB!KERNEL" "SB!SYS")
564       :export ("*ASSEMBLER-ROUTINES*"
565                "+BACKEND-FASL-FILE-IMPLEMENTATION+"
566                "BUILD-ID-CORE-ENTRY-TYPE-CODE"
567                "*FASL-FILE-TYPE*"
568                "CLOSE-FASL-OUTPUT"
569                "DEFLATED-CORE-SPACE-ID-FLAG"
570                "DUMP-ASSEMBLER-ROUTINES"
571                "DUMP-FOP" "DUMP-OBJECT"
572                "DYNAMIC-CORE-SPACE-ID"
573                "END-CORE-ENTRY-TYPE-CODE"
574                "FASL-CONSTANT-ALREADY-DUMPED-P"
575                "+FASL-FILE-VERSION+"
576                "FASL-DUMP-COMPONENT"
577                "FASL-DUMP-COLD-FSET"
578                "FASL-DUMP-LOAD-TIME-VALUE" "FASL-DUMP-LOAD-TIME-VALUE-LAMBDA"
579                "FASL-DUMP-SOURCE-INFO" "FASL-DUMP-TOPLEVEL-LAMBDA-CALL"
580                "FASL-NOTE-HANDLE-FOR-CONSTANT"
581                "FASL-OUTPUT" "FASL-OUTPUT-P"
582                "FASL-OUTPUT-ENTRY-TABLE" "FASL-OUTPUT-STREAM"
583                "FASL-VALIDATE-STRUCTURE"
584                "INITIAL-FUN-CORE-ENTRY-TYPE-CODE"
585                "*!LOAD-TIME-VALUES*"
586                "MAX-CORE-SPACE-ID"
587                ;; FIXME: this are listed here so that genesis
588                ;; puts them into .h files, but they are not present in the resulting core
589                "NEW-DIRECTORY-CORE-ENTRY-TYPE-CODE"
590                "OPEN-FASL-OUTPUT" "PAGE-TABLE-CORE-ENTRY-TYPE-CODE"
591                "READ-ONLY-CORE-SPACE-ID"
592                "*!COLD-DEFCONSTANTS*" "*!COLD-DEFUNS*"
593                "*!COLD-SETF-MACROS*"  "*!COLD-TOPLEVELS*"
594                "COLD-CONS" "COLD-INTERN" "COLD-PUSH" "COLD-TARGET-PUSH"
595                "STATIC-CORE-SPACE-ID"))
597    ;; This package is a grab bag for things which used to be internal
598    ;; symbols in package COMMON-LISP. Lots of these symbols are accessed
599    ;; with explicit SB!IMPL:: prefixes in the code. It would be nice to
600    ;; reduce the use of this practice, so if symbols from here which are
601    ;; accessed that way are found to belong more appropriately in an
602    ;; existing package (e.g. SB!KERNEL or SB!SYS or SB!EXT or SB!FASL),
603    ;; I (WHN 19990223) encourage maintainers to move them there..
604    #s(sb-cold:package-data
605       :name "SB!IMPL"
606       :doc "private: a grab bag of implementation details"
607       :use ("CL" "SB!ALIEN" "SB!BIGNUM" "SB!DEBUG" "SB!EXT"
608                  "SB!FASL" "SB!GRAY" "SB!INT" "SB!KERNEL" "SB!SYS"))
610    #s(sb-cold:package-data
611       :name "SB!EXT"
612       :doc "public: miscellaneous supported extensions to the ANSI Lisp spec"
613       :use ("CL" "SB!ALIEN" "SB!INT" "SB!SYS" "SB!GRAY")
614       :export ( ;; Information about how the program was invoked is
615                ;; nonstandard but very useful.
616                "*POSIX-ARGV*" "*CORE-PATHNAME*" "*RUNTIME-PATHNAME*"
617                "POSIX-GETENV" "POSIX-ENVIRON"
619                ;; Customizing initfile locations
620                "*USERINIT-PATHNAME-FUNCTION*"
621                "*SYSINIT-PATHNAME-FUNCTION*"
623                ;; Compare and Swap support
624                "CAS"
625                "COMPARE-AND-SWAP"
626                "DEFCAS"
627                "DEFINE-CAS-EXPANDER"
628                "GET-CAS-EXPANSION"
630                ;; Other atomic operations and types related to them
631                "ATOMIC-INCF"
632                "ATOMIC-DECF"
633                "ATOMIC-UPDATE"
634                "ATOMIC-PUSH"
635                "ATOMIC-POP"
636                "WORD"
637                "MOST-POSITIVE-WORD"
639                ;; Not an atomic operation, but should be used with them
640                "SPIN-LOOP-HINT"
642                ;; Waiting for arbitrary events.
643                "WAIT-FOR"
645                ;; Time related things
646                "CALL-WITH-TIMING"
647                "GET-TIME-OF-DAY"
649                ;; People have various good reasons to mess with the GC.
650                "*AFTER-GC-HOOKS*"
651                "BYTES-CONSED-BETWEEN-GCS"
652                "GC" "GET-BYTES-CONSED"
653                "*GC-RUN-TIME*"
654                "PURIFY"
655                "DYNAMIC-SPACE-SIZE"
656                ;; Gencgc only, but symbols exist for manual building
657                ;; convenience on all platforms.
658                "GENERATION-AVERAGE-AGE"
659                "GENERATION-BYTES-ALLOCATED"
660                "GENERATION-BYTES-CONSED-BETWEEN-GCS"
661                "GENERATION-MINIMUM-AGE-BEFORE-GC"
662                "GENERATION-NUMBER-OF-GCS"
663                "GENERATION-NUMBER-OF-GCS-BEFORE-PROMOTION"
664                "GC-LOGFILE"
666                ;; Stack allocation control
667                "*STACK-ALLOCATE-DYNAMIC-EXTENT*"
669                ;; Customizing printing of compiler and debugger messages
670                "*COMPILER-PRINT-VARIABLE-ALIST*"
671                "*DEBUG-PRINT-VARIABLE-ALIST*"
672                "COMPILE-FILE-LINE"
673                "COMPILE-FILE-POSITION"
675                ;; Hooks into init & save sequences
676                "*INIT-HOOKS*" "*SAVE-HOOKS*" "*EXIT-HOOKS*"
678                ;; Controlling exiting other threads.
679                "*EXIT-TIMEOUT*"
681                ;; There is no one right way to report progress on
682                ;; hairy compiles.
683                "*COMPILE-PROGRESS*"
685                ;; It can be handy to be able to evaluate expressions involving
686                ;; the thing under examination by CL:INSPECT.
687                "*INSPECTED*"
689                ;; There is no one right way to do efficiency notes.
690                "*EFFICIENCY-NOTE-COST-THRESHOLD*" "*EFFICIENCY-NOTE-LIMIT*"
692                ;; There's no one right way to report errors.
693                "*ENCLOSING-SOURCE-CUTOFF*"
694                "*UNDEFINED-WARNING-LIMIT*"
696                ;; and for dedicated users who really want to customize
697                ;; error reporting, we have
698                "DEFINE-SOURCE-CONTEXT"
700                ;; and given how many users dislike strict treatment of
701                ;; DEFCONSTANT, let's give them enough rope to escape by
702                "DEFCONSTANT-UNEQL" "DEFCONSTANT-UNEQL-NAME"
703                "DEFCONSTANT-UNEQL-NEW-VALUE" "DEFCONSTANT-UNEQL-OLD-VALUE"
705                ;; global lexicals, access to global symbol values
706                "DEFGLOBAL"
707                "DEFINE-LOAD-TIME-GLOBAL"
708                "SYMBOL-GLOBAL-VALUE"
710                ;; package extensions
711                ;;
712                ;; locks
713                #!+sb-package-locks("PACKAGE-LOCKED-P"
714                                    "LOCK-PACKAGE"
715                                    "UNLOCK-PACKAGE"
716                                    "PACKAGE-IMPLEMENTED-BY-LIST"
717                                    "PACKAGE-IMPLEMENTS-LIST"
718                                    "ADD-IMPLEMENTATION-PACKAGE"
719                                    "REMOVE-IMPLEMENTATION-PACKAGE"
720                                    "WITH-UNLOCKED-PACKAGES"
721                                    "PACKAGE-LOCK-VIOLATION"
722                                    "PACKAGE-LOCKED-ERROR"
723                                    "SYMBOL-PACKAGE-LOCKED-ERROR"
724                                    "PACKAGE-LOCKED-ERROR-SYMBOL")
725                "WITHOUT-PACKAGE-LOCKS"
726                "DISABLE-PACKAGE-LOCKS"
727                "ENABLE-PACKAGE-LOCKS"
728                ;; local nicknames
729                "ADD-PACKAGE-LOCAL-NICKNAME"
730                "REMOVE-PACKAGE-LOCAL-NICKNAME"
731                "PACKAGE-LOCAL-NICKNAMES"
732                "PACKAGE-LOCALLY-NICKNAMED-BY-LIST"
733                ;; behaviour on DEFPACKAGE variance
734                "*ON-PACKAGE-VARIANCE*"
736                ;; Custom conditions & condition accessors for users to handle.
737                "CODE-DELETION-NOTE"
738                "COMPILER-NOTE"
739                "IMPLICIT-GENERIC-FUNCTION-NAME"
740                "IMPLICIT-GENERIC-FUNCTION-WARNING"
741                "INVALID-FASL"
743                "NAME-CONFLICT" "NAME-CONFLICT-FUNCTION"
744                "NAME-CONFLICT-DATUM" "NAME-CONFLICT-SYMBOLS"
745                "RESOLVE-CONFLICT"
747                ;; Deprecation stuff
748                "DEPRECATED" ; declaration
749                "DEPRECATION-CONDITION"
750                "DEPRECATION-CONDITION-NAMESPACE"
751                "DEPRECATION-CONDITION-NAME"
752                "DEPRECATION-CONDITION-SOFTWARE"
753                "DEPRECATION-CONDITION-VERSION"
754                "DEPRECATION-CONDITION-REPLACEMENTS"
755                "DEPRECATION-CONDITION-RUNTIME-ERROR"
756                "EARLY-DEPRECATION-WARNING"
757                "LATE-DEPRECATION-WARNING"
758                "FINAL-DEPRECATION-WARNING"
759                "DEPRECATION-ERROR" ; condition and function
761                "PRINT-UNREADABLY"
763                ;; Readtable normalization control
764                "READTABLE-NORMALIZATION"
766                ;; and a mechanism for controlling same at compile time
767                "MUFFLE-CONDITIONS" "UNMUFFLE-CONDITIONS"
769                ;; and one for controlling same at runtime
770                "*MUFFLED-WARNINGS*"
772                ;; specification which print errors to ignore ala *break-on-signal*
773                "*SUPPRESS-PRINT-ERRORS*"
775                ;; extended declarations..
776                "ALWAYS-BOUND" "FREEZE-TYPE" "GLOBAL" "INHIBIT-WARNINGS"
777                "MAYBE-INLINE"
779                ;; ..and variables to control compiler policy
780                "*INLINE-EXPANSION-LIMIT*"
781                "*DERIVE-FUNCTION-TYPES*"
783                ;; ..and inspector of compiler policy
784                "DESCRIBE-COMPILER-POLICY"
785                "RESTRICT-COMPILER-POLICY"
786                "SET-MACRO-POLICY"
788                ;; a special form for breaking out of our "declarations
789                ;; are assertions" default
790                "TRULY-THE"
792                ;; Misc. array and vector tools.
793                "ARRAY-STORAGE-VECTOR"
795                ;; This is something which must exist inside any Common
796                ;; Lisp implementation, and which someone writing a
797                ;; customized toplevel might well want. It seems perverse
798                ;; to hide it from them..
799                "INTERACTIVE-EVAL"
801                ;; Used by LOAD and EVAL-WHEN to pass toplevel indexes
802                ;; to compiler.
803                "EVAL-TLF"
805                ;; weak pointers and finalization
806                "CANCEL-FINALIZATION"
807                "FINALIZE"
808                "MAKE-WEAK-POINTER"
809                "WEAK-POINTER"
810                "WEAK-POINTER-P"
811                "WEAK-POINTER-VALUE"
813                ;; Hash table extensions
814                "DEFINE-HASH-TABLE-TEST"
815                "HASH-TABLE-SYNCHRONIZED-P"
816                "HASH-TABLE-WEAKNESS"
817                "WITH-LOCKED-HASH-TABLE"
819                ;; If the user knows we're doing IEEE, he might reasonably
820                ;; want to do this stuff.
821                "FLOAT-DENORMALIZED-P"
822                "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P"
823                "FLOAT-INFINITY-P"
824                "SHORT-FLOAT-NEGATIVE-INFINITY"
825                "SHORT-FLOAT-POSITIVE-INFINITY"
826                "SINGLE-FLOAT-NEGATIVE-INFINITY"
827                "SINGLE-FLOAT-POSITIVE-INFINITY"
828                "DOUBLE-FLOAT-NEGATIVE-INFINITY"
829                "DOUBLE-FLOAT-POSITIVE-INFINITY"
830                "LONG-FLOAT-NEGATIVE-INFINITY"
831                "LONG-FLOAT-POSITIVE-INFINITY"
833                ;; hacks to work around system limitations
834                "*INTEXP-MAXIMUM-EXPONENT*" ; since we crash hard when
835                                         ; memory is exhausted
837                ;; saving Lisp images
838                "SAVE-LISP-AND-DIE"
840                ;; provided for completeness to make it more convenient
841                ;; to use command-line --disable-debugger functionality
842                ;; in oddball situations (like building core files using
843                ;; scripts which run unattended, when the core files are
844                ;; intended for interactive use)
845                "DISABLE-DEBUGGER"
846                "ENABLE-DEBUGGER"
848                ;; the mechanism by which {en,dis}able-debugger works is
849                ;; also exported for people writing alternative toplevels
850                ;; (Emacs, CLIM interfaces, etc)
851                "*INVOKE-DEBUGGER-HOOK*"
853                ;; miscellaneous useful supported extensions
854                "QUIT" "EXIT"
855                "*ED-FUNCTIONS*"
856                "*MODULE-PROVIDER-FUNCTIONS*"
857                "MAP-DIRECTORY"
858                "WITH-TIMEOUT" "TIMEOUT"
859                "SEED-RANDOM-STATE"
860                "TYPEXPAND-1" "TYPEXPAND" "TYPEXPAND-ALL"
861                "DEFINED-TYPE-NAME-P" "VALID-TYPE-SPECIFIER-P"
862                "DELETE-DIRECTORY"
863                "SET-SBCL-SOURCE-LOCATION"
864                "*DISASSEMBLE-ANNOTATE*"
865                "PRINT-SYMBOL-WITH-PREFIX"
866                "PRINT-TYPE-SPECIFIER" "PRINT-TYPE"
868                ;; stepping interface
869                "STEP-CONDITION" "STEP-FORM-CONDITION" "STEP-FINISHED-CONDITION"
870                "STEP-VALUES-CONDITION"
871                "STEP-CONDITION-FORM" "STEP-CONDITION-RESULT"
872                "STEP-CONTINUE" "STEP-NEXT" "STEP-INTO"
873                "STEP-CONDITION-ARGS" "*STEPPER-HOOK*" "STEP-OUT"
875                ;; RUN-PROGRAM is not only useful for users, but also
876                ;; useful to implement parts of SBCL itself, so we're
877                ;; going to have to implement it anyway, so we might
878                ;; as well support it. And then once we're committed
879                ;; to implementing RUN-PROGRAM, it's nice to have it
880                ;; return a PROCESS object with operations defined on
881                ;; that object.
882                "RUN-PROGRAM"
883                "PROCESS-ALIVE-P" "PROCESS-CLOSE"
884                "PROCESS-CORE-DUMPED" "PROCESS-ERROR" "PROCESS-EXIT-CODE"
885                "PROCESS-INPUT" "PROCESS-KILL" "PROCESS-OUTPUT" "PROCESS-P"
886                "PROCESS-PID" "PROCESS-PLIST" "PROCESS-PTY" "PROCESS-STATUS"
887                "PROCESS-STATUS-HOOK" "PROCESS-WAIT"
889                ;; pathnames
890                "NATIVE-PATHNAME"
891                "PARSE-NATIVE-NAMESTRING"
892                "NATIVE-NAMESTRING"
894                ;; external-format support
895                "OCTETS-TO-STRING" "STRING-TO-OCTETS"
897                ;; Whether to use the interpreter or the compiler for EVAL
898                "*EVALUATOR-MODE*"
900                ;; timer
901                "TIMER" "MAKE-TIMER" "TIMER-NAME" "TIMER-SCHEDULED-P"
902                "SCHEDULE-TIMER" "UNSCHEDULE-TIMER" "LIST-ALL-TIMERS"
904                ;; SIMD pack
905                #!+sb-simd-pack("SIMD-PACK"
906                                "SIMD-PACK-P"
907                                "%MAKE-SIMD-PACK-UB32"
908                                "%MAKE-SIMD-PACK-UB64"
909                                "%MAKE-SIMD-PACK-DOUBLE"
910                                "%MAKE-SIMD-PACK-SINGLE"
911                                "%SIMD-PACK-UB32S"
912                                "%SIMD-PACK-UB64S"
913                                "%SIMD-PACK-DOUBLES"
914                                "%SIMD-PACK-SINGLES")
916                ;; versioning utility
917                "ASSERT-VERSION->="))
919    #s(sb-cold:package-data
920       :name "SB!FORMAT"
921       :doc "private: implementation of FORMAT and friends"
922       :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL")
923       :export ("%COMPILER-WALK-FORMAT-STRING" "FORMAT-ERROR"))
925    #s(sb-cold:package-data
926       :name "SB!GRAY"
927       :doc
928       "public: an implementation of the stream-definition-by-user
929 Lisp extension proposal by David N. Gray"
930       :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL")
931       :export ("FUNDAMENTAL-BINARY-STREAM"
932                "FUNDAMENTAL-BINARY-INPUT-STREAM"
933                "FUNDAMENTAL-BINARY-OUTPUT-STREAM" "FUNDAMENTAL-CHARACTER-STREAM"
934                "FUNDAMENTAL-CHARACTER-INPUT-STREAM"
935                "FUNDAMENTAL-CHARACTER-OUTPUT-STREAM"
936                "FUNDAMENTAL-INPUT-STREAM" "FUNDAMENTAL-OUTPUT-STREAM"
937                "FUNDAMENTAL-STREAM"
938                "STREAM-ADVANCE-TO-COLUMN" "STREAM-CLEAR-INPUT"
939                "STREAM-CLEAR-OUTPUT" "STREAM-FILE-POSITION" "STREAM-FINISH-OUTPUT" "STREAM-FORCE-OUTPUT"
940                "STREAM-FRESH-LINE" "STREAM-LINE-COLUMN" "STREAM-LINE-LENGTH"
941                "STREAM-LISTEN" "STREAM-PEEK-CHAR" "STREAM-READ-BYTE"
942                "STREAM-READ-CHAR" "STREAM-READ-CHAR-NO-HANG" "STREAM-READ-LINE"
943                "STREAM-READ-SEQUENCE" "STREAM-START-LINE-P" "STREAM-TERPRI"
944                "STREAM-UNREAD-CHAR"
945                "STREAM-WRITE-BYTE" "STREAM-WRITE-CHAR" "STREAM-WRITE-SEQUENCE"
946                "STREAM-WRITE-STRING"))
948    #s(sb-cold:package-data
949       :name "SB!INT"
950       :doc
951       "private: miscellaneous unsupported extensions to the ANSI spec. Much of
952 the stuff in here originated in CMU CL's EXTENSIONS package and is retained,
953 possibly temporarily, because it might be used internally."
954       :use ("CL" "SB!ALIEN" "SB!GRAY" "SB!FASL" "SB!SYS")
955       :export (;; lambda list keyword extensions
956                "&MORE"
958                ;; utilities for floating point zero handling
959                "FP-ZERO-P"
960                "NEG-FP-ZERO"
962                ;; Advice to the compiler that it doesn't need to assert types.
963                "EXPLICIT-CHECK"
964                ;; Stack allocation without any questions asked
965                "TRULY-DYNAMIC-EXTENT"
967                ;; Like WITH-LOCKED-HASH-TABLE, but disabled interrupts
968                "WITH-LOCKED-SYSTEM-TABLE"
970                ;; generic set implementation backed by a list that upgrades
971                ;; to a hashtable if a certain size is exceeded.
972                "ADD-TO-XSET"
973                "ALLOC-XSET"
974                "MAP-XSET"
975                "XSET"
976                "XSET-COUNT"
977                "XSET-EMPTY-P"
978                "XSET-INTERSECTION"
979                "XSET-MEMBER-P"
980                "XSET-MEMBERS"
981                "XSET-SUBSET-P"
982                "XSET-UNION"
984                ;; sparse set implementation backed by a lightweight hashtable
985                "COPY-SSET"
986                "DO-SSET-ELEMENTS"
987                "MAKE-SSET"
988                "SSET"
989                "SSET-ADJOIN" "SSET-DELETE" "SSET-ELEMENT" "SSET-EMPTY"
990                "SSET-MEMBER"
992                ;; communication between the runtime and Lisp
993                "*CORE-STRING*"
995                ;; INFO stuff doesn't belong in a user-visible package, we
996                ;; should be able to change it without apology.
997                "*INFO-ENVIRONMENT*"
998                "+INFOS-PER-WORD+"
999                "+FDEFN-INFO-NUM+"
1000                "+NIL-PACKED-INFOS+"
1001                "CLEAR-INFO"
1002                "FIND-FDEFN"
1003                "GET-INFO-VALUE-INITIALIZING"
1004                "INFO"
1005                "INFO-FIND-AUX-KEY/PACKED"
1006                "INFO-GETHASH"
1007                "INFO-NUMBER"
1008                "INFO-NUMBER-BITS"
1009                "INFO-VECTOR-FDEFN"
1010                "PACKED-INFO-FIELD"
1011                "PACKED-INFO-INSERT"
1012                "PROCLAIMED-FTYPE"
1013                "UPDATE-SYMBOL-INFO"
1014                "WITH-GLOBALDB-NAME"
1016                ;; Calling a list of hook functions, plus error handling.
1017                "CALL-HOOKS"
1019                ;; Constant form evaluation
1020                "CONSTANT-FORM-VALUE"
1021                "CONSTANT-TYPEP"
1023                ;; stepping control
1024                "*STEPPING*"
1026                ;; packages grabbed once and for all
1027                "*KEYWORD-PACKAGE*" "*CL-PACKAGE*"
1029                ;; hash mixing operations
1030                "MIX" "MIXF"
1032                ;; Macroexpansion that doesn't touch special forms
1033                "%MACROEXPAND"
1034                "%MACROEXPAND-1"
1036                ;; I'm not convinced that FDEFINITIONs are the ideal
1037                ;; solution, so exposing ways to peek into the system
1038                ;; seems undesirable, since it makes it harder to get
1039                ;; rid of FDEFINITIONs entirely later.
1040                "*SETF-FDEFINITION-HOOK*"
1042                ;; error-reporting facilities
1043                "ARGUMENTS-OUT-OF-DOMAIN-ERROR"
1044                "BAD-TYPE"
1045                "CLOSED-STREAM-ERROR"
1046                "COMPILED-PROGRAM-ERROR"
1047                "COMPILER-MACRO-KEYWORD-PROBLEM"
1048                "ENCAPSULATED-CONDITION"
1049                "INTERPRETED-PROGRAM-ERROR"
1050                "INVALID-ARRAY-ERROR"
1051                "INVALID-ARRAY-INDEX-ERROR"
1052                "INVALID-ARRAY-P"
1053                "SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"
1054                "SIMPLE-PARSE-ERROR" "SIMPLE-PROGRAM-ERROR"
1055                "SIMPLE-READER-ERROR"
1056                "SIMPLE-READER-PACKAGE-ERROR"
1057                "SIMPLE-REFERENCE-ERROR"
1058                "SIMPLE-REFERENCE-WARNING"
1059                "SIMPLE-STREAM-ERROR"
1060                "SIMPLE-STORAGE-CONDITION"
1061                "SIMPLE-STYLE-WARNING"
1062                "STREAM-ERROR-POSITION-INFO"
1063                "TRY-RESTART"
1065                ;; error-signalling facilities
1066                "STANDARD-READTABLE-MODIFIED-ERROR"
1067                "STANDARD-PPRINT-DISPATCH-TABLE-MODIFIED-ERROR"
1068                "ARRAY-BOUNDING-INDICES-BAD-ERROR"
1069                "CIRCULAR-LIST-ERROR"
1070                "SEQUENCE-BOUNDING-INDICES-BAD-ERROR"
1071                "SPECIAL-FORM-FUNCTION"
1072                "STYLE-WARN" "SIMPLE-COMPILER-NOTE"
1073                "TWO-ARG-CHAR-EQUAL" "TWO-ARG-CHAR-NOT-EQUAL"
1074                "TWO-ARG-CHAR-LESSP" "TWO-ARG-CHAR-NOT-LESSP"
1075                "TWO-ARG-CHAR-GREATERP" "TWO-ARG-CHAR-NOT-GREATERP"
1076                "CHAR-EQUAL-CONSTANT" "CHAR-CASE-INFO"
1077                ;; FIXME: potential SB!EXT exports
1078                "CHARACTER-CODING-ERROR"
1079                "CHARACTER-DECODING-ERROR" "CHARACTER-DECODING-ERROR-OCTETS"
1080                "CHARACTER-ENCODING-ERROR" "CHARACTER-ENCODING-ERROR-CODE"
1081                "STREAM-DECODING-ERROR" "STREAM-ENCODING-ERROR"
1082                "C-STRING-ENCODING-ERROR"
1083                "C-STRING-DECODING-ERROR"
1084                "ATTEMPT-RESYNC" "FORCE-END-OF-FILE"
1086                ;; bootstrapping magic, to make things happen both in
1087                ;; the cross-compilation host compiler's environment and
1088                ;; in the cross-compiler's environment
1089                "DEF!CONSTANT" "DEF!STRUCT" "DEF!TYPE"
1090                ;; bootstrapping magic of a different kind, wherein things happen
1091                ;; as they ordinarily do, plus during second genesis.
1092                "!DEFGLOBAL" "!DEFPARAMETER" "!DEFVAR"
1093                ;; bootstrapping macro whose effect is to delay until warm load.
1094                "DEF*METHOD"
1095                "!SET-LOAD-FORM-METHOD"
1097                ;; stuff for hinting to the compiler
1098                "NAMED-DS-BIND"
1099                "NAMED-LAMBDA"
1101                ;; other variations on DEFFOO stuff useful for bootstrapping
1102                ;; and cross-compiling
1103                "DEFCONSTANT-EQX"
1104                "DEFINE-UNSUPPORTED-FUN"
1106                ;; messing with PATHNAMEs
1107                "MAKE-TRIVIAL-DEFAULT-PATHNAME"
1108                "PHYSICALIZE-PATHNAME"
1109                "SANE-DEFAULT-PATHNAME-DEFAULTS"
1110                "SBCL-HOMEDIR-PATHNAME"
1111                "SIMPLIFY-NAMESTRING"
1113                "*N-BYTES-FREED-OR-PURIFIED*"
1115                ;; Deprecating stuff
1116                "DEFINE-DEPRECATED-FUNCTION"
1117                "DEFINE-DEPRECATED-VARIABLE"
1118                "DEPRECATION-STATE"
1119                "DEPRECATION-INFO" "MAKE-DEPRECATION-INFO"
1120                "DEPRECATION-INFO-STATE"
1121                "DEPRECATION-INFO-SOFTWARE"
1122                "DEPRECATION-INFO-VERSION"
1123                "DEPRECATION-INFO-REPLACEMENTS"
1124                "PRINT-DEPRECATION-MESSAGE"
1125                "CHECK-DEPRECATED-THING" "CHECK-DEPRECATED-TYPE"
1126                "DEPRECATED-THING-P"
1127                "DEPRECATION-WARN"
1128                "LOADER-DEPRECATION-WARN"
1130                ;; miscellaneous non-standard but handy user-level functions..
1131                "ASSQ" "DELQ" "MEMQ" "POSQ" "NEQ"
1132                "ADJUST-LIST"
1133                "%FIND-PACKAGE-OR-LOSE" "FIND-UNDELETED-PACKAGE-OR-LOSE"
1134                "SANE-PACKAGE"
1135                "MAYBE-CYCLIC-P"
1136                "COMPOUND-OBJECT-P"
1137                "SWAPPED-ARGS-FUN"
1138                "AND/TYPE" "NOT/TYPE"
1139                "ANY/TYPE" "EVERY/TYPE"
1140                "EQUAL-BUT-NO-CAR-RECURSION"
1141                "TYPE-BOUND-NUMBER"
1142                "CONSTANTLY-T" "CONSTANTLY-NIL" "CONSTANTLY-0"
1143                "PSXHASH"
1144                "%BREAK"
1145                "BIT-VECTOR-="
1146                "PATHNAME="
1147                "%HASH-TABLE-ALIST"
1148                "HASH-TABLE-EQUALP"
1149                "READ-EVALUATED-FORM"
1150                "MAKE-UNPRINTABLE-OBJECT"
1151                "POWER-OF-TWO-CEILING"
1152                "PRINT-NOT-READABLE-ERROR"
1153                "REPLACE/EQL-HASH-TABLE"
1155                ;; ..and macros..
1156                "COLLECT"
1157                "DO-ANONYMOUS" "DOVECTOR" "DOHASH" "DOPLIST"
1158                "NAMED-LET"
1159                "ONCE-ONLY"
1160                "DEFENUM"
1161                "DEFPRINTER"
1162                "AVER"
1163                "DX-FLET" "DX-LET"
1164                "AWHEN" "ACOND" "IT"
1165                "BINDING*" "EXTRACT-VAR-DECLS"
1166                "!DEF-BOOLEAN-ATTRIBUTE"
1167                "FUNARG-BIND/CALL-FORMS"
1168                "QUASIQUOTE"
1169                "COMMA-P"
1170                "COMMA-EXPR"
1171                "COMMA-KIND"
1172                "UNQUOTE"
1173                "PACKAGE-HASHTABLE"
1174                "PACKAGE-ITER-STEP"
1175                "WITH-REBOUND-IO-SYNTAX"
1176                "WITH-SANE-IO-SYNTAX"
1177                "WITH-PROGRESSIVE-TIMEOUT"
1179                ;; ..and CONDITIONs..
1180                "BUG"
1181                "UNSUPPORTED-OPERATOR"
1183                "BOOTSTRAP-PACKAGE-NAME"
1184                "BOOTSTRAP-PACKAGE-NOT-FOUND"
1185                "DEBOOTSTRAP-PACKAGE"
1187                "REFERENCE-CONDITION" "REFERENCE-CONDITION-REFERENCES"
1188                "*PRINT-CONDITION-REFERENCES*"
1190                "DUPLICATE-DEFINITION" "DUPLICATE-DEFINITION-NAME"
1191                "SAME-FILE-REDEFINITION-WARNING"
1192                "PACKAGE-AT-VARIANCE"
1193                "PACKAGE-AT-VARIANCE-ERROR"
1194                "ARRAY-INITIAL-ELEMENT-MISMATCH"
1195                "TYPE-WARNING" "TYPE-STYLE-WARNING"
1196                "LOCAL-ARGUMENT-MISMATCH"
1197                "FORMAT-ARGS-MISMATCH" "FORMAT-TOO-FEW-ARGS-WARNING"
1198                "FORMAT-TOO-MANY-ARGS-WARNING" "EXTENSION-FAILURE"
1199                "STRUCTURE-INITARG-NOT-KEYWORD" "CONSTANT-MODIFIED"
1201                ;; ..and DEFTYPEs..
1202                "MAX-HASH" "HASH"
1203                "INDEX" "LOAD/STORE-INDEX"
1204                "SIGNED-BYTE-WITH-A-BITE-OUT"
1205                "UNSIGNED-BYTE-WITH-A-BITE-OUT"
1206                "SFUNCTION" "UNSIGNED-BYTE*"
1207                "CONSTANT-DISPLACEMENT"
1208                ;; ..and type predicates
1209                "DOUBLE-FLOAT-P"
1210                "LOGICAL-PATHNAME-P"
1211                "LONG-FLOAT-P"
1212                "SHORT-FLOAT-P"
1213                "SINGLE-FLOAT-P"
1214                "FIXNUMP"
1215                "BIGNUMP"
1216                "RATIOP"
1218                ;; encapsulation
1219                "ENCAPSULATE" "ENCAPSULATED-P"
1220                "UNENCAPSULATE"
1222                ;; various CHAR-CODEs
1223                "BACKSPACE-CHAR-CODE" "BELL-CHAR-CODE" "ESCAPE-CHAR-CODE"
1224                "FORM-FEED-CHAR-CODE" "LINE-FEED-CHAR-CODE"
1225                "RETURN-CHAR-CODE" "RUBOUT-CHAR-CODE" "TAB-CHAR-CODE"
1227                ;; symbol-hacking idioms
1228                "GENSYMIFY" "KEYWORDICATE" "SYMBOLICATE"
1229                "INTERNED-SYMBOL-P"
1231                ;; certainly doesn't belong in public extensions
1232                ;; FIXME: maybe belongs in %KERNEL with other typesystem stuff?
1233                "CONSTANT-ARG"
1235                ;; various internal defaults
1236                "*DEFAULT-INIT-CHAR-FORM*"
1237                "*LOAD-SOURCE-DEFAULT-TYPE*" "BASE-CHAR-CODE-LIMIT"
1239                ;; hash caches
1240                "DEFUN-CACHED"
1241                "DROP-ALL-HASH-CACHES"
1243                ;; time
1244                "FORMAT-DECODED-TIME"
1245                "FORMAT-UNIVERSAL-TIME"
1247                ;; used for FORMAT tilde paren
1248                "MAKE-CASE-FROB-STREAM"
1250                ;; helpers for C library calls
1251                "STRERROR" "SIMPLE-PERROR"
1253                ;; debuggers' little helpers
1254                #!+sb-show("*/SHOW*"
1255                           "HEXSTR")
1256                "/SHOW"  "/NOSHOW"
1257                "/XHOW"  "/NOXHOW"
1258                "/SHOW0" "/NOSHOW0"
1259                "/HEXSTR" "/NOHEXSTR"
1260                "/PRIMITIVE-PRINT"
1262                ;; cross-compilation bootstrap hacks which turn into
1263                ;; placeholders in a target system
1264                "UNCROSS"
1265                "!UNCROSS-FORMAT-CONTROL"
1267                ;; might as well be shared among the various files which
1268                ;; need it:
1269                "*EOF-OBJECT*"
1271                ;; allocation to static space
1272                "MAKE-STATIC-VECTOR"
1274                ;; alien interface utilities
1275                "C-STRINGS->STRING-LIST"
1277                ;; misc. utilities used internally
1278                "DEFINE-FUNCTION-NAME-SYNTAX" "VALID-FUNCTION-NAME-P" ; should be SB!EXT?
1279                "LEGAL-FUN-NAME-P" "LEGAL-FUN-NAME-OR-TYPE-ERROR"
1280                "FUN-NAME-BLOCK-NAME"
1281                "FUN-NAME-INLINE-EXPANSION"
1282                "LISTEN-SKIP-WHITESPACE"
1283                "PACKAGE-INTERNAL-SYMBOL-COUNT" "PACKAGE-EXTERNAL-SYMBOL-COUNT"
1284                "PARSE-BODY" "PARSE-LAMBDA-LIST" "MAKE-LAMBDA-LIST"
1285                "LAMBDA-LIST-KEYWORD-MASK"
1286                "PARSE-KEY-ARG-SPEC" "PARSE-OPTIONAL-ARG-SPEC"
1287                "LL-KWDS-RESTP" "LL-KWDS-KEYP" "LL-KWDS-ALLOWP"
1288                "MAKE-MACRO-LAMBDA"
1289                "PROPER-LIST-OF-LENGTH-P" "PROPER-LIST-P"
1290                "LIST-OF-LENGTH-AT-LEAST-P"
1291                "LIST-WITH-LENGTH-P"
1292                "SINGLETON-P" "ENSURE-LIST"
1293                "MISSING-ARG"
1294                "FEATUREP"
1295                "FLUSH-STANDARD-OUTPUT-STREAMS"
1296                "WITH-UNIQUE-NAMES" "MAKE-GENSYM-LIST"
1297                "ABOUT-TO-MODIFY-SYMBOL-VALUE"
1298                "SELF-EVALUATING-P"
1299                "PRINT-PRETTY-ON-STREAM-P"
1300                "ARRAY-READABLY-PRINTABLE-P"
1301                "LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P"
1302                "POSITIVE-PRIMEP"
1303                "EVAL-IN-LEXENV"
1304                "SIMPLE-EVAL-IN-LEXENV"
1305                "FORCE" "DELAY" "PROMISE-READY-P"
1306                "FIND-RESTART-OR-CONTROL-ERROR"
1307                "LOAD-AS-SOURCE"
1309                ;; These could be moved back into SB!EXT if someone has
1310                ;; compelling reasons, but hopefully we can get by
1311                ;; without supporting them, at least not as publicly
1312                ;; accessible things with fixed interfaces.
1313                "GET-FLOATING-POINT-MODES"
1314                "SET-FLOATING-POINT-MODES"
1315                "WITH-FLOAT-TRAPS-MASKED"
1317                ;; a sort of quasi-unbound tag for use in hash tables
1318                "+EMPTY-HT-SLOT+"
1320                ;; low-level i/o stuff
1321                "DONE-WITH-FAST-READ-CHAR"
1322                "FAST-READ-BYTE"
1323                "FAST-READ-BYTE-REFILL"
1324                "FAST-READ-CHAR"
1325                "FAST-READ-CHAR-REFILL"
1326                "FAST-READ-S-INTEGER"
1327                "FAST-READ-U-INTEGER"
1328                "FAST-READ-VAR-U-INTEGER"
1329                "FILE-NAME"
1330                "FORM-TRACKING-STREAM"
1331                "FORM-TRACKING-STREAM-OBSERVER"
1332                "FORM-TRACKING-STREAM-P"
1333                "FORM-TRACKING-STREAM-FORM-START-BYTE-POS"
1334                "FORM-TRACKING-STREAM-FORM-START-CHAR-POS"
1335                "LINE/COL-FROM-CHARPOS"
1336                "%INTERN"
1337                "WITH-FAST-READ-BYTE"
1338                "PREPARE-FOR-FAST-READ-CHAR"
1339                "OUT-SYNONYM-OF"
1340                "STRINGIFY-OBJECT"
1341                "%WRITE"
1343                ;; hackery to help set up for cold init
1344                "!BEGIN-COLLECTING-COLD-INIT-FORMS"
1345                "!COLD-INIT-FORMS"
1346                "!COLD-FSET"
1347                "!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS"
1349                ;; catch tags
1350                "TOPLEVEL-CATCHER"
1352                ;; Constructors for arrays whose element-type is recoverable
1353                ;; even if the host Lisp upgrades it to something unexpected.
1354                "!MAKE-SPECIALIZED-ARRAY"
1355                "!COERCE-TO-SPECIALIZED"
1356                "!SPECIALIZED-ARRAY-ELEMENT-TYPE"
1358                ;; hooks for contrib/ stuff we're insufficiently sure
1359                ;; about to add to SB!EXT
1360                "*REPL-PROMPT-FUN*"
1361                "*REPL-READ-FORM-FUN*"
1363                ;; Character database
1364                "**CHARACTER-MISC-DATABASE**"
1365                "**CHARACTER-HIGH-PAGES**"
1366                "**CHARACTER-LOW-PAGES**"
1367                "**CHARACTER-DECOMPOSITIONS**"
1368                "**CHARACTER-PRIMARY-COMPOSITIONS**"
1369                "**CHARACTER-CASES**"
1370                "**CHARACTER-CASE-PAGES**"
1371                "**CHARACTER-COLLATIONS**"
1372                "**UNICODE-CHAR-NAME-DATABASE**"
1373                "**UNICODE-NAME-CHAR-DATABASE**"
1374                "**UNICODE-1-CHAR-NAME-DATABASE**"
1375                "**UNICODE-1-NAME-CHAR-DATABASE**"
1376                "**UNICODE-CHARACTER-NAME-HUFFMAN-TREE**"
1378                ;; Character database access
1379                "MISC-INDEX"
1380                "CLEAR-FLAG"
1381                "PACK-3-CODEPOINTS"
1383                ;; Huffman trees
1384                "HUFFMAN-ENCODE"
1385                "HUFFMAN-DECODE"
1386                "BINARY-SEARCH"
1387                "DOUBLE-VECTOR-BINARY-SEARCH"))
1389    ;; FIXME: This package is awfully huge. It'd probably be good to
1390    ;; split it. There's at least one natural way to split it: the
1391    ;; implementation of the Lisp type system (e.g. TYPE-INTERSECTION and
1392    ;; SPECIFIER-TYPE) could move to a separate package SB!TYPE. (There's
1393    ;; lots of stuff which currently uses the SB!KERNEL package which
1394    ;; doesn't actually use the type system stuff.) And maybe other
1395    ;; possible splits too:
1396    ;;   * Pull GC stuff (*GC-INHIBIT*, *GC-PENDING*, etc.)
1397    ;;     out into SB-GC.
1398    ;;   * Pull special case implementations of sequence functions (e.g.
1399    ;;     %MAP-TO-LIST-ARITY-1 and %FIND-POSITION-IF-NOT) and
1400    ;;     other sequence function implementation grot into SB-SEQ.
1401    ;;   * Pull all the math stuff (%ACOS, %COSH, WORD-LOGICAL-AND...)
1402    ;;     into SB-MATH.
1403    ;;   * Pull all the array stuff (%ARRAY-DATA-VECTOR,
1404    ;;     WITH-ARRAY-DATA, ALLOCATE-VECTOR, HAIRY-DATA-VECTOR-REF...)
1405    ;;     into SB-ARRAY.
1406    ;;   * Pull all the streams stuff out into SB-STREAM.
1407    ;;   * Pull all the OBJECT-NOT-FOO symbols out. Maybe we could even
1408    ;;     figure out a way to stop exporting them? Failing that,
1409    ;;     they could be in SB-INTERR.
1410    ;;     Or better still, since error names are basically meaningless except
1411    ;;     for the ~18 errors that are _not_ object-not-<x>, stop naming them.
1412    ;;     C just needs a map from number -> string-to-show.
1413    #s(sb-cold:package-data
1414       :name "SB!KERNEL"
1415       :doc
1416       "private: Theoretically this 'hides state and types used for package
1417 integration' (said CMU CL architecture.tex) and that probably was and
1418 is a good idea, but see SB-SYS re. blurring of boundaries."
1419       :use ("CL" "SB!ALIEN" "SB!ALIEN-INTERNALS" "SB!BIGNUM"
1420                  "SB!EXT" "SB!FASL" "SB!INT" "SB!SYS" "SB!GRAY")
1421       :reexport ("DEF!STRUCT"
1422                  #!+sb-simd-pack("SIMD-PACK"
1423                                  "SIMD-PACK-P"
1424                                  "%MAKE-SIMD-PACK-UB32"
1425                                  "%MAKE-SIMD-PACK-UB64"
1426                                  "%MAKE-SIMD-PACK-DOUBLE"
1427                                  "%MAKE-SIMD-PACK-SINGLE"
1428                                  "%SIMD-PACK-UB32S"
1429                                  "%SIMD-PACK-UB64S"
1430                                  "%SIMD-PACK-DOUBLES"
1431                                  "%SIMD-PACK-SINGLES"))
1432       :export ("%ACOS"
1433                "%ACOSH"
1434                "%ADJOIN"
1435                "%ADJOIN-EQ"
1436                "%ADJOIN-KEY"
1437                "%ADJOIN-KEY-EQ"
1438                "%ADJOIN-KEY-TEST"
1439                "%ADJOIN-KEY-TEST-NOT"
1440                "%ADJOIN-TEST"
1441                "%ADJOIN-TEST-NOT"
1442                "%ARRAY-AVAILABLE-ELEMENTS" "%ARRAY-DATA-VECTOR"
1443                "%ARRAY-DIMENSION" "%ARRAY-DISPLACED-P"
1444                "%ARRAY-DISPLACED-FROM"
1445                "%ARRAY-DISPLACEMENT" "%ARRAY-FILL-POINTER"
1446                "%ARRAY-FILL-POINTER-P" "%ARRAY-RANK"
1447                "%ARRAY-ATOMIC-INCF/WORD"
1448                #!+ash-right-vops "%ASH/RIGHT"
1449                "%ASSOC"
1450                "%ASSOC-EQ"
1451                "%ASSOC-IF"
1452                "%ASSOC-IF-KEY"
1453                "%ASSOC-IF-NOT"
1454                "%ASSOC-IF-NOT-KEY"
1455                "%ASSOC-KEY"
1456                "%ASSOC-KEY-EQ"
1457                "%ASSOC-KEY-TEST"
1458                "%ASSOC-KEY-TEST-NOT"
1459                "%ASSOC-TEST"
1460                "%ASSOC-TEST-NOT"
1461                "%ASIN" "%ASINH"
1462                "%ATAN" "%ATAN2" "%ATANH"
1463                "%ATOMIC-DEC-CAR" "%ATOMIC-INC-CAR"
1464                "%ATOMIC-DEC-CDR" "%ATOMIC-INC-CDR"
1465                "%ATOMIC-DEC-SYMBOL-GLOBAL-VALUE"
1466                "%ATOMIC-INC-SYMBOL-GLOBAL-VALUE"
1467                "%CALLER-FRAME"
1468                "%CALLER-PC"
1469                "%CHECK-BOUND" "CHECK-BOUND"
1470                "%CHECK-GENERIC-SEQUENCE-BOUNDS"
1471                "%CHECK-VECTOR-SEQUENCE-BOUNDS"
1472                "%COMPARE-AND-SWAP-CAR"
1473                "%COMPARE-AND-SWAP-CDR"
1474                "%COMPARE-AND-SWAP-SVREF"
1475                "%COMPARE-AND-SWAP-SYMBOL-INFO"
1476                "%COMPARE-AND-SWAP-SYMBOL-VALUE"
1477                "%CONCATENATE-TO-BASE-STRING"
1478                "%CONCATENATE-TO-STRING"
1479                "%CONCATENATE-TO-SIMPLE-VECTOR"
1480                "%CONCATENATE-TO-LIST" "%CONCATENATE-TO-VECTOR"
1481                "CONTAINS-UNKNOWN-TYPE-P"
1482                "%COS" "%COS-QUICK"
1483                "%COSH" "%DATA-VECTOR-AND-INDEX" "%DEPOSIT-FIELD"
1484                "%DOUBLE-FLOAT" "%DPB" "%EQL" "%EQL/INTEGER"
1485                "%EXIT"
1486                "%EXP" "%EXPM1"
1487                "%FIND-POSITION"
1488                "%FIND-POSITION-VECTOR-MACRO" "%FIND-POSITION-IF"
1489                "%FIND-POSITION-IF-VECTOR-MACRO" "%FIND-POSITION-IF-NOT"
1490                "%FIND-POSITION-IF-NOT-VECTOR-MACRO"
1491                "FIXNUM-MOD-P"
1492                "%HYPOT"
1493                "%INSTANCE-CAS"
1494                "%LDB" "%LOG" "%LOGB" "%LOG10"
1495                "%LAST0"
1496                "%LAST1"
1497                "%LASTN/FIXNUM"
1498                "%LASTN/BIGNUM"
1499                "%LOG1P"
1500                #!+long-float "%LONG-FLOAT"
1501                "%MAKE-ARRAY"
1502                "%MAKE-COMPLEX" "%MAKE-FUNCALLABLE-INSTANCE"
1503                "%MAKE-FUNCALLABLE-STRUCTURE-INSTANCE-ALLOCATOR"
1504                "%MAKE-INSTANCE"
1505                "%MAKE-LISP-OBJ"
1506                "%MAKE-LIST"
1507                "%MAKE-RATIO"
1508                #!+sb-simd-pack "%MAKE-SIMD-PACK"
1509                "%MAKE-STRUCTURE-INSTANCE"
1510                "%MAKE-STRUCTURE-INSTANCE-ALLOCATOR"
1511                "%MAP" "%MAP-FOR-EFFECT-ARITY-1"
1512                "%MAP-TO-LIST-ARITY-1" "%MAP-TO-SIMPLE-VECTOR-ARITY-1"
1513                "%MASK-FIELD"
1514                "%MEMBER"
1515                "%MEMBER-EQ"
1516                "%MEMBER-IF"
1517                "%MEMBER-IF-KEY"
1518                "%MEMBER-IF-NOT"
1519                "%MEMBER-IF-NOT-KEY"
1520                "%MEMBER-KEY"
1521                "%MEMBER-KEY-EQ"
1522                "%MEMBER-KEY-TEST"
1523                "%MEMBER-KEY-TEST-NOT"
1524                "%MEMBER-TEST"
1525                "%MEMBER-TEST-NOT"
1526                "%MULTIPLY-HIGH"
1527                "%NEGATE" "%POW"
1528                "%OTHER-POINTER-WIDETAG"
1529                "%PUTHASH"
1530                "%RASSOC"
1531                "%RASSOC-EQ"
1532                "%RASSOC-IF"
1533                "%RASSOC-IF-KEY"
1534                "%RASSOC-IF-NOT"
1535                "%RASSOC-IF-NOT-KEY"
1536                "%RASSOC-KEY"
1537                "%RASSOC-KEY-EQ"
1538                "%RASSOC-KEY-TEST"
1539                "%RASSOC-KEY-TEST-NOT"
1540                "%RASSOC-TEST"
1541                "%RASSOC-TEST-NOT"
1542                "%VECTOR-RAW-BITS"
1543                "%SCALB" "%SCALBN"
1544                "%RAW-INSTANCE-ATOMIC-INCF/WORD"
1545                "%RAW-INSTANCE-CAS/WORD"
1546                "%RAW-INSTANCE-REF/WORD" "%RAW-INSTANCE-SET/WORD"
1547                "%RAW-INSTANCE-REF/SINGLE" "%RAW-INSTANCE-SET/SINGLE"
1548                "%RAW-INSTANCE-REF/DOUBLE" "%RAW-INSTANCE-SET/DOUBLE"
1549                "%RAW-INSTANCE-REF/COMPLEX-SINGLE"
1550                "%RAW-INSTANCE-SET/COMPLEX-SINGLE"
1551                "%RAW-INSTANCE-REF/COMPLEX-DOUBLE"
1552                "%RAW-INSTANCE-SET/COMPLEX-DOUBLE"
1553                "%SET-ARRAY-DIMENSION" "%SET-FUNCALLABLE-INSTANCE-INFO"
1554                "%SET-VECTOR-RAW-BITS"
1555                "%SET-SAP-REF-16" "%SET-SAP-REF-32" "%SET-SAP-REF-64"
1556                "%SET-SAP-REF-WORD" "%SET-SAP-REF-8" "%SET-SAP-REF-DOUBLE"
1557                "%SET-SAP-REF-LISPOBJ" "%SET-SAP-REF-LONG" "%SET-SAP-REF-SAP"
1558                "%SET-SAP-REF-SINGLE" "%SET-SIGNED-SAP-REF-16"
1559                "%SET-SIGNED-SAP-REF-32" "%SET-SIGNED-SAP-REF-64"
1560                "%SET-SIGNED-SAP-REF-WORD"
1561                "%SET-SIGNED-SAP-REF-8" "%SET-STACK-REF"
1562                "%SET-SYMBOL-HASH"
1563                "%SIN" "%SIN-QUICK" "%SINGLE-FLOAT"
1564                "%SINH" "%SQRT" "%SXHASH-SIMPLE-STRING"
1565                #!+sb-simd-pack("%SIMD-PACK-TAG"
1566                                "%SIMD-PACK-LOW"
1567                                "%SIMD-PACK-HIGH")
1568                "%SXHASH-SIMPLE-SUBSTRING" "%TAN" "%TAN-QUICK" "%TANH"
1569                "%UNARY-ROUND"
1570                "%UNARY-TRUNCATE"
1571                "%UNARY-TRUNCATE/SINGLE-FLOAT"
1572                "%UNARY-TRUNCATE/DOUBLE-FLOAT"
1573                "%UNARY-FTRUNCATE"
1574                "%WITH-ARRAY-DATA"
1575                "%WITH-ARRAY-DATA/FP"
1576                "%WITH-ARRAY-DATA-MACRO"
1577                "*APPROXIMATE-NUMERIC-UNIONS*"
1578                "*CURRENT-LEVEL-IN-PRINT*"
1579                "*EMPTY-TYPE*"
1580                "*EVAL-CALLS*"
1581                "*GC-INHIBIT*" "*GC-PENDING*"
1582                #!+sb-thread "*STOP-FOR-GC-PENDING*"
1583                "*UNIVERSAL-TYPE*"
1584                "*UNIVERSAL-FUN-TYPE*" "*UNPARSE-FUN-TYPE-SIMPLIFY*"
1585                "*WILD-TYPE*" "WORD-LOGICAL-AND" "WORD-LOGICAL-ANDC1"
1586                "WORD-LOGICAL-ANDC2" "WORD-LOGICAL-EQV"
1587                "WORD-LOGICAL-NAND" "WORD-LOGICAL-NOR" "WORD-LOGICAL-NOT"
1588                "WORD-LOGICAL-OR" "WORD-LOGICAL-ORC1" "WORD-LOGICAL-ORC2"
1589                "WORD-LOGICAL-XOR"
1590                "ALLOW-NON-RETURNING-TAIL-CALL"
1591                "ALIEN-TYPE-TYPE" "ALIEN-TYPE-TYPE-ALIEN-TYPE" "ALIEN-TYPE-TYPE-P"
1592                "ALLOCATE-VECTOR" "ALLOCATE-STATIC-VECTOR"
1593                "ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
1594                "PROGRAM-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
1595                "DISABLED-PACKAGE-LOCKS"
1596                "WITH-SINGLE-PACKAGE-LOCKED-ERROR"
1597                "ALWAYS-SUBTYPEP"
1598                "ARGS-TYPE" "ARGS-TYPE-ALLOWP" "ARGS-TYPE-KEYP"
1599                "ARGS-TYPE-KEYWORDS" "ARGS-TYPE-OPTIONAL" "ARGS-TYPE-P"
1600                "ARGS-TYPE-REQUIRED" "ARGS-TYPE-REST" "ARRAY-HEADER-P"
1601                "ARRAY-TYPE" "ARRAY-TYPE-COMPLEXP"
1602                "ARRAY-TYPE-DIMENSIONS" "ARRAY-TYPE-ELEMENT-TYPE"
1603                "ARRAY-TYPE-P" "ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE"
1604                "ARRAY-UNDERLYING-WIDETAG"
1605                "ASSERT-ERROR"
1606                #!+sb-unicode "BASE-CHAR-P"
1607                "BASE-STRING-P"
1608                "BIND" "BINDING-STACK-POINTER-SAP" "BIT-INDEX" "BIT-LENGTH"
1609                "BOGUS-ARG-TO-VALUES-LIST-ERROR" "BOOLE-CODE"
1610                "BOUNDING-INDICES-BAD-ERROR" "BYTE-SPECIFIER" "%BYTE-BLT"
1611                "CALLABLE" "CASE-BODY-ERROR"
1612                "CHARACTER-SET" "CHARACTER-SET-TYPE"
1613                "CHARACTER-SET-TYPE-PAIRS"
1614                #!+sb-unicode "CHARACTER-STRING-P"
1615                "CHARPOS"
1616                "CHECK-FOR-CIRCULARITY" "CHECK-TYPE-ERROR" "CLOSED-FLAME"
1617                "CODE-COMPONENT" "CODE-COMPONENT-P"
1618                "CODE-HEADER-REF" "CODE-HEADER-SET" "CODE-INSTRUCTIONS"
1619                "CODE-N-UNBOXED-DATA-WORDS"
1620                "COERCE-SYMBOL-TO-FUN"
1621                "COERCE-TO-FUN" "COERCE-TO-LEXENV" "COERCE-TO-LIST"
1622                "COERCE-TO-VALUES" "COERCE-TO-VECTOR"
1623                "*COLD-INIT-COMPLETE-P*"
1624                "COMPLEX-DOUBLE-FLOAT" "COMPLEX-DOUBLE-FLOAT-P"
1625                "COMPLEX-FLOAT-P"
1626                #!+long-float ("COMPLEX-LONG-FLOAT" "COMPLEX-LONG-FLOAT-P")
1627                "COMPLEX-RATIONAL-P"
1628                "COMPLEX-SINGLE-FLOAT" "COMPLEX-SINGLE-FLOAT-P"
1629                "COMPLEX-VECTOR-P" "COMPOUND-TYPE" "COMPOUND-TYPE-P"
1630                "COMPOUND-TYPE-TYPES" "CONS-TYPE" "CONS-TYPE-CAR-TYPE"
1631                "CONS-TYPE-CDR-TYPE" "CONS-TYPE-P" "CONSED-SEQUENCE"
1632                "CONSTANT" "CONSTANT-TYPE" "CONSTANT-TYPE-P"
1633                "CONSTANT-TYPE-TYPE" "CONTAINING-INTEGER-TYPE"
1634                "CONTROL-STACK-POINTER-SAP" "COPY-BYTE-VECTOR-TO-SYSTEM-AREA"
1635                "CSUBTYPEP" "CTYPE" "TYPE-HASH-VALUE" "CTYPE-OF"
1636                "CTYPE-P" "CTYPEP"
1637                "CTYPE-ARRAY-DIMENSIONS" "CTYPE-ARRAY-SPECIALIZED-ELEMENT-TYPES"
1638                "CURRENT-FP" "CURRENT-SP" "CURRENT-DYNAMIC-SPACE-START"
1639                "DATA-NIL-VECTOR-REF"
1640                "DATA-VECTOR-REF" "DATA-VECTOR-REF-WITH-OFFSET"
1641                "DATA-VECTOR-SET" "DATA-VECTOR-SET-WITH-OFFSET"
1642                "DECLARATION-TYPE-CONFLICT-ERROR"
1643                "DECODE-DOUBLE-FLOAT"
1644                #!+long-float "DECODE-LONG-FLOAT"
1645                "DECODE-SINGLE-FLOAT"
1646                "DEFINE-STRUCTURE-SLOT-ADDRESSOR"
1647                "DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P"
1648                "!DEFSTRUCT-WITH-ALTERNATE-METACLASS" "DESCEND-INTO"
1649                "DIVISION-BY-ZERO-ERROR"
1650                "DO-REST-ARG"
1651                "DO-INSTANCE-TAGGED-SLOT"
1652                "DOUBLE-FLOAT-EXPONENT"
1653                "DOUBLE-FLOAT-HIGH-BITS" "DOUBLE-FLOAT-INT-EXPONENT"
1654                "DOUBLE-FLOAT-LOW-BITS" "DOUBLE-FLOAT-SIGNIFICAND"
1655                "DYNBIND"
1656                "FLOAT-WAIT" "DYNAMIC-SPACE-FREE-POINTER" "DYNAMIC-USAGE"
1657                "EFFECTIVE-FIND-POSITION-TEST"
1658                "EFFECTIVE-FIND-POSITION-KEY"
1659                "ENSURE-SYMBOL-HASH"
1660                "ENSURE-SYMBOL-TLS-INDEX"
1661                "ERROR-NUMBER-OR-LOSE"
1662                "EXTENDED-CHAR-P" "EXTERNAL-FORMAT-DESIGNATOR"
1663                "FAST-&REST-NTH"
1664                "FDOCUMENTATION" "FILENAME"
1665                "FILL-ARRAY"
1666                "FILL-DATA-VECTOR"
1667                "FIND-AND-INIT-OR-CHECK-LAYOUT"
1668                "FIND-DEFSTRUCT-DESCRIPTION"
1669                "FIND-OR-CREATE-FDEFN"
1670                "FLOAT-EXPONENT"
1671                "FLOAT-FORMAT-DIGITS" "FLOAT-FORMAT-NAME"
1672                "FLOAT-FORMAT-MAX" "FLOAT-INT-EXPONENT"
1673                "FLOATING-POINT-EXCEPTION" "FORM" "FORMAT-CONTROL"
1674                "*FREE-INTERRUPT-CONTEXT-INDEX*" "FUNCALLABLE-INSTANCE-P"
1675                "FUN-CODE-HEADER" "FUN-TYPE" "FUN-TYPE-ALLOWP"
1676                "FUN-TYPE-KEYP" "FUN-TYPE-KEYWORDS" "FUN-TYPE-NARGS"
1677                "FUN-TYPE-OPTIONAL" "FUN-TYPE-P" "FUN-TYPE-REQUIRED"
1678                "FUN-TYPE-REST" "FUN-TYPE-RETURNS" "FUN-TYPE-WILD-ARGS"
1679                "FUN-WORD-OFFSET" "GENERALIZED-BOOLEAN"
1680                "GENERIC-ABSTRACT-TYPE-FUNCTION"
1681                "GET-CLOSURE-LENGTH" "GET-HEADER-DATA"
1682                "GET-LISP-OBJ-ADDRESS" "LOWTAG-OF" "WIDETAG-OF"
1683                "HAIRY-DATA-VECTOR-REF"
1684                "HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS"  "HAIRY-DATA-VECTOR-SET"
1685                "HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS"
1686                "HAIRY-TYPE" "HAIRY-TYPE-P" "HAIRY-TYPE-SPECIFIER"
1687                "HANDLE-CIRCULARITY" "HOST" "IGNORE-IT" "ILL-BIN"
1688                "ILL-BOUT" "ILL-IN" "ILL-OUT" "INDEX-OR-MINUS-1"
1689                "INDEX-TOO-LARGE-ERROR" "*!INITIAL-ASSEMBLER-ROUTINES*"
1690                "*!INITIAL-DEBUG-SOURCES*"
1691                "*!INITIAL-FDEFN-OBJECTS*" "*!INITIAL-FOREIGN-SYMBOLS*"
1692                "*!INITIAL-LAYOUTS*" "*!INITIAL-SYMBOLS*"
1693                "INTEGER-DECODE-DOUBLE-FLOAT"
1694                #!+long-float "INTEGER-DECODE-LONG-FLOAT"
1695                "INTEGER-DECODE-SINGLE-FLOAT" "INTERNAL-ERROR"
1696                #!+win32 "HANDLE-WIN32-EXCEPTION"
1697                "INTERNAL-TIME" "INTERNAL-SECONDS"
1698                "INTERSECTION-TYPE" "INTERSECTION-TYPE-P"
1699                "INTERSECTION-TYPE-TYPES" "INVALID-ARG-COUNT-ERROR"
1700                "INVALID-UNWIND-ERROR"
1701                "IRRATIONAL" "JUST-DUMP-IT-NORMALLY" "KEY-INFO"
1702                "KEY-INFO-NAME" "KEY-INFO-P" "KEY-INFO-TYPE"
1703                "LAYOUT-DEPTHOID" "LAYOUT-EQUALP-TESTS" "LAYOUT-INVALID-ERROR"
1704                "LAYOUT-BITMAP"
1705                "LAYOUT-FOR-STD-CLASS-P"
1706                "LAYOUT-SLOT-LIST" "LAYOUT-SLOT-TABLE"
1707                #!+(or x86-64 x86) "%LEA"
1708                "LEXENV" "LEXENV-DESIGNATOR" "LINE-LENGTH"
1709                "LIST-ABSTRACT-TYPE-FUNCTION"
1710                "LIST-COPY-SEQ*"
1711                "LIST-FILL*"
1712                "LIST-SUBSEQ*"
1713                "ANSI-STREAM"
1714                "ANSI-STREAM-BIN" "ANSI-STREAM-BOUT" "ANSI-STREAM-CLOSE"
1715                "ANSI-STREAM-ELEMENT-TYPE"
1716                "ANSI-STREAM-FILE-POSITION"
1717                "ANSI-STREAM-IN"
1718                "ANSI-STREAM-IN-BUFFER" "ANSI-STREAM-IN-INDEX"
1719                "ANSI-STREAM-INPUT-STREAM-P" "ANSI-STREAM-MISC"
1720                "ANSI-STREAM-N-BIN" "ANSI-STREAM-OPEN-STREAM-P"
1721                "ANSI-STREAM-OUT" "ANSI-STREAM-SOUT"
1722                "ANSI-STREAM-OUTPUT-STREAM-P"
1723                "COMPLEX-VECTOR"
1724                "LIST-TO-VECTOR*"
1725                "LOGICAL-HOST" "LOGICAL-HOST-DESIGNATOR"
1726                #!+long-float ("LONG-FLOAT-EXPONENT" "LONG-FLOAT-EXP-BITS"
1727                               "LONG-FLOAT-HIGH-BITS""LONG-FLOAT-LOW-BITS"
1728                               "LONG-FLOAT-MID-BITS")
1729                "LRA" "LRA-CODE-HEADER" "LRA-P"
1730                "MAKE-ALIEN-TYPE-TYPE"
1731                "MAKE-ARRAY-HEADER" "MAKE-ARRAY-TYPE" "MAKE-CONS-TYPE"
1732                "MAKE-DOUBLE-FLOAT" "MAKE-FUN-TYPE" "MAKE-KEY-INFO"
1733                "MAKE-LISP-OBJ"
1734                #!+long-float "MAKE-LONG-FLOAT"
1735                "MAKE-MEMBER-TYPE" "MAKE-NAMED-TYPE" "MAKE-NULL-LEXENV"
1736                "MAKE-EQL-TYPE" "MEMBER-TYPE-FROM-LIST"
1737                "MAKE-NEGATION-TYPE"
1738                "MAKE-NUMERIC-TYPE"
1739                "MAKE-SINGLE-FLOAT"
1740                "MAKE-UNPORTABLE-FLOAT"
1741                "MAKE-SHORT-VALUES-TYPE" "MAKE-SINGLE-VALUE-TYPE"
1742                "MAKE-VALUE-CELL" "MAKE-VALUES-TYPE"
1743                "MAPC-MEMBER-TYPE-MEMBERS" "MAPCAR-MEMBER-TYPE-MEMBERS"
1744                "MEMBER-TYPE" "MEMBER-TYPE-MEMBERS" "MEMBER-TYPE-P"
1745                "MEMBER-TYPE-SIZE"
1746                "MODIFIED-NUMERIC-TYPE"
1747                "MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM"
1748                "MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM"
1749                "MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM"
1750                "MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM"
1751                "NAMED-TYPE" "NAMED-TYPE-NAME" "NAMED-TYPE-P"
1752                "NEGATE" "NEGATION-TYPE" "NEGATION-TYPE-TYPE"
1753                "NIL-ARRAY-ACCESSED-ERROR"
1754                "NIL-FUN-RETURNED-ERROR"
1755                "NUMERIC-CONTAGION" "NUMERIC-TYPE"
1756                "NUMERIC-TYPE-CLASS" "NUMERIC-TYPE-COMPLEXP"
1757                "NUMERIC-TYPE-EQUAL" "NUMERIC-TYPE-FORMAT"
1758                "NUMERIC-TYPE-HIGH" "NUMERIC-TYPE-LOW" "NUMERIC-TYPE-P"
1759                "OBJECT-NOT-ARRAY-ERROR" "OBJECT-NOT-CHARACTER-ERROR"
1760                "OBJECT-NOT-BASE-STRING-ERROR" "OBJECT-NOT-BIGNUM-ERROR"
1761                "OBJECT-NOT-BIT-VECTOR-ERROR"
1762                #!+sb-unicode "OBJECT-NOT-CHARACTER-STRING-ERROR"
1763                "OBJECT-NOT-COMPLEX-ERROR"
1764                "OBJECT-NOT-COMPLEX-FLOAT-ERROR"
1765                "OBJECT-NOT-COMPLEX-SINGLE-FLOAT-ERROR"
1766                #!+long-float "OBJECT-NOT-COMPLEX-LONG-FLOAT-ERROR"
1767                "OBJECT-NOT-COMPLEX-DOUBLE-FLOAT-ERROR"
1768                "OBJECT-NOT-COMPLEX-RATIONAL-ERROR"
1769                ;; FIXME: It's confusing using "complex" to mean both
1770                ;; "not on the real number line" and "not of a
1771                ;; SIMPLE-ARRAY nature". Perhaps we could rename all the
1772                ;; uses in the second sense as "hairy" instead?
1773                "OBJECT-NOT-COMPLEX-VECTOR-ERROR" "OBJECT-NOT-CONS-ERROR"
1774                "OBJECT-NOT-DOUBLE-FLOAT-ERROR" "OBJECT-NOT-FIXNUM-ERROR"
1775                "OBJECT-NOT-FLOAT-ERROR" "OBJECT-NOT-FUNCTION-ERROR"
1776                "OBJECT-NOT-INSTANCE-ERROR" "OBJECT-NOT-INTEGER-ERROR"
1777                "OBJECT-NOT-LIST-ERROR"
1778                #!+long-float "OBJECT-NOT-LONG-FLOAT-ERROR"
1779                "OBJECT-NOT-NUMBER-ERROR" "OBJECT-NOT-RATIO-ERROR"
1780                "OBJECT-NOT-RATIONAL-ERROR" "OBJECT-NOT-REAL-ERROR"
1781                "OBJECT-NOT-SAP-ERROR" "OBJECT-NOT-SIGNED-BYTE-32-ERROR"
1782                "OBJECT-NOT-SIGNED-BYTE-64-ERROR"
1783                "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-ERROR"
1784                #!+long-float
1785                "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-ERROR"
1786                #!+sb-simd-pack
1787                "OBJECT-NOT-SIMD-PACK-ERROR"
1788                "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-ERROR"
1789                "OBJECT-NOT-SIMPLE-ARRAY-DOUBLE-FLOAT-ERROR"
1790                "OBJECT-NOT-SIMPLE-ARRAY-ERROR"
1791                #!+long-float "OBJECT-NOT-SIMPLE-ARRAY-LONG-FLOAT-ERROR"
1792                "OBJECT-NOT-SIMPLE-ARRAY-NIL-ERROR"
1793                "OBJECT-NOT-SIMPLE-ARRAY-SINGLE-FLOAT-ERROR"
1794                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-15-ERROR"
1795                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-16-ERROR"
1796                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-2-ERROR"
1797                ;; KLUDGE: 32-bit and 64-bit ports implement a different
1798                ;; set of specialized array types.  Various bits of code
1799                ;; in SBCL assume that symbols connected to the
1800                ;; specialized array types are exported.  But there's not
1801                ;; a good way at this point to know whether the port for
1802                ;; which we're building is 32-bit or 64-bit.  Granted, we
1803                ;; could hardcode the particulars (or even come up with a
1804                ;; special :64BIT feature), but that seems a little
1805                ;; inelegant.  For now, we brute-force the issue by
1806                ;; always exporting all the names required for both
1807                ;; 32-bit and 64-bit ports.  Other bits connected to the
1808                ;; same issue are noted throughout the code below with
1809                ;; the tag "32/64-bit issues".  --njf, 2004-08-09
1810                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-FIXNUM-ERROR"
1811                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-31-ERROR"
1812                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-32-ERROR"
1813                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-4-ERROR"
1814                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-63-ERROR"
1815                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-64-ERROR"
1816                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-7-ERROR"
1817                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-8-ERROR"
1818                "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-16-ERROR"
1819                "OBJECT-NOT-SIMPLE-ARRAY-FIXNUM-ERROR"
1820                "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-32-ERROR"
1821                "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-64-ERROR"
1822                "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-8-ERROR"
1823                "OBJECT-NOT-SIMPLE-BIT-VECTOR-ERROR"
1824                "OBJECT-NOT-SIMPLE-BASE-STRING-ERROR"
1825                #!+sb-unicode "OBJECT-NOT-SIMPLE-CHARACTER-STRING-ERROR"
1826                "OBJECT-NOT-SIMPLE-STRING-ERROR"
1827                "OBJECT-NOT-SIMPLE-VECTOR-ERROR"
1828                "OBJECT-NOT-SINGLE-FLOAT-ERROR" "OBJECT-NOT-STRING-ERROR"
1829                "OBJECT-NOT-INSTANCE-ERROR" "OBJECT-NOT-SYMBOL-ERROR"
1830                "OBJECT-NOT-TYPE-ERROR"
1831                "OBJECT-NOT-UNSIGNED-BYTE-32-ERROR"
1832                "OBJECT-NOT-UNSIGNED-BYTE-64-ERROR"
1833                "OBJECT-NOT-VECTOR-ERROR"
1834                "OBJECT-NOT-VECTOR-NIL-ERROR"
1835                "OBJECT-NOT-WEAK-POINTER-ERROR"
1836                "ODD-KEY-ARGS-ERROR" "OUTPUT-OBJECT" "OUTPUT-UGLY-OBJECT"
1837                "PACKAGE-DESIGNATOR" "PACKAGE-DOC-STRING"
1838                "PACKAGE-HASHTABLE-SIZE" "PACKAGE-HASHTABLE-FREE"
1839                "PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"
1840                "PARSE-UNKNOWN-TYPE"
1841                "PARSE-UNKNOWN-TYPE-SPECIFIER" "PATHNAME-DESIGNATOR"
1842                "POINTER-HASH"
1843                #!+(or x86 x86-64) "*PSEUDO-ATOMIC-BITS*"
1844                "PUNT-PRINT-IF-TOO-LONG"
1845                "RANDOM-DOCUMENTATION"
1846                "RAW-INSTANCE-SLOTS-EQUALP"
1847                "READER-IMPOSSIBLE-NUMBER-ERROR"
1848                "READER-EOF-ERROR"
1849                "RESTART-DESIGNATOR"
1850                "RUN-PENDING-FINALIZERS"
1851                "SCALE-DOUBLE-FLOAT"
1852                #!+long-float "SCALE-LONG-FLOAT"
1853                "SCALE-SINGLE-FLOAT"
1854                "SCHWARTZIAN-STABLE-SORT-LIST"
1855                "SCRUB-POWER-CACHE"
1856                "SEQUENCEP" "SEQUENCE-COUNT" "SEQUENCE-END"
1857                "SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE"
1858                "SET-ARRAY-HEADER" "SET-HEADER-DATA" "SHIFT-TOWARDS-END"
1859                "SHIFT-TOWARDS-START" "SHRINK-VECTOR" "%SHRINK-VECTOR"
1860                "SIGNED-BYTE-32-P" "SIGNED-BYTE-64-P"
1861                "SIMPLE-RANK-1-ARRAY-*-P"
1862                "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-P"
1863                #!+long-float "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-P"
1864                "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-P"
1865                "SIMPLE-ARRAY-DOUBLE-FLOAT-P"
1866                #!+long-float "SIMPLE-ARRAY-LONG-FLOAT-P"
1867                "SIMPLE-ARRAY-NIL-P" "SIMPLE-ARRAY-P"
1868                "SIMPLE-ARRAY-SINGLE-FLOAT-P"
1869                "SIMPLE-ARRAY-UNSIGNED-BYTE-15-P"
1870                "SIMPLE-ARRAY-UNSIGNED-BYTE-16-P"
1871                "SIMPLE-ARRAY-UNSIGNED-BYTE-2-P"
1872                "SIMPLE-ARRAY-UNSIGNED-FIXNUM-P"
1873                "SIMPLE-ARRAY-UNSIGNED-BYTE-31-P"
1874                "SIMPLE-ARRAY-UNSIGNED-BYTE-32-P"
1875                "SIMPLE-ARRAY-UNSIGNED-BYTE-4-P"
1876                "SIMPLE-ARRAY-UNSIGNED-BYTE-63-P"
1877                "SIMPLE-ARRAY-UNSIGNED-BYTE-64-P"
1878                "SIMPLE-ARRAY-UNSIGNED-BYTE-7-P"
1879                "SIMPLE-ARRAY-UNSIGNED-BYTE-8-P"
1880                "SIMPLE-ARRAY-SIGNED-BYTE-16-P"
1881                "SIMPLE-ARRAY-FIXNUM-P"
1882                "SIMPLE-ARRAY-SIGNED-BYTE-32-P"
1883                "SIMPLE-ARRAY-SIGNED-BYTE-64-P"
1884                "SIMPLE-ARRAY-SIGNED-BYTE-8-P" "SIMPLE-BASE-STRING-P"
1885                #!+sb-unicode "SIMPLE-CHARACTER-STRING-P"
1886                "SIMPLE-PACKAGE-ERROR" "SIMPLE-UNBOXED-ARRAY"
1887                "SINGLE-FLOAT-BITS" "SINGLE-FLOAT-EXPONENT"
1888                "SINGLE-FLOAT-INT-EXPONENT" "SINGLE-FLOAT-SIGNIFICAND"
1889                "SINGLE-VALUE-TYPE" "SINGLE-VALUE-SPECIFIER-TYPE"
1890                "SPECIFIER-TYPE"
1891                #!+sb-simd-pack("SIMD-PACK-SINGLE"
1892                                "SIMD-PACK-DOUBLE"
1893                                "SIMD-PACK-INT"
1894                                "SIMD-PACK-TYPE"
1895                                "SIMD-PACK-TYPE-ELEMENT-TYPE"
1896                                "*SIMD-PACK-ELEMENT-TYPES*")
1897                "STACK-REF" "STREAM-DESIGNATOR" "STRING-DESIGNATOR"
1898                "STRING-FILL*"
1899                "STRUCTURE-CTOR-LAMBDA-PARTS"
1900                "STRUCTURE-INSTANCE-ACCESSOR-P"
1901                "SUB-GC"
1902                "SYMBOL-TLS-INDEX"
1903                "SYMBOLS-DESIGNATOR"
1904                "%INSTANCE-LENGTH"
1905                "%INSTANCE-REF"
1906                "%INSTANCE-SET"
1907                "TESTABLE-TYPE-P"
1908                "TLS-EXHAUSTED-ERROR"
1909                "TWO-ARG-*" "TWO-ARG-+" "TWO-ARG--" "TWO-ARG-/"
1910                "TWO-ARG-/=" "TWO-ARG-<" "TWO-ARG-<=" "TWO-ARG-="
1911                "TWO-ARG->" "TWO-ARG->=" "TWO-ARG-AND" "TWO-ARG-EQV"
1912                "TWO-ARG-GCD" "TWO-ARG-IOR" "TWO-ARG-LCM" "TWO-ARG-XOR"
1913                "TYPE-*-TO-T"
1914                "TYPE-DIFFERENCE" "TYPE-INTERSECTION"
1915                "TYPE-INTERSECTION2" "TYPE-APPROX-INTERSECTION2"
1916                "TYPE-SINGLETON-P"
1917                "TYPE-SINGLE-VALUE-P" "TYPE-SPECIFIER" "TYPE-UNION"
1918                "TYPE/=" "TYPE=" "TYPES-EQUAL-OR-INTERSECT"
1919                "TYPE-OR-NIL-IF-UNKNOWN"
1920                "UNBOUND-SYMBOL-ERROR" "UNBOXED-ARRAY"
1921                "UNDEFINED-FUN-ERROR" "UNDEFINED-ALIEN-FUN-ERROR"
1922                "UNION-TYPE" "UNION-TYPE-P"
1923                "UNION-TYPE-TYPES" "UNKNOWN-ERROR"
1924                "UNKNOWN-KEY-ARG-ERROR" "UNKNOWN-TYPE" "UNKNOWN-TYPE-P"
1925                "UNKNOWN-TYPE-SPECIFIER" "UNSEEN-THROW-TAG-ERROR"
1926                "UNSIGNED-BYTE-32-P" "UNSIGNED-BYTE-64-P"
1927                "UPDATE-OBJECT-LAYOUT-OR-INVALID"
1928                "VALID-MACROEXPAND-HOOK"
1929                "VALUE-CELL-REF" "VALUE-CELL-SET" "VALUES-SPECIFIER-TYPE"
1930                "VALUES-SPECIFIER-TYPE-CACHE-CLEAR" "VALUES-SUBTYPEP"
1931                "VALUES-TYPE" "VALUES-TYPE-IN"
1932                "VALUES-TYPE-INTERSECTION"
1933                "VALUES-TYPE-MIN-VALUE-COUNT" "VALUES-TYPE-MAX-VALUE-COUNT"
1934                "VALUES-TYPE-MAY-BE-SINGLE-VALUE-P" "VALUES-TYPE-OPTIONAL"
1935                "VALUES-TYPE-OUT" "VALUES-TYPE-P" "VALUES-TYPE-REQUIRED"
1936                "VALUES-TYPE-REST" "VALUES-TYPE-UNION"
1937                "VALUES-TYPE-TYPES" "VALUES-TYPES"
1938                "VALUES-TYPES-EQUAL-OR-INTERSECT"
1940                "*VECTOR-WITHOUT-COMPLEX-TYPECODE-INFOS*"
1941                "VECTOR-SINGLE-FLOAT-P" "VECTOR-DOUBLE-FLOAT-P"
1942                "VECTOR-UNSIGNED-BYTE-2-P" "VECTOR-UNSIGNED-BYTE-4-P"
1943                "VECTOR-UNSIGNED-BYTE-7-P" "VECTOR-UNSIGNED-BYTE-8-P"
1944                "VECTOR-UNSIGNED-BYTE-15-P" "VECTOR-UNSIGNED-BYTE-16-P"
1945                "VECTOR-UNSIGNED-BYTE-31-P" "VECTOR-UNSIGNED-BYTE-32-P"
1946                "VECTOR-UNSIGNED-BYTE-63-P" "VECTOR-UNSIGNED-BYTE-64-P"
1947                "VECTOR-SIGNED-BYTE-8-P" "VECTOR-SIGNED-BYTE-16-P"
1948                "VECTOR-FIXNUM-P" "VECTOR-SIGNED-BYTE-32-P"
1949                "VECTOR-SIGNED-BYTE-64-P" "VECTOR-COMPLEX-SINGLE-FLOAT-P"
1950                "VECTOR-COMPLEX-DOUBLE-FLOAT-P" "VECTOR-T-P"
1952                "VECTOR-NIL-P"
1953                "VECTOR-FILL*"
1954                "VECTOR-SUBSEQ*"
1955                "VECTOR-TO-VECTOR*"
1956                "VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH" "WITH-ARRAY-DATA"
1957                "WITH-CIRCULARITY-DETECTION"
1958                "WITH-WORLD-LOCK"
1960                ;; bit bash fillers
1961                "UB1-BASH-FILL" "SYSTEM-AREA-UB1-FILL"
1962                "UB2-BASH-FILL" "SYSTEM-AREA-UB2-FILL"
1963                "UB4-BASH-FILL" "SYSTEM-AREA-UB4-FILL"
1964                "UB8-BASH-FILL" "SYSTEM-AREA-UB8-FILL"
1965                "UB16-BASH-FILL" "SYSTEM-AREA-UB16-FILL"
1966                "UB32-BASH-FILL" "SYSTEM-AREA-UB32-FILL"
1967                "UB64-BASH-FILL" "SYSTEM-AREA-UB64-FILL"
1969                ;; bit bash copiers
1970                "UB1-BASH-COPY" "SYSTEM-AREA-UB1-COPY"
1971                "COPY-UB1-TO-SYSTEM-AREA" "COPY-UB1-FROM-SYSTEM-AREA"
1972                "UB2-BASH-COPY" "SYSTEM-AREA-UB2-COPY"
1973                "COPY-UB2-TO-SYSTEM-AREA" "COPY-UB2-FROM-SYSTEM-AREA"
1974                "UB4-BASH-COPY" "SYSTEM-AREA-UB4-COPY"
1975                "COPY-UB4-TO-SYSTEM-AREA" "COPY-UB4-FROM-SYSTEM-AREA"
1976                "UB8-BASH-COPY" "SYSTEM-AREA-UB8-COPY"
1977                "COPY-UB8-TO-SYSTEM-AREA" "COPY-UB8-FROM-SYSTEM-AREA"
1978                "UB16-BASH-COPY" "SYSTEM-AREA-UB16-COPY"
1979                "COPY-UB16-TO-SYSTEM-AREA" "COPY-UB16-FROM-SYSTEM-AREA"
1980                "UB32-BASH-COPY" "SYSTEM-AREA-UB32-COPY"
1981                "COPY-UB32-TO-SYSTEM-AREA" "COPY-UB32-FROM-SYSTEM-AREA"
1982                "UB64-BASH-COPY" "SYSTEM-AREA-UB64-COPY"
1983                "COPY-UB64-TO-SYSTEM-AREA" "COPY-UB64-FROM-SYSTEM-AREA"
1985                ;; Bit bashing position for bit-vectors
1986                "%BIT-POSITION"
1987                "%BIT-POSITION/0"
1988                "%BIT-POSITION/1"
1990                ;; SIMPLE-FUN type and accessors
1991                "SIMPLE-FUN"
1992                "SIMPLE-FUN-P"
1993                "%SIMPLE-FUN-ARGLIST"
1994                "%SIMPLE-FUN-DOC"
1995                "%SIMPLE-FUN-INFO"
1996                "%SIMPLE-FUN-NAME"
1997                "%SIMPLE-FUN-NEXT"
1998                "%SIMPLE-FUN-SELF"
1999                "%SIMPLE-FUN-TYPE"
2000                "%SIMPLE-FUN-XREFS"
2002                ;; CLOSURE type and accessors
2003                "CLOSURE"
2004                "CLOSUREP"
2005                "DO-CLOSURE-VALUES"
2006                "%CLOSURE-FUN"
2007                "%CLOSURE-INDEX-REF"
2008                "%CLOSURE-VALUES"
2010                ;; Abstract function accessors
2011                "%FUN-DOC"
2012                "%FUN-FUN"
2013                "%FUN-LAMBDA-LIST"
2014                "%FUN-NAME"
2016                "FDEFN" "MAKE-FDEFN" "FDEFN-P" "FDEFN-NAME" "FDEFN-FUN"
2017                "FDEFN-MAKUNBOUND"
2018                "%COERCE-CALLABLE-TO-FUN" "FUN-SUBTYPE"
2019                "*MAXIMUM-ERROR-DEPTH*" "%SET-SYMBOL-PLIST"
2020                "INFINITE-ERROR-PROTECT"
2021                "FIND-CALLER-OF-NAMED-FRAME"
2022                "FIND-CALLER-FRAME"
2023                "FIND-INTERRUPTED-FRAME"
2024                "%SET-SYMBOL-VALUE" "%SET-SYMBOL-GLOBAL-VALUE" "%SET-SYMBOL-PACKAGE"
2025                "SET-SYMBOL-GLOBAL-VALUE"
2026                "OUTPUT-SYMBOL-NAME" "%COERCE-NAME-TO-FUN"
2027                "DEFAULT-STRUCTURE-PRINT"
2028                "LAYOUT" "LAYOUT-LENGTH" "LAYOUT-PURE" "DSD-RAW-TYPE"
2029                "DEFSTRUCT-DESCRIPTION" "UNDECLARE-STRUCTURE"
2030                "UNDEFINE-FUN-NAME" "DD-TYPE" "CLASSOID-STATE" "INSTANCE"
2031                "*TYPE-SYSTEM-INITIALIZED*" "FIND-LAYOUT" "DSD-NAME"
2032                "%TYPEP" "%%TYPEP" "DD-NAME" "CLASSOID-SUBCLASSES"
2033                "CLASSOID-LAYOUT" "CLASSOID-NAME" "CLASSOID-P"
2034                "DD-RAW-LENGTH" "NOTE-NAME-DEFINED" "%CODE-CODE-SIZE"
2035                "DD-SLOTS" "DD-INCLUDE" "SLOT-SETTER-LAMBDA-FORM"
2036                "SLOT-ACCESS-TRANSFORM"
2037                "%IMAGPART" "DSD-ACCESSOR-NAME" "%CODE-DEBUG-INFO"
2038                "LAYOUT-CLASSOID" "LAYOUT-INVALID"
2039                "DSD-TYPE" "%INSTANCEP" "DEFSTRUCT-SLOT-DESCRIPTION"
2040                "DD-PREDICATE-NAME"
2041                "CLASSOID-PROPER-NAME" "%NOTE-TYPE-DEFINED" "LAYOUT-INFO"
2042                "%SET-INSTANCE-LAYOUT"
2043                "DD-CONSTRUCTORS" "DD-DEFAULT-CONSTRUCTOR"
2044                "LAYOUT-OF" "%REALPART"
2045                "STRUCTURE-CLASSOID-P" "DSD-INDEX" "STRUCTURE-CLASSOID"
2046                "%INSTANCE-LAYOUT" "LAYOUT-CLOS-HASH"
2047                "PROCLAIM-AS-FUN-NAME" "BECOME-DEFINED-FUN-NAME"
2048                "%NUMERATOR" "CLASSOID-TYPEP" "DSD-READ-ONLY"
2049                "DSD-DEFAULT" "LAYOUT-INHERITS" "DD-LENGTH"
2050                "%CODE-ENTRY-POINTS" "%DENOMINATOR"
2051                "%OTHER-POINTER-P"
2052                "%OTHER-POINTER-SUBTYPE-P"
2054                "STANDARD-CLASSOID" "CLASSOID-OF"
2055                "MAKE-STANDARD-CLASSOID"
2056                "CLASSOID-CELL-CLASSOID"
2057                "CLASSOID-CELL-NAME"
2058                "CLASSOID-CELL-PCL-CLASS"
2059                "CLASSOID-CELL-TYPEP"
2060                "%CLEAR-CLASSOID"
2061                "FIND-CLASSOID-CELL"
2062                "%RANDOM-DOUBLE-FLOAT"
2063                #!+long-float "%RANDOM-LONG-FLOAT"
2064                "%RANDOM-SINGLE-FLOAT" "STATIC-CLASSOID"
2065                "%FUNCALLABLE-INSTANCE-INFO" "RANDOM-CHUNK" "BIG-RANDOM-CHUNK"
2066                "N-RANDOM-CHUNK-BITS"
2067                "LAYOUT-CLOS-HASH-LIMIT"
2068                "BUILT-IN-CLASSOID-DIRECT-SUPERCLASSES"
2069                "BUILT-IN-CLASSOID-TRANSLATION" "RANDOM-LAYOUT-CLOS-HASH"
2070                "CLASSOID-PCL-CLASS" "FUNCALLABLE-STRUCTURE"
2071                "FUNCALLABLE-INSTANCE-FUN" "%FUNCALLABLE-INSTANCE-LAYOUT"
2072                "%SET-FUNCALLABLE-INSTANCE-LAYOUT"
2073                "REGISTER-LAYOUT"
2074                "FUNCALLABLE-INSTANCE"
2075                "MAKE-STATIC-CLASSOID"
2076                "%MAKE-SYMBOL"
2077                "%FUNCALLABLE-INSTANCE-FUNCTION" "SYMBOL-HASH"
2078                "SYMBOL-INFO" "SYMBOL-INFO-VECTOR"
2080                "EXTENDED-SEQUENCE" "*EXTENDED-SEQUENCE-TYPE*"
2081                "EXTENDED-SEQUENCE-P"
2083                "BUILT-IN-CLASSOID" "CONDITION-CLASSOID-P"
2084                "CONDITION-CLASSOID-SLOTS" "MAKE-UNDEFINED-CLASSOID"
2085                "FIND-CLASSOID" "CLASSOID" "CLASSOID-DIRECT-SUPERCLASSES"
2086                "MAKE-LAYOUT" "REDEFINE-LAYOUT-WARNING"
2087                "INSURED-FIND-CLASSOID" "ORDER-LAYOUT-INHERITS"
2088                "STD-COMPUTE-CLASS-PRECEDENCE-LIST"
2090                ;; symbols from former SB!CONDITIONS
2091                "*HANDLER-CLUSTERS*" "*RESTART-CLUSTERS*"
2093                "CASE-FAILURE" "ECASE-FAILURE" "ETYPECASE-FAILURE"
2094                "NAMESTRING-PARSE-ERROR"
2095                "NAMESTRING-PARSE-ERROR-OFFSET"
2096                "MAKE-RESTART" "RESTART-ASSOCIATED-CONDITIONS"
2097                "COERCE-TO-CONDITION"
2099                "ALLOCATE-CONDITION"
2101                "CONDITION-READER-FUNCTION"
2102                "CONDITION-WRITER-FUNCTION"
2104                "CONDITION-SLOT-ALLOCATION"
2105                "CONDITION-SLOT-DOCUMENTATION"
2106                "CONDITION-SLOT-INITARGS"
2107                "CONDITION-SLOT-INITFORM"
2108                "CONDITION-SLOT-INITFORM-P"
2109                "CONDITION-SLOT-INITFUNCTION"
2110                "CONDITION-SLOT-NAME" "CONDITION-SLOT-READERS"
2111                "CONDITION-SLOT-WRITERS"
2113                "REDEFINITION-WARNING"
2114                "REDEFINITION-WITH-DEFUN"
2115                "REDEFINITION-WITH-DEFMACRO"
2116                "REDEFINITION-WITH-DEFGENERIC"
2117                "REDEFINITION-WITH-DEFMETHOD"
2118                "UNINTERESTING-ORDINARY-FUNCTION-REDEFINITION-P"
2119                "UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P"
2120                "UNINTERESTING-METHOD-REDEFINITION-P"
2121                "UNINTERESTING-REDEFINITION"
2122                "REDEFINITION-WITH-DEFTRANSFORM"
2124                "DUBIOUS-ASTERISKS-AROUND-VARIABLE-NAME"
2125                "ASTERISKS-AROUND-LEXICAL-VARIABLE-NAME"
2126                "ASTERISKS-AROUND-CONSTANT-VARIABLE-NAME"
2127                "UNDEFINED-ALIEN-STYLE-WARNING"
2128                #!+(or sb-eval sb-fasteval)
2129                "LEXICAL-ENVIRONMENT-TOO-COMPLEX"
2130                "CHARACTER-DECODING-ERROR-IN-COMMENT"
2131                "DEPRECATED-EVAL-WHEN-SITUATIONS"
2132                "PROCLAMATION-MISMATCH"
2133                "PROCLAMATION-MISMATCH-NAME"
2134                "PROCLAMATION-MISMATCH-NEW"
2135                "PROCLAMATION-MISMATCH-OLD"
2136                "TYPE-PROCLAMATION-MISMATCH"
2137                "TYPE-PROCLAMATION-MISMATCH-WARNING"
2138                "TYPE-PROCLAMATION-MISMATCH-WARN"
2139                "FTYPE-PROCLAMATION-MISMATCH"
2140                "FTYPE-PROCLAMATION-MISMATCH-WARNING"
2141                "FTYPE-PROCLAMATION-MISMATCH-WARN"
2142                "FTYPE-PROCLAMATION-MISMATCH-ERROR"
2144                "!COLD-INIT" "!UNINTERN-INIT-ONLY-STUFF"
2145                "!GLOBALDB-COLD-INIT"
2146                "!FOREIGN-COLD-INIT"
2147                "!TYPE-CLASS-COLD-INIT" "!TYPEDEFS-COLD-INIT"
2148                "!ALIEN-TYPE-COLD-INIT" "!CLASSES-COLD-INIT"
2149                "!DEADLINE-COLD-INIT"
2150                "!EARLY-TYPE-COLD-INIT" "!LATE-TYPE-COLD-INIT"
2151                "!FIXUP-TYPE-COLD-INIT" "!TARGET-TYPE-COLD-INIT"
2152                "!RANDOM-COLD-INIT" "!READER-COLD-INIT"
2153                "!PATHNAME-COLD-INIT" "!DEBUG-INFO-COLD-INIT"
2154                "!TYPECHECKFUNS-COLD-INIT" "!LOADER-COLD-INIT"
2155                "!EXHAUST-COLD-INIT" "!PACKAGE-COLD-INIT"
2156                "!POLICY-COLD-INIT-OR-RESANIFY"
2157                "!VM-TYPE-COLD-INIT" "!BACKQ-COLD-INIT"
2158                "!SHARPM-COLD-INIT" "!EARLY-PROCLAIM-COLD-INIT"
2159                "!LATE-PROCLAIM-COLD-INIT" "!CLASS-FINALIZE"
2160                "!CONSTANTP-COLD-INIT" "!CONSTANTP2-COLD-INIT"
2161                "!WORLD-LOCK-COLD-INIT"
2162                "!SPECIFIER-TYPE"
2164                "FLOAT-COLD-INIT-OR-REINIT"
2165                "GC-REINIT"
2166                "TIME-REINIT"
2167                "SIGNAL-COLD-INIT-OR-REINIT"
2168                "STREAM-COLD-INIT-OR-RESET"
2170                ;; Cleanups to run before saving a core
2171                "FLOAT-DEINIT"
2172                "FOREIGN-DEINIT"
2173                "PROFILE-DEINIT"
2175                ;; Note: These are out of lexicographical order
2176                ;; because in CMU CL they were defined as
2177                ;; internal symbols in package "CL" imported
2178                ;; into package "C", as opposed to what we're
2179                ;; doing here, defining them as external symbols
2180                ;; in a package which is used by both "SB!C" and
2181                ;; "SB!IMPL". (SBCL's "SB!C" is directly
2182                ;; analogous to CMU CL's "C"; and for this
2183                ;; purpose, SBCL's "SB!IMPL" is analogous to CMU
2184                ;; CL's "CL".) As far as I know there's nothing
2185                ;; special about them, so they could be merged
2186                ;; into the same order as everything else in the
2187                ;; in this package. -- WHN 19990911
2188                "STRING>=*" "STRING>*" "STRING=*" "STRING<=*"
2189                "STRING<*" "STRING/=*" "%SVSET"
2190                "%SP-STRING-COMPARE" "%SETNTH" "%SETELT"
2191                "%SET-ROW-MAJOR-AREF" "%SET-FILL-POINTER"
2192                "%SET-FDEFINITION" "%SCHARSET"
2193                "%RPLACD" "%RPLACA" "%PUT" "%CHARSET"
2194                "WITH-SIMPLE-OUTPUT-TO-STRING"))
2196    #s(sb-cold:package-data
2197       :name "SB!THREAD"
2198       :use ("CL" "SB!ALIEN" "SB!INT" "SB!SYS" "SB!KERNEL")
2199       :doc "public (but low-level): native thread support"
2200       :export ("*CURRENT-THREAD*"
2201                "DESTROY-THREAD"
2202                "INTERRUPT-THREAD"
2203                "INTERRUPT-THREAD-ERROR"
2204                "INTERRUPT-THREAD-ERROR-THREAD"
2205                "RETURN-FROM-THREAD"
2206                "ABORT-THREAD"
2207                "MAIN-THREAD-P"
2208                "MAIN-THREAD"
2209                "JOIN-THREAD"
2210                "JOIN-THREAD-ERROR"
2211                "JOIN-THREAD-ERROR-THREAD"
2212                "JOIN-THREAD-ERROR-PROBLEM"
2213                "LIST-ALL-THREADS"
2214                "MAKE-THREAD"
2215                "SYMBOL-VALUE-IN-THREAD"
2216                "SYMBOL-VALUE-IN-THREAD-ERROR"
2217                "TERMINATE-THREAD"
2218                "THREAD"
2219                "THREAD-DEADLOCK"
2220                "THREAD-DEADLOCK-CYCLE"
2221                "THREAD-ERROR"
2222                "THREAD-ERROR-THREAD"
2223                "THREAD-ALIVE-P"
2224                "THREAD-EPHEMERAL-P"
2225                "THREAD-NAME"
2226                "THREAD-YIELD"
2227                "FOREIGN-THREAD"
2228                #!+(and sb-safepoint-strictly (not win32))
2229                "SIGNAL-HANDLING-THREAD"
2230                ;; Memory barrier
2231                "BARRIER"
2232                ;; Mutexes
2233                "GET-MUTEX"
2234                "GRAB-MUTEX"
2235                "HOLDING-MUTEX-P"
2236                "MAKE-MUTEX"
2237                "MUTEX"
2238                "MUTEX-NAME"
2239                "MUTEX-OWNER"
2240                "MUTEX-VALUE"
2241                "RELEASE-MUTEX"
2242                "WITH-MUTEX"
2243                "WITH-RECURSIVE-LOCK"
2244                ;; Condition variables
2245                "CONDITION-BROADCAST"
2246                "CONDITION-NOTIFY"
2247                "CONDITION-WAIT"
2248                "MAKE-WAITQUEUE"
2249                "WAITQUEUE"
2250                "WAITQUEUE-NAME"
2251                ;; Sessions
2252                "MAKE-LISTENER-THREAD"
2253                "RELEASE-FOREGROUND"
2254                "WITH-NEW-SESSION"
2255                ;; Semaphores
2256                "MAKE-SEMAPHORE"
2257                "SEMAPHORE"
2258                "SEMAPHORE-NAME"
2259                "SEMAPHORE-COUNT"
2260                "SIGNAL-SEMAPHORE"
2261                "TRY-SEMAPHORE"
2262                "WAIT-ON-SEMAPHORE"
2263                ;; Semaphore notification objects
2264                "CLEAR-SEMAPHORE-NOTIFICATION"
2265                "MAKE-SEMAPHORE-NOTIFICATION"
2266                "SEMAPHORE-NOTIFICATION"
2267                "SEMAPHORE-NOTIFICATION-STATUS"))
2269    #s(sb-cold:package-data
2270       :name "SB!LOOP"
2271       :doc "private: implementation details of LOOP"
2272       :use ("CL")
2273       :export ())
2275    #s(sb-cold:package-data
2276       :name "SB!MOP"
2277       :doc
2278       "public: the MetaObject Protocol interface, as defined by
2279 The Art of the Metaobject Protocol, by Kiczales, des Rivieres and Bobrow:
2280 ISBN 0-262-61074-4, with exceptions as noted in the User Manual."
2281       :use ("CL")
2282       :reexport ("ADD-METHOD"
2283                  "ALLOCATE-INSTANCE"
2284                  "CLASS-NAME" "COMPUTE-APPLICABLE-METHODS"
2285                  "ENSURE-GENERIC-FUNCTION" "MAKE-INSTANCE"
2286                  "METHOD-QUALIFIERS" "REMOVE-METHOD"
2287                  "BUILT-IN-CLASS" "CLASS"
2288                  "FUNCTION" "GENERIC-FUNCTION"
2289                  "METHOD" "METHOD-COMBINATION"
2290                  "STANDARD-CLASS" "STANDARD-GENERIC-FUNCTION"
2291                  "STANDARD-METHOD" "STANDARD-OBJECT" "T")
2292       :export ("ADD-DEPENDENT"
2293                "ADD-DIRECT-METHOD"
2294                "ADD-DIRECT-SUBCLASS"
2295                "CLASS-DEFAULT-INITARGS"
2296                "CLASS-DIRECT-DEFAULT-INITARGS"
2297                "CLASS-DIRECT-SLOTS"
2298                "CLASS-DIRECT-SUBCLASSES"
2299                "CLASS-DIRECT-SUPERCLASSES"
2300                "CLASS-FINALIZED-P"
2301                "CLASS-PRECEDENCE-LIST"
2302                "CLASS-PROTOTYPE"
2303                "CLASS-SLOTS"
2304                "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
2305                "COMPUTE-CLASS-PRECEDENCE-LIST"
2306                "COMPUTE-DEFAULT-INITARGS"
2307                "COMPUTE-DISCRIMINATING-FUNCTION"
2308                "COMPUTE-EFFECTIVE-METHOD"
2309                "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
2310                "COMPUTE-SLOTS"
2311                "DIRECT-SLOT-DEFINITION"
2312                "DIRECT-SLOT-DEFINITION-CLASS"
2313                "EFFECTIVE-SLOT-DEFINITION"
2314                "EFFECTIVE-SLOT-DEFINITION-CLASS"
2315                "ENSURE-CLASS"
2316                "ENSURE-CLASS-USING-CLASS"
2317                "ENSURE-GENERIC-FUNCTION-USING-CLASS"
2318                "EQL-SPECIALIZER"
2319                "EQL-SPECIALIZER-OBJECT"
2320                "EXTRACT-LAMBDA-LIST"
2321                "EXTRACT-SPECIALIZER-NAMES"
2322                "FINALIZE-INHERITANCE"
2323                "FIND-METHOD-COMBINATION"
2324                "FORWARD-REFERENCED-CLASS"
2325                "FUNCALLABLE-STANDARD-CLASS"
2326                "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
2327                "FUNCALLABLE-STANDARD-OBJECT"
2328                "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
2329                "GENERIC-FUNCTION-DECLARATIONS"
2330                "GENERIC-FUNCTION-LAMBDA-LIST"
2331                "GENERIC-FUNCTION-METHOD-CLASS"
2332                "GENERIC-FUNCTION-METHOD-COMBINATION"
2333                "GENERIC-FUNCTION-METHODS"
2334                "GENERIC-FUNCTION-NAME"
2335                "INTERN-EQL-SPECIALIZER"
2336                "MAKE-METHOD-LAMBDA"
2337                "MAP-DEPENDENTS"
2338                "METAOBJECT"
2339                "METHOD-FUNCTION"
2340                "METHOD-GENERIC-FUNCTION"
2341                "METHOD-LAMBDA-LIST"
2342                "METHOD-SPECIALIZERS"
2343                "ACCESSOR-METHOD-SLOT-DEFINITION"
2344                "READER-METHOD-CLASS"
2345                "REMOVE-DEPENDENT"
2346                "REMOVE-DIRECT-METHOD"
2347                "REMOVE-DIRECT-SUBCLASS"
2348                "SET-FUNCALLABLE-INSTANCE-FUNCTION"
2349                "SLOT-BOUNDP-USING-CLASS"
2350                "SLOT-DEFINITION"
2351                "SLOT-DEFINITION-ALLOCATION"
2352                "SLOT-DEFINITION-INITARGS"
2353                "SLOT-DEFINITION-INITFORM"
2354                "SLOT-DEFINITION-INITFUNCTION"
2355                "SLOT-DEFINITION-LOCATION"
2356                "SLOT-DEFINITION-NAME"
2357                "SLOT-DEFINITION-READERS"
2358                "SLOT-DEFINITION-WRITERS"
2359                "SLOT-DEFINITION-TYPE"
2360                "SLOT-MAKUNBOUND-USING-CLASS"
2361                "SLOT-VALUE-USING-CLASS"
2362                "SPECIALIZER"
2363                "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
2364                "SPECIALIZER-DIRECT-METHODS"
2365                "STANDARD-ACCESSOR-METHOD"
2366                "STANDARD-DIRECT-SLOT-DEFINITION"
2367                "STANDARD-EFFECTIVE-SLOT-DEFINITION"
2368                "STANDARD-INSTANCE-ACCESS"
2369                "STANDARD-READER-METHOD"
2370                "STANDARD-SLOT-DEFINITION"
2371                "STANDARD-WRITER-METHOD"
2372                "UPDATE-DEPENDENT"
2373                "VALIDATE-SUPERCLASS"
2374                "WRITER-METHOD-CLASS"))
2376    #s(sb-cold:package-data
2377       :name "SB!REGALLOC"
2378       :doc "private: implementation of the compiler's register allocator"
2379       :use ("CL" "SB!ALIEN-INTERNALS" "SB!ALIEN" "SB!ASSEM" "SB!BIGNUM"
2380                  #!+sb-dyncount "SB-DYNCOUNT" "SB!EXT" "SB!FASL" "SB!INT"
2381                  "SB!KERNEL" "SB!SYS"
2382                  "SB!C")
2383       :import-from (("SB!C"
2384                      "*LOOP-ANALYZE*"
2385                      "BLOCK-INFO" "BLOCK-LAST" "BLOCK-LOOP" "BLOCK-NEXT"
2386                      "CLEAR-BIT-VECTOR" "COMPONENT-HEAD" "COMPONENT-TAIL"
2387                      "DEFEVENT" "DELETE-VOP" "DO-IR2-BLOCKS" "DO-LIVE-TNS"
2388                      "EMIT-LOAD-TEMPLATE" "EVENT" "FIND-IN"
2389                      "FINITE-SB" "FINITE-SB-ALWAYS-LIVE"
2390                      "FINITE-SB-ALWAYS-LIVE-COUNT" "FINITE-SB-CONFLICTS"
2391                      "FINITE-SB-CURRENT-SIZE" "FINITE-SB-LAST-BLOCK-COUNT"
2392                      "FINITE-SB-LAST-OFFSET" "FINITE-SB-LIVE-TNS"
2393                      "FINITE-SB-SIZE-ALIGNMENT" "FINITE-SB-SIZE-INCREMENT"
2394                      "GET-OPERAND-INFO" "GLOBAL-CONFLICTS-BLOCK"
2395                      "GLOBAL-CONFLICTS-CONFLICTS" "GLOBAL-CONFLICTS-KIND"
2396                      "GLOBAL-CONFLICTS-NEXT-TNWISE" "GLOBAL-CONFLICTS-NUMBER"
2397                      "GLOBAL-CONFLICTS-NEXT-BLOCKWISE" "GLOBAL-CONFLICTS-TN"
2398                      "IR2-BLOCK" "IR2-BLOCK-COUNT" "IR2-BLOCK-GLOBAL-TNS"
2399                      "IR2-BLOCK-LAST-VOP" "IR2-BLOCK-LIVE-IN"
2400                      "IR2-BLOCK-LOCAL-TN-COUNT" "IR2-BLOCK-LOCAL-TNS"
2401                      "IR2-BLOCK-NEXT" "IR2-BLOCK-NUMBER" "IR2-BLOCK-PREV"
2402                      "IR2-BLOCK-START-VOP" "IR2-COMPONENT"
2403                      "IR2-COMPONENT-GLOBAL-TN-COUNTER"
2404                      "IR2-COMPONENT-NORMAL-TNS" "IR2-COMPONENT-RESTRICTED-TNS"
2405                      "IR2-COMPONENT-SPILLED-TNS" "IR2-COMPONENT-SPILLED-VOPS"
2406                      "IR2-COMPONENT-WIRED-TNS"
2407                      "LAMBDA-PARENT" "LEXENV-LAMBDA" "LISTIFY-RESTRICTIONS"
2408                      "LOCAL-TN-BIT-VECTOR" "LOCAL-TN-COUNT" "LOCAL-TN-LIMIT"
2409                      "LOCAL-TN-NUMBER" "LOCAL-TN-VECTOR"
2410                      "LOOP-DEPTH" "MAKE-TN" "MOVE-OPERAND" "NODE" "NODE-LEXENV"
2411                      "OPERAND-PARSE-NAME" "POSITION-IN"
2412                      "PRIMITIVE-TYPE-SCS" "PRINT-TN-GUTS"
2413                      "SB-KIND" "SB-SIZE"
2414                      "SC-ALIGNMENT" "SC-ALLOWED-BY-PRIMITIVE-TYPE"
2415                      "SC-ALTERNATE-SCS" "SC-CONSTANT-SCS" "SC-ELEMENT-SIZE"
2416                      "SC-LOCATIONS" "SC-MOVE-FUNS" "SC-RESERVE-LOCATIONS"
2417                      "SC-SAVE-P" "SC-VECTOR"
2418                      "SET-BIT-VECTOR"
2419                      "TEMPLATE-NAME"
2420                      "TN" "TN-COST" "TN-GLOBAL-CONFLICTS" "TN-KIND" "TN-LEAF"
2421                      "TN-LOCAL" "TN-LOCAL-CONFLICTS" "TN-LOCAL-NUMBER"
2422                      "TN-LOOP-DEPTH" "TN-NEXT" "TN-NUMBER" "TN-PRIMITIVE-TYPE"
2423                      "TN-READS" "TN-SAVE-TN" "TN-WRITES"
2424                      "TNS-CONFLICT" "TNS-CONFLICT-GLOBAL-GLOBAL"
2425                      "TNS-CONFLICT-LOCAL-GLOBAL"
2426                      "VOP" "VOP-ARGS" "VOP-INFO" "VOP-INFO-ARG-LOAD-SCS"
2427                      "VOP-INFO-MOVE-ARGS" "VOP-INFO-NAME"
2428                      "VOP-INFO-RESULT-LOAD-SCS" "VOP-INFO-SAVE-P"
2429                      "VOP-NEXT" "VOP-NODE"
2430                      "VOP-PARSE-OR-LOSE" "VOP-PARSE-TEMPS" "VOP-PREV"
2431                      "VOP-REFS" "VOP-RESULTS" "VOP-SAVE-SET" "VOP-TEMPS"))
2432       :export ("PACK" "TARGET-IF-DESIRABLE" "*REGISTER-ALLOCATION-METHOD*"
2433                "*PACK-ITERATIONS*"
2434                "*PACK-ASSIGN-COSTS*" "*PACK-OPTIMIZE-SAVES*"
2435                "*TN-WRITE-COST*" "*TN-LOOP-DEPTH-MULTIPLIER*"))
2437    #s(sb-cold:package-data
2438       :name "SB!PCL"
2439       :doc
2440       "semi-public: This package includes useful meta-object protocol
2441 extensions, but even they are not guaranteed to be present in later
2442 versions of SBCL, and the other stuff in here is definitely not
2443 guaranteed to be present in later versions of SBCL.  Use of this
2444 package is deprecated in favour of SB-MOP."
2445       :use ("CL" "SB!MOP" "SB!INT" "SB!EXT" "SB!WALKER" "SB!KERNEL")
2446       ;; experimental SBCL-only (for now) symbols
2447       :export ("SYSTEM-CLASS"
2448                "MAKE-METHOD-SPECIALIZERS-FORM"
2449                "PARSE-SPECIALIZER-USING-CLASS"
2450                "UNPARSE-SPECIALIZER-USING-CLASS"
2451                "+SLOT-UNBOUND+"
2453                "ENSURE-CLASS-FINALIZED"
2455                "ILLEGAL-CLASS-NAME-ERROR"
2456                "CLASS-NOT-FOUND-ERROR")
2457       ;; FIXME: After a little while, these reexports can probably go
2458       ;; away, as they're superseded by the use of SB-MOP as the
2459       ;; publically-accessible package.
2460       :reexport ( ;; CL symbols
2461                  "ADD-METHOD"
2462                  "ALLOCATE-INSTANCE"
2463                  "CLASS-NAME" "COMPUTE-APPLICABLE-METHODS"
2464                  "ENSURE-GENERIC-FUNCTION" "MAKE-INSTANCE"
2465                  "METHOD-QUALIFIERS" "REMOVE-METHOD"
2466                  ;; MOP symbols
2467                  "ADD-DEPENDENT"
2468                  "ADD-DIRECT-METHOD"
2469                  "ADD-DIRECT-SUBCLASS"
2470                  "CLASS-DEFAULT-INITARGS"
2471                  "CLASS-DIRECT-DEFAULT-INITARGS"
2472                  "CLASS-DIRECT-SLOTS"
2473                  "CLASS-DIRECT-SUBCLASSES"
2474                  "CLASS-DIRECT-SUPERCLASSES"
2475                  "CLASS-FINALIZED-P"
2476                  "CLASS-PRECEDENCE-LIST"
2477                  "CLASS-PROTOTYPE"
2478                  "CLASS-SLOTS"
2479                  "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
2480                  "COMPUTE-CLASS-PRECEDENCE-LIST"
2481                  "COMPUTE-DEFAULT-INITARGS"
2482                  "COMPUTE-DISCRIMINATING-FUNCTION"
2483                  "COMPUTE-EFFECTIVE-METHOD"
2484                  "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
2485                  "COMPUTE-SLOTS"
2486                  "DIRECT-SLOT-DEFINITION"
2487                  "DIRECT-SLOT-DEFINITION-CLASS"
2488                  "EFFECTIVE-SLOT-DEFINITION"
2489                  "EFFECTIVE-SLOT-DEFINITION-CLASS"
2490                  "ENSURE-CLASS"
2491                  "ENSURE-CLASS-USING-CLASS"
2492                  "ENSURE-GENERIC-FUNCTION-USING-CLASS"
2493                  "EQL-SPECIALIZER"
2494                  "EQL-SPECIALIZER-OBJECT"
2495                  "EXTRACT-LAMBDA-LIST"
2496                  "EXTRACT-SPECIALIZER-NAMES"
2497                  "FINALIZE-INHERITANCE"
2498                  "FIND-METHOD-COMBINATION"
2499                  "FORWARD-REFERENCED-CLASS"
2500                  "FUNCALLABLE-STANDARD-CLASS"
2501                  "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
2502                  "FUNCALLABLE-STANDARD-OBJECT"
2503                  "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
2504                  "GENERIC-FUNCTION-DECLARATIONS"
2505                  "GENERIC-FUNCTION-LAMBDA-LIST"
2506                  "GENERIC-FUNCTION-METHOD-CLASS"
2507                  "GENERIC-FUNCTION-METHOD-COMBINATION"
2508                  "GENERIC-FUNCTION-METHODS"
2509                  "GENERIC-FUNCTION-NAME"
2510                  "INTERN-EQL-SPECIALIZER"
2511                  "MAKE-METHOD-LAMBDA"
2512                  "MAP-DEPENDENTS"
2513                  "METHOD-FUNCTION"
2514                  "METHOD-GENERIC-FUNCTION"
2515                  "METHOD-LAMBDA-LIST"
2516                  "METHOD-SPECIALIZERS"
2517                  "ACCESSOR-METHOD-SLOT-DEFINITION"
2518                  "READER-METHOD-CLASS"
2519                  "REMOVE-DEPENDENT"
2520                  "REMOVE-DIRECT-METHOD"
2521                  "REMOVE-DIRECT-SUBCLASS"
2522                  "SET-FUNCALLABLE-INSTANCE-FUNCTION"
2523                  "SLOT-BOUNDP-USING-CLASS"
2524                  "SLOT-DEFINITION"
2525                  "SLOT-DEFINITION-ALLOCATION"
2526                  "SLOT-DEFINITION-INITARGS"
2527                  "SLOT-DEFINITION-INITFORM"
2528                  "SLOT-DEFINITION-INITFUNCTION"
2529                  "SLOT-DEFINITION-LOCATION"
2530                  "SLOT-DEFINITION-NAME"
2531                  "SLOT-DEFINITION-READERS"
2532                  "SLOT-DEFINITION-WRITERS"
2533                  "SLOT-DEFINITION-TYPE"
2534                  "SLOT-MAKUNBOUND-USING-CLASS"
2535                  "SLOT-VALUE-USING-CLASS"
2536                  "SPECIALIZER"
2537                  "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
2538                  "SPECIALIZER-DIRECT-METHODS"
2539                  "STANDARD-ACCESSOR-METHOD"
2540                  "STANDARD-DIRECT-SLOT-DEFINITION"
2541                  "STANDARD-EFFECTIVE-SLOT-DEFINITION"
2542                  "STANDARD-INSTANCE-ACCESS"
2543                  "STANDARD-READER-METHOD"
2544                  "STANDARD-SLOT-DEFINITION"
2545                  "STANDARD-WRITER-METHOD"
2546                  "UPDATE-DEPENDENT"
2547                  "VALIDATE-SUPERCLASS"
2548                  "WRITER-METHOD-CLASS"))
2550    #s(sb-cold:package-data
2551       :name "SB!PRETTY"
2552       :doc "private: implementation of pretty-printing"
2553       :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL")
2554       :export ("OUTPUT-PRETTY-OBJECT"
2555                "PRETTY-STREAM" "PRETTY-STREAM-P"
2556                "PPRINT-DISPATCH-TABLE"
2557                "*PPRINT-QUOTE-WITH-SYNTACTIC-SUGAR*"
2558                "!PPRINT-COLD-INIT"))
2560    #s(sb-cold:package-data
2561       :name "SB!PROFILE"
2562       :doc "public: the interface to the profiler"
2563       :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL")
2564       :export ("PROFILE" "REPORT" "RESET" "UNPROFILE"))
2566    #s(sb-cold:package-data
2567       :name "SB!SEQUENCE"
2568       :doc "semi-public: implements something which might eventually
2569 be submitted as a CDR"
2570       :use ()
2571       :export ("PROTOCOL-UNIMPLEMENTED"
2572                "PROTOCOL-UNIMPLEMENTED-OPERATION"
2574                "DOSEQUENCE"
2576                "MAKE-SEQUENCE-ITERATOR" "MAKE-SIMPLE-SEQUENCE-ITERATOR"
2578                "ITERATOR-STEP" "ITERATOR-ENDP" "ITERATOR-ELEMENT"
2579                "ITERATOR-INDEX" "ITERATOR-COPY"
2581                "WITH-SEQUENCE-ITERATOR" "WITH-SEQUENCE-ITERATOR-FUNCTIONS"
2583                "CANONIZE-TEST" "CANONIZE-KEY"
2585                "EMPTYP" "LENGTH" "ELT"
2586                "MAKE-SEQUENCE-LIKE" "ADJUST-SEQUENCE"
2588                "MAP"
2589                "COUNT" "COUNT-IF" "COUNT-IF-NOT"
2590                "FIND" "FIND-IF" "FIND-IF-NOT"
2591                "POSITION" "POSITION-IF" "POSITION-IF-NOT"
2592                "SUBSEQ" "COPY-SEQ" "FILL"
2593                "NSUBSTITUTE" "NSUBSTITUTE-IF" "NSUBSTITUTE-IF-NOT"
2594                "SUBSTITUTE" "SUBSTITUTE-IF" "SUBSTITUTE-IF-NOT"
2595                "REPLACE" "REVERSE" "NREVERSE" "CONCATENATE" "REDUCE"
2596                "MISMATCH" "SEARCH"
2597                "DELETE" "DELETE-IF" "DELETE-IF-NOT"
2598                "REMOVE" "REMOVE-IF" "REMOVE-IF-NOT"
2599                "DELETE-DUPLICATES" "REMOVE-DUPLICATES"
2601                "SORT" "STABLE-SORT" "MERGE"))
2603    #s(sb-cold:package-data
2604       :name "SB!SYS"
2605       :doc
2606       "private: In theory, this \"contains functions and information
2607 necessary for system interfacing\" (said cmu-user.tex at the time
2608 of the SBCL code fork). That probably was and is a good idea, but in
2609 practice, the distinctions between this package and SB-KERNEL
2610 and even SB-VM seem to have become somewhat blurred over the years.
2611 Some anomalies (e.g. FIND-IF-IN-CLOSURE being in SB-SYS instead of
2612 SB-KERNEL) have been undone, but probably more remain."
2613       :use ("CL" "SB!EXT" "SB!INT")
2614       :export (;; FIXME: %PRIMITIVE shouldn't be here. (I now know that %SYS
2615                ;; is for OS-dependent stuff. %PRIMITIVE should probably be in
2616                ;; SB!KERNEL.)
2617                "%PRIMITIVE"
2618                "%STANDARD-CHAR-P"
2619                "*EXIT-ERROR-HANDLER*"
2620                "*EXIT-IN-PROCESS*"
2621                "*ALLOW-WITH-INTERRUPTS*"
2622                "*INTERRUPTS-ENABLED*"
2623                "*INTERRUPT-PENDING*"
2624                #!+sb-thruption "*THRUPTION-PENDING*"
2625                "*LINKAGE-INFO*"
2626                "*LONG-SITE-NAME*" "*SHORT-SITE-NAME*"
2627                "*MACHINE-VERSION*"
2628                "*PERIODIC-POLLING-FUNCTION*"
2629                "*PERIODIC-POLLING-PERIOD*"
2630                "*RUNTIME-DLHANDLE*"
2631                "*SHARED-OBJECTS*"
2632                #!-sb-dynamic-core
2633                "*STATIC-FOREIGN-SYMBOLS*"
2634                "*STDERR*" "*STDIN*"
2635                "*STDOUT*"
2636                "*TTY*"
2637                "ADD-FD-HANDLER"
2638                "ALLOCATE-SYSTEM-MEMORY"
2639                "ALLOW-WITH-INTERRUPTS"
2640                "BEEP"
2641                "BREAKPOINT-ERROR"
2642                "CANCEL-DEADLINE"
2643                "CLOSE-SHARED-OBJECTS"
2644                "DEADLINE-TIMEOUT"
2645                "DEALLOCATE-SYSTEM-MEMORY"
2646                "DECODE-TIMEOUT"
2647                "DECODE-INTERNAL-TIME"
2648                "DEFAULT-INTERRUPT"
2649                "DEFER-DEADLINE"
2650                "DYNAMIC-FOREIGN-SYMBOLS-P"
2651                "DLOPEN-OR-LOSE"
2652                "ENABLE-INTERRUPT"
2653                "ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"
2654                "EXTERN-ALIEN-NAME"
2655                "EXIT-CODE"
2656                "FD-STREAM" "FD-STREAM-FD" "FD-STREAM-P"
2657                "FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"
2658                "FIND-FOREIGN-SYMBOL-ADDRESS"
2659                "FIND-FOREIGN-SYMBOL-IN-TABLE"
2660                "FOREIGN-SYMBOL-SAP"
2661                "FOREIGN-SYMBOL-ADDRESS"
2662                "FOREIGN-SYMBOL-DATAREF-SAP"
2663                "GET-MACHINE-VERSION" "GET-PAGE-SIZE" "GET-SYSTEM-INFO"
2664                "IGNORE-INTERRUPT"
2665                "IN-INTERRUPTION"
2666                "INTERACTIVE-INTERRUPT"
2667                "INT-SAP"
2668                "INVALIDATE-DESCRIPTOR"
2669                "INVOKE-INTERRUPTION"
2670                "IO-TIMEOUT"
2671                "LIST-DYNAMIC-FOREIGN-SYMBOLS"
2672                "MACRO" "MAKE-FD-STREAM"
2673                "MEMORY-FAULT-ERROR"
2674                "MEMMOVE"
2675                "OS-EXIT"
2676                "OS-COLD-INIT-OR-REINIT" "OS-DEINIT"
2677                "OS-CONTEXT-T" "OUTPUT-RAW-BYTES"
2678                "READ-N-BYTES"
2679                "REMOVE-FD-HANDLER"
2680                "REOPEN-SHARED-OBJECTS"
2681                "SAP+" "SAP-"
2682                "SAP-FOREIGN-SYMBOL"
2683                "SAP-INT"
2684                "SAP-REF-16" "SAP-REF-32" "SAP-REF-64" "SAP-REF-WORD"
2685                "SAP-REF-8"
2686                "SAP-REF-DOUBLE" "SAP-REF-LISPOBJ" "SAP-REF-LONG"
2687                "SAP-REF-OCTETS"
2688                "SAP-REF-SAP" "SAP-REF-SINGLE"
2689                "SAP<" "SAP<=" "SAP=" "SAP>" "SAP>="
2690                "SCRUB-CONTROL-STACK" "SERVE-ALL-EVENTS"
2691                "SIGNAL-DEADLINE"
2692                "SERVE-EVENT"
2693                "SIGNED-SAP-REF-16" "SIGNED-SAP-REF-32"
2694                "SIGNED-SAP-REF-64" "SIGNED-SAP-REF-WORD" "SIGNED-SAP-REF-8"
2695                ;; FIXME: STRUCTURE!OBJECT stuff probably belongs in SB!KERNEL.
2696                "STRUCTURE!OBJECT" "STRUCTURE!OBJECT-MAKE-LOAD-FORM"
2697                "SYSTEM-AREA-POINTER" "SYSTEM-AREA-POINTER-P"
2698                "SYSTEM-CONDITION" "SYSTEM-CONDITION-ADDRESS"
2699                "SYSTEM-CONDITION-CONTEXT"
2700                "REINIT-INTERNAL-REAL-TIME"
2701                "SYSTEM-INTERNAL-RUN-TIME"
2702                "UNDEFINED-FOREIGN-SYMBOLS-P"
2703                "UPDATE-LINKAGE-TABLE" "VECTOR-SAP"
2704                "WAIT-UNTIL-FD-USABLE"
2705                "WITH-DEADLINE"
2706                "WITH-FD-HANDLER"
2707                "WITH-INTERRUPTS" "WITH-LOCAL-INTERRUPTS"
2708                "WITH-PINNED-OBJECTS" "WITHOUT-GCING"
2709                "WITHOUT-INTERRUPTS"
2710                "WITH-INTERRUPT-BINDINGS"
2711                "WORDS"))
2713    #s(sb-cold:package-data
2714       :name "SB!UNICODE"
2715       :doc "public: algorithms for Unicode data"
2716       :use ("CL" "SB!INT")
2717       :export ("GENERAL-CATEGORY"
2718                "BIDI-CLASS"
2719                "COMBINING-CLASS"
2720                "DECIMAL-VALUE"
2721                "DIGIT-VALUE"
2722                "NUMERIC-VALUE"
2723                "MIRRORED-P"
2724                "BIDI-MIRRORING-GLYPH"
2725                "AGE"
2726                "HANGUL-SYLLABLE-TYPE"
2727                "EAST-ASIAN-WIDTH"
2728                "SCRIPT"
2729                "CHAR-BLOCK"
2730                "UNICODE-1-NAME"
2731                "LINE-BREAK-CLASS"
2732                "PROPLIST-P"
2733                "UPPERCASE-P"
2734                "LOWERCASE-P"
2735                "CASED-P"
2736                "CASE-IGNORABLE-P"
2737                "ALPHABETIC-P"
2738                "IDEOGRAPHIC-P"
2739                "MATH-P"
2740                "WHITESPACE-P"
2741                "HEX-DIGIT-P"
2742                "SOFT-DOTTED-P"
2743                "DEFAULT-IGNORABLE-P"
2744                "NORMALIZE-STRING"
2745                "NORMALIZED-P"
2746                "UPPERCASE"
2747                "LOWERCASE"
2748                "TITLECASE"
2749                "CASEFOLD"
2750                "GRAPHEME-BREAK-CLASS"
2751                "WORD-BREAK-CLASS"
2752                "SENTENCE-BREAK-CLASS"
2753                "GRAPHEMES"
2754                "WORDS"
2755                "SENTENCES"
2756                "LINES"
2757                "UNICODE="
2758                "UNICODE-EQUAL"
2759                "UNICODE<"
2760                "UNICODE<="
2761                "UNICODE>"
2762                "UNICODE>="
2763                "CONFUSABLE-P"))
2765    #s(sb-cold:package-data
2766       :name "SB!UNIX"
2767       :doc
2768       "private: a wrapper layer for SBCL itself to use when talking
2769 with an underlying Unix-y operating system.
2770 This was a public package in CMU CL, but that was different.
2771 CMU CL's UNIX package tried to provide a comprehensive,
2772 stable Unix interface suitable for the end user.
2773 This package only tries to implement what happens to be
2774 needed by the current implementation of SBCL, and makes
2775 no guarantees of interface stability."
2776       :use ("CL" "SB!ALIEN" "SB!EXT" "SB!INT" "SB!SYS")
2777       :reexport ("OFF-T"
2778                  "SIZE-T")
2779       :export ( ;; wrappers around Unix stuff to give just what Lisp needs
2780                "NANOSLEEP"
2781                "UID-USERNAME"
2782                "UID-HOMEDIR"
2783                "USER-HOMEDIR"
2784                "WITH-RESTARTED-SYSCALL"
2785                "SB-MKSTEMP"
2786                "UNIX-OFFSET"
2787                "FD-TYPE"
2789                ;; Most of this is random detritus worthy of deletion,
2790                ;; and the ordering is not alphabetical or anything sane.
2792                ;; stuff with a one-to-one mapping to Unix constructs
2793                "D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN" "DEV-T" "DIRECT"
2794                "EXECGRP" "EXECOTH" "EXECOWN" "F-DUPFD" "F-GETFD" "F-GETFL"
2795                "F-GETOWN" "F-SETFD" "F-SETFL" "F-SETOWN" "FAPPEND" "FASYNC"
2796                "FCREAT" "FEXCL" "FIONREAD" "FNDELAY" "FTRUNC" "F_OK" "GID-T"
2797                "INO-T" "UNIX-ACCESS" "UNIX-SETITIMER" "UNIX-GETITIMER"
2798                "L_INCR" "L_SET" "L_XTND" "O_APPEND" "O_CREAT" "O_NOCTTY" "O_EXCL"
2799                "O_RDONLY" "O_RDWR" "O_TRUNC" "O_WRONLY" "POSIX-GETCWD"
2800                "POSIX-GETCWD/" "READGRP" "READOTH" "READOWN" "RLIM-CUR"
2801                "RLIM-MAX" "RU-IDRSS" "RU-INBLOCK" "RU-ISRSS" "RU-IXRSS"
2802                "RU-MAJFLT" "RU-MAXRSS" "RU-MINFLT" "RU-MSGRCV" "RU-MSGSND"
2803                "RU-NIVCSW" "RU-NSIGNALS" "RU-NSWAP" "RU-NVCSW" "RU-OUBLOCK"
2804                "RU-STIME" "RU-UTIME" "RUSAGE_CHILDREN" "RUSAGE_SELF" "RUSEAGE"
2805                "R_OK" "S-IEXEC" "S-IFBLK" "S-IFCHR" "S-IFDIR" "S-IFIFO" "S-IFLNK" "S-IFMT"
2806                "S-IFREG" "S-IFSOCK" "S-IREAD" "S-ISGID" "S-ISUID" "S-ISVTX"
2807                "S-IWRITE" "SAVETEXT" "SC-MASK" "SC-ONSTACK"
2808                "SETUIDEXEC" "ST-ATIME" "ST-BLKSIZE" "ST-BLOCKS"
2809                "ST-CTIME" "ST-DEV" "ST-GID" "ST-MODE" "ST-MTIME" "ST-NLINK"
2810                "ST-RDEV" "ST-SIZE" "ST-UID" "STAT" "TERMINAL-SPEEDS" "TIME-T"
2811                "TIMEVAL" "TIMEZONE" "TIOCFLUSH" "TIOCGETC" "TIOCGETP" "TIOCGLTC"
2812                "TIOCGPGRP" "TIOCGWINSZ" "TIOCNOTTY" "TIOCSETC" "TIOCSETP"
2813                "TIOCSLTC" "TIOCSPGRP" "TIOCSWINSZ" "TV-SEC" "TV-USEC"
2814                "TZ-DSTTIME" "TZ-MINUTESWEST" "UID-T" "UNIX-CLOSE"
2815                "UNIX-CLOSEDIR" "UNIX-DIRENT-NAME" "UNIX-DUP"
2816                "UNIX-FILE-MODE" "UNIX-FSTAT"
2817                "UNIX-GETHOSTNAME" "UNIX-GETPID" "UNIX-GETRUSAGE"
2818                "UNIX-GETTIMEOFDAY" "UNIX-GETUID" "UNIX-GID"
2819                "UNIX-EXIT"
2820                "UNIX-IOCTL"
2821                "UNIX-ISATTY" "UNIX-LSEEK" "UNIX-LSTAT" "UNIX-MKDIR"
2822                "UNIX-OPEN" "UNIX-OPENDIR" "UNIX-PATHNAME" "UNIX-PID"
2823                "UNIX-PIPE" "UNIX-POLL" "UNIX-SIMPLE-POLL"
2824                "UNIX-READ" "UNIX-READDIR" "UNIX-READLINK" "UNIX-REALPATH"
2825                "UNIX-RENAME" "UNIX-SELECT" "UNIX-STAT" "UNIX-UID"
2826                "UNIX-UNLINK" "UNIX-WRITE"
2827                "WINSIZE"
2828                "WRITEGRP" "WRITEOTH" "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL"
2829                "WS-YPIXEL" "WNOHANG" "WSTOPPED" "WUNTRACED" "W_OK" "X_OK"
2831                ;; signals
2832                "SIGALRM" "SIGBUS" "SIGCHLD" "SIGCONT" "SIGEMT" "SIGFPE"
2833                "SIGHUP" "SIGILL" "SIGINT" "SIGIO" "SIGIOT" "SIGKILL"
2834                "SIGPIPE" "SIGPROF" "SIGQUIT" "SIGSEGV" "SIGSTOP" "SIGSYS"
2835                "SIGTERM" "SIGTRAP" "SIGTSTP" "SIGTTIN" "SIGTTOU" "SIGURG"
2836                "SIGUSR1" "SIGUSR2" "SIGVTALRM" "SIGWAITING" "SIGWINCH"
2837                "SIGXCPU" "SIGXFSZ"
2839                ;; errors
2840                "E2BIG" "EADDRINUSE" "EADDRNOTAVAIL" "EAFNOSUPPORT"
2841                "EAGAIN" "EALREADY" "EBADF" "EBUSY" "ECHILD" "ECONNABORTED"
2842                "ECONNREFUSED" "ECONNRESET" "EDEADLK" "EDESTADDRREQ" "EDOM"
2843                "EDQUOT" "EEXIST" "EFAULT" "EFBIG" "EHOSTDOWN"
2844                "EHOSTUNREACH" "EINPROGRESS" "EINTR" "EINVAL" "EIO"
2845                "EISCONN" "EISDIR" "ELOCAL" "ELOOP" "EMFILE" "EMLINK"
2846                "EMSGSIZE" "ENAMETOOLONG" "ENETDOWN" "ENETRESET"
2847                "ENETUNREACH" "ENFILE" "ENOBUFS" "ENODEV" "ENOENT"
2848                "ENOEXEC" "ENOMEM" "ENOPROTOOPT" "ENOSPC" "ENOTBLK"
2849                "ENOTCONN" "ENOTEMPTY" "ENOTSOCK" "ENOTTY" "ENXIO"
2850                "EOPNOTSUPP" "EPERM" "EPFNOSUPPORT" "EPIPE" "EPROCLIM"
2851                "EPROTONOSUPPORT" "EPROTOTYPE" "ERANGE" "EREMOTE"
2852                "ERESTART" "EROFS" "ESHUTDOWN" "ESOCKTNOSUPPORT" "ESPIPE"
2853                "ESRCH" "ESUCCESS" "ETIMEDOUT" "ETOOMANYREFS" "ETXTBSY"
2854                "EUSERS" "EVICEERR" "EVICEOP" "EWOULDBLOCK" "EXDEV"
2856                "POLLFD" "POLLIN" "POLLOUT" "POLLHUP" "POLLNVAL" "POLLERR"
2857                "FD" "EVENTS" "REVENTS"
2858                "FD-ISSET" "FD-SET" "LTCHARS" "UNIX-FAST-SELECT"
2859                "UNIX-KILL" "CODESET"
2860                "FD-ZERO" "FD-CLR" "UNIX-RESOLVE-LINKS"
2861                "FD-SETSIZE" "UNIX-FAST-GETRUSAGE"
2862                "UNIX-KILLPG"
2863                #!+(or svr4 linux)
2864                ("EADDRINUSE"
2865                 "EADDRNOTAVAIL" "EADV"
2866                 "EAFNOSUPPORT" "EALREADY" "EBADE" "EBADFD"
2867                 "EBADMSG" "EBADR" "EBADRQC"
2868                 "EBADSLT" "EBFONT" #!+svr4 "ECANCELED"
2869                 "ECHRNG" "ECOMM" "ECONNABORTED"
2870                 "ECONNREFUSED" "ECONNRESET" "EDEADLK"
2871                 "EDEADLOCK" "EDESTADDRREQ" #!+linux "EDOTDOT"
2872                 #!+linux "EDQUOT" "EHOSTDOWN" "EHOSTUNREACH"
2873                 "EIDRM" "EILSEQ" "EINPROGRESS"
2874                 "EISCONN" #!+linux "EISNAM" "EL2HLT"
2875                 "EL2NSYNC" "EL3HLT" "EL3RST" "ELIBACC"
2876                 "ELIBBAD" "ELIBEXEC" "ELIBMAX" "ELIBSCN"
2877                 "ELNRNG" "ELOOP" "EMSGSIZE" "EMULTIHOP"
2878                 "ENAMETOOLONG" #!+linux "ENAVAIL"
2879                 "ENETDOWN" "ENETRESET" "ENETUNREACH" "ENOANO"
2880                 "ENOBUFS" "ENOCSI" "ENODATA" "ENOLCK"
2881                 "ENOLINK" "ENOMSG" "ENONET" "ENOPKG"
2882                 "ENOPROTOOPT" "ENOSR" "ENOSTR" "ENOSYS"
2883                 "ENOTCONN" "ENOTEMPTY" #!+linux "ENOTNAM"
2884                 "ENOTSOCK" #!+svr4 "ENOTSUP" "ENOTUNIQ"
2885                 "EOPNOTSUPP" "EOVERFLOW" "EPFNOSUPPORT"
2886                 "EPROTO" "EPROTONOSUPPORT" "EPROTOTYPE"
2887                 "EREMCHG" "EREMOTE" #!+linux "EREMOTEIO"
2888                 "ERESTART" "ESHUTDOWN" "ESOCKTNOSUPPORT"
2889                 "ESRMNT" "ESTALE" "ESTRPIPE" "ETIME"
2890                 "ETIMEDOUT" "ETOOMANYREFS" #!+linux "EUCLEAN"
2891                 "EUNATCH" "EUSERS" "EWOULDBLOCK" "EXFULL")))
2893    #s(sb-cold:package-data
2894       :name "SB!VM"
2895       :doc
2896       "internal: the default place to hide information about the hardware and data
2897 structure representations"
2898       :use ("CL" "SB!ALIEN" "SB!ALIEN-INTERNALS" "SB!ASSEM" "SB!C"
2899                  "SB!EXT" "SB!FASL" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!UNIX")
2900       :reexport ("WORD")
2901       :export ("*ALLOC-SIGNAL*"
2902                "*PRIMITIVE-OBJECTS*"
2903                "+HIGHEST-NORMAL-GENERATION+"
2904                "+PSEUDO-STATIC-GENERATION+"
2905                "%COMPILER-BARRIER" "%DATA-DEPENDENCY-BARRIER"
2906                "%MEMORY-BARRIER" "%READ-BARRIER" "%WRITE-BARRIER"
2907                "AFTER-BREAKPOINT-TRAP"
2908                #!+(and gencgc sparc) "ALLOCATION-TRAP"
2909                "ANY-REG-SC-NUMBER" "ARRAY-DATA-SLOT" "ARRAY-DIMENSIONS-OFFSET"
2910                "ARRAY-DISPLACED-P-SLOT" "ARRAY-DISPLACEMENT-SLOT"
2911                "ARRAY-DISPLACED-FROM-SLOT"
2912                "ARRAY-ELEMENTS-SLOT" "ARRAY-FILL-POINTER-P-SLOT"
2913                "ARRAY-FILL-POINTER-SLOT" "ATOMIC-FLAG"
2914                "CHARACTER-REG-SC-NUMBER"
2915                "CHARACTER-STACK-SC-NUMBER" "CHARACTER-WIDETAG"
2916                "BIGNUM-DIGITS-OFFSET" "BIGNUM-WIDETAG" "BINDING-SIZE"
2917                "BINDING-SYMBOL-SLOT" "BINDING-VALUE-SLOT" "BREAKPOINT-TRAP"
2918                "N-BYTE-BITS" "BYTE-REG-SC-NUMBER"
2919                "CATCH-BLOCK-CODE-SLOT"
2920                "CATCH-BLOCK-CFP-SLOT" "CATCH-BLOCK-UWP-SLOT"
2921                "CATCH-BLOCK-ENTRY-PC-SLOT" "CATCH-BLOCK-PREVIOUS-CATCH-SLOT"
2922                "CATCH-BLOCK-SC-NUMBER" "CATCH-BLOCK-SIZE"
2923                "CATCH-BLOCK-TAG-SLOT" "CERROR-TRAP"
2924                "CLOSURE-FUN-SLOT"
2925                "CLOSURE-HEADER-WIDETAG" "CLOSURE-INFO-OFFSET"
2926                "CODE-CODE-SIZE-SLOT" "CODE-CONSTANTS-OFFSET"
2927                "CODE-DEBUG-INFO-SLOT" "CODE-ENTRY-POINTS-SLOT"
2928                "CODE-HEADER-WIDETAG" "COMPLEX-ARRAY-WIDETAG"
2929                "COMPLEX-BIT-VECTOR-WIDETAG" "COMPLEX-DOUBLE-FLOAT-FILLER-SLOT"
2930                "COMPLEX-DOUBLE-FLOAT-IMAG-SLOT" "COMPLEX-DOUBLE-FLOAT-REAL-SLOT"
2931                "COMPLEX-DOUBLE-FLOAT-SIZE" "COMPLEX-DOUBLE-FLOAT-WIDETAG"
2932                "COMPLEX-DOUBLE-REG-SC-NUMBER" "COMPLEX-DOUBLE-STACK-SC-NUMBER"
2933                "COMPLEX-IMAG-SLOT" "COMPLEX-REAL-SLOT"
2934                #!+long-float("COMPLEX-LONG-FLOAT-IMAG-SLOT"
2935                              "COMPLEX-LONG-FLOAT-REAL-SLOT"
2936                              "COMPLEX-LONG-FLOAT-SIZE"
2937                              "COMPLEX-LONG-FLOAT-WIDETAG"
2938                              "COMPLEX-LONG-REG-SC-NUMBER"
2939                              "COMPLEX-LONG-STACK-SC-NUMBER")
2940                #!+sb-simd-pack("SIMD-PACK-TAG-SLOT"
2941                                "SIMD-PACK-HI-VALUE-SLOT"
2942                                "SIMD-PACK-LO-VALUE-SLOT"
2943                                "SIMD-PACK-SIZE"
2944                                "SIMD-PACK-WIDETAG")
2945                #!-64-bit
2946                ("COMPLEX-SINGLE-FLOAT-IMAG-SLOT" "COMPLEX-SINGLE-FLOAT-REAL-SLOT")
2947                #!+64-bit
2948                "COMPLEX-SINGLE-FLOAT-DATA-SLOT"
2949                "COMPLEX-SINGLE-FLOAT-SIZE" "COMPLEX-SINGLE-FLOAT-WIDETAG"
2950                "COMPLEX-SINGLE-REG-SC-NUMBER" "COMPLEX-SINGLE-STACK-SC-NUMBER"
2951                "COMPLEX-SIZE" "COMPLEX-BASE-STRING-WIDETAG"
2952                #!+sb-unicode "COMPLEX-CHARACTER-STRING-WIDETAG"
2953                "COMPLEX-WIDETAG"
2954                "COMPLEX-VECTOR-NIL-WIDETAG"
2955                "COMPLEX-VECTOR-WIDETAG" "CONS-CAR-SLOT" "CONS-CDR-SLOT"
2956                "CONS-SIZE" "CONSTANT-SC-NUMBER"
2957                "CONTEXT-FLOATING-POINT-MODES" "CONTEXT-FLOAT-REGISTER"
2958                "CONTEXT-PC" "CONTEXT-REGISTER"
2959                "CONTROL-STACK-SC-NUMBER" "COUNT-NO-OPS"
2960                #!+sb-safepoint "CSP-SAFEPOINT-TRAP"
2961                "*CURRENT-CATCH-BLOCK*"
2962                "CURRENT-FLOAT-TRAP"
2963                "DESCRIPTOR-REG-SC-NUMBER" "DESCRIPTOR-VS-NON-DESCRIPTOR-STORAGE"
2964                "DOUBLE-FLOAT-EXPONENT-BYTE" "DOUBLE-FLOAT-BIAS"
2965                "DOUBLE-FLOAT-DIGITS" "DOUBLE-FLOAT-EXPONENT-BYTE"
2966                "DOUBLE-FLOAT-HIDDEN-BIT"
2967                "DOUBLE-FLOAT-NORMAL-EXPONENT-MAX"
2968                "DOUBLE-FLOAT-NORMAL-EXPONENT-MIN" "DOUBLE-FLOAT-SIGNIFICAND-BYTE"
2969                "DOUBLE-FLOAT-SIZE" "DOUBLE-FLOAT-TRAPPING-NAN-BIT"
2970                "DOUBLE-FLOAT-WIDETAG" "DOUBLE-FLOAT-VALUE-SLOT"
2971                "DOUBLE-REG-SC-NUMBER"
2972                "DOUBLE-STACK-SC-NUMBER"
2973                "EMIT-LONG-NOP" "ERROR-TRAP" "EVEN-FIXNUM-LOWTAG"
2974                "FDEFN-FUN-SLOT" "FDEFN-NAME-SLOT" "FDEFN-RAW-ADDR-SLOT"
2975                "FDEFN-SIZE" "FDEFN-WIDETAG" "FIXNUMIZE"
2976                "FIXNUM-TAG-MASK"
2977                "FIXUP-CODE-OBJECT" "FLOAT-DENORMAL-TRAP-BIT"
2978                "FLOAT-DIVIDE-BY-ZERO-TRAP-BIT"
2979                "FLOAT-INVALID-TRAP-BIT"
2980                "FLOAT-OVERFLOW-TRAP-BIT" "FLOAT-SIGN-SHIFT"
2981                "FLOAT-UNDERFLOW-TRAP-BIT" "FLOATING-POINT-MODES"
2982                "FP-CONSTANT-SC-NUMBER"
2983                "FP-DOUBLE-ZERO-SC-NUMBER" "FP-SINGLE-ZERO-SC-NUMBER"
2984                "FUNCALLABLE-INSTANCE-TRAMPOLINE-SLOT"
2985                "FUNCALLABLE-INSTANCE-HEADER-WIDETAG"
2986                "FUNCALLABLE-INSTANCE-INFO-OFFSET"
2987                "SIMPLE-FUN-ARGLIST-SLOT" "SIMPLE-FUN-CODE-OFFSET"
2988                "FUN-END-BREAKPOINT-TRAP"
2989                "SIMPLE-FUN-HEADER-WIDETAG"
2990                "SIMPLE-FUN-NAME-SLOT"
2991                "SIMPLE-FUN-NEXT-SLOT"
2992                "FUN-POINTER-LOWTAG"
2993                "SIMPLE-FUN-SELF-SLOT"
2994                "SIMPLE-FUN-TYPE-SLOT"
2995                "GENCGC-CARD-BYTES"
2996                "GENCGC-ALLOC-GRANULARITY"
2997                "GENCGC-RELEASE-GRANULARITY"
2998                #!+(or arm64 ppc sparc) "PSEUDO-ATOMIC-INTERRUPTED-FLAG"
2999                #!+(or arm64 ppc sparc) "PSEUDO-ATOMIC-FLAG"
3000                #!+sb-safepoint "GLOBAL-SAFEPOINT-TRAP"
3001                "GENESIS" "HALT-TRAP" "IGNORE-ME-SC-NUMBER"
3002                "IMMEDIATE-SC-NUMBER"
3003                #!+inline-constants("CANONICALIZE-INLINE-CONSTANT"
3004                                    "INLINE-CONSTANT-VALUE"
3005                                    "EMIT-CONSTANT-SEGMENT-HEADER"
3006                                    "SORT-INLINE-CONSTANTS"
3007                                    "EMIT-INLINE-CONSTANT")
3008                "INSTANCE-DATA-START"
3009                "INSTANCE-HEADER-WIDETAG" "INSTANCE-POINTER-LOWTAG"
3010                "INSTANCE-SLOTS-OFFSET" "INSTANCE-USAGE"
3011                "INTERIOR-REG-SC-NUMBER" "INTERNAL-ERROR-ARGS"
3012                "INTERRUPTED-FLAG"
3013                #!+gencgc "LARGE-OBJECT-SIZE"
3014                "LIST-ALLOCATED-OBJECTS" "LIST-POINTER-LOWTAG"
3015                ;; FIXME: Possibly these other parameters (see
3016                ;; compiler/{x86,sparc}/parms.lisp) should be defined
3017                ;; conditionally on #!+LONG-FLOAT)
3018                "LONG-FLOAT-BIAS" "LONG-FLOAT-DIGITS" "LONG-FLOAT-EXPONENT-BYTE"
3019                "LONG-FLOAT-HIDDEN-BIT" "LONG-FLOAT-NORMAL-EXPONENT-MAX"
3020                "LONG-FLOAT-NORMAL-EXPONENT-MIN" "LONG-FLOAT-SIGNIFICAND-BYTE"
3021                #!+long-float "LONG-FLOAT-SIZE"
3022                "LONG-FLOAT-TRAPPING-NAN-BIT"
3023                #!+long-float("LONG-FLOAT-WIDETAG"
3024                              "LONG-FLOAT-VALUE-SLOT"
3025                              "LONG-REG-SC-NUMBER"
3026                              "LONG-STACK-SC-NUMBER")
3027                "LOWTAG-LIMIT" "LOWTAG-MASK"
3028                "LRA-SAVE-OFFSET"
3029                "MAX-INTERRUPTS"
3030                "MEMORY-USAGE"
3031                "N-LOWTAG-BITS"
3032                "N-FIXNUM-TAG-BITS"
3033                "N-FIXNUM-BITS"
3034                "N-POSITIVE-FIXNUM-BITS"
3035                "NFP-SAVE-OFFSET"
3036                "NON-DESCRIPTOR-REG-SC-NUMBER"
3037                "NULL-SC-NUMBER"
3038                "OBJECT-NOT-LIST-TRAP" "OBJECT-NOT-INSTANCE-TRAP"
3039                "OCFP-SAVE-OFFSET"
3040                "ODD-FIXNUM-LOWTAG"
3041                "OFFSET-STATIC-SYMBOL"
3042                "OTHER-IMMEDIATE-0-LOWTAG"
3043                "OTHER-IMMEDIATE-1-LOWTAG"
3044                "OTHER-IMMEDIATE-2-LOWTAG"
3045                "OTHER-IMMEDIATE-3-LOWTAG"
3046                "OTHER-POINTER-LOWTAG"
3047                "PAD0-LOWTAG" "PAD1-LOWTAG" "PAD2-LOWTAG"
3048                "PAD3-LOWTAG" "PAD4-LOWTAG" "PAD5-LOWTAG"
3049                "PAD-DATA-BLOCK" "PENDING-INTERRUPT-TRAP"
3050                "PRIMITIVE-OBJECT" "PRIMITIVE-OBJECT-WIDETAG"
3051                "PRIMITIVE-OBJECT-LOWTAG" "PRIMITIVE-OBJECT-NAME"
3052                "PRIMITIVE-OBJECT-OPTIONS" "PRIMITIVE-OBJECT-P"
3053                "PRIMITIVE-OBJECT-SIZE" "PRIMITIVE-OBJECT-SLOTS"
3054                "PRIMITIVE-OBJECT-VARIABLE-LENGTH-P"
3055                "PRINT-ALLOCATED-OBJECTS"
3056                "RATIO-DENOMINATOR-SLOT" "RATIO-NUMERATOR-SLOT"
3057                "RATIO-SIZE" "RATIO-WIDETAG"
3058                "*READ-ONLY-SPACE-FREE-POINTER*"
3059                "RETURN-PC-HEADER-WIDETAG"
3060                "RETURN-PC-RETURN-POINT-OFFSET" "RETURN-PC-SAVE-OFFSET"
3061                "SAETP-CTYPE" "SAETP-INITIAL-ELEMENT-DEFAULT"
3062                "SAETP-N-BITS" "SAETP-TYPECODE" "SAETP-PRIMITIVE-TYPE-NAME"
3063                "SAETP-N-PAD-ELEMENTS" "SAETP-SPECIFIER"
3064                "SAETP-COMPLEX-TYPECODE" "SAETP-IMPORTANCE"
3065                "SAETP-FIXNUM-P"
3066                "VALID-BIT-BASH-SAETP-P"
3067                "*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES*"
3068                #!-(or x86 x86-64)
3069                "SANCTIFY-FOR-EXECUTION"
3070                "SAP-POINTER-SLOT" "SAP-REG-SC-NUMBER" "SAP-SIZE"
3071                "SAP-STACK-SC-NUMBER" "SAP-WIDETAG"
3072                "SIGFPE-HANDLER" "SIGNED-REG-SC-NUMBER" "SIGNED-STACK-SC-NUMBER"
3073                "SIGNED-WORD"
3074                "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-WIDETAG"
3075                #!+long-float "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-WIDETAG"
3076                "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-WIDETAG"
3077                "SIMPLE-ARRAY-DOUBLE-FLOAT-WIDETAG"
3078                #!+long-float "SIMPLE-ARRAY-LONG-FLOAT-WIDETAG"
3079                "SIMPLE-ARRAY-NIL-WIDETAG"
3080                "SIMPLE-ARRAY-SINGLE-FLOAT-WIDETAG"
3081                "SIMPLE-ARRAY-WIDETAG"
3082                "SIMPLE-ARRAY-UNSIGNED-BYTE-15-WIDETAG"
3083                "SIMPLE-ARRAY-UNSIGNED-BYTE-16-WIDETAG"
3084                "SIMPLE-ARRAY-UNSIGNED-BYTE-2-WIDETAG"
3085                "SIMPLE-ARRAY-UNSIGNED-FIXNUM-WIDETAG"
3086                "SIMPLE-ARRAY-UNSIGNED-BYTE-31-WIDETAG"
3087                "SIMPLE-ARRAY-UNSIGNED-BYTE-32-WIDETAG"
3088                "SIMPLE-ARRAY-UNSIGNED-BYTE-63-WIDETAG"
3089                "SIMPLE-ARRAY-UNSIGNED-BYTE-64-WIDETAG"
3090                "SIMPLE-ARRAY-UNSIGNED-BYTE-4-WIDETAG"
3091                "SIMPLE-ARRAY-UNSIGNED-BYTE-7-WIDETAG"
3092                "SIMPLE-ARRAY-UNSIGNED-BYTE-8-WIDETAG"
3093                "SIMPLE-ARRAY-SIGNED-BYTE-16-WIDETAG"
3094                "SIMPLE-ARRAY-FIXNUM-WIDETAG"
3095                "SIMPLE-ARRAY-SIGNED-BYTE-32-WIDETAG"
3096                "SIMPLE-ARRAY-SIGNED-BYTE-64-WIDETAG"
3097                "SIMPLE-ARRAY-SIGNED-BYTE-8-WIDETAG"
3098                "SIMPLE-BIT-VECTOR-WIDETAG"
3099                "SIMPLE-BASE-STRING-WIDETAG"
3100                #!+sb-unicode "SIMPLE-CHARACTER-STRING-WIDETAG"
3101                "SIMPLE-VECTOR-WIDETAG" "SINGLE-FLOAT-BIAS"
3102                "SINGLE-FLOAT-DIGITS" "SINGLE-FLOAT-EXPONENT-BYTE"
3103                "SINGLE-FLOAT-HIDDEN-BIT" "SINGLE-FLOAT-NORMAL-EXPONENT-MAX"
3104                "SINGLE-FLOAT-NORMAL-EXPONENT-MIN" "SINGLE-FLOAT-SIGNIFICAND-BYTE"
3105                "SINGLE-FLOAT-SIZE" "SINGLE-FLOAT-TRAPPING-NAN-BIT"
3106                "SINGLE-FLOAT-WIDETAG"
3107                #!-64-bit "SINGLE-FLOAT-VALUE-SLOT"
3108                "SINGLE-REG-SC-NUMBER" "SINGLE-STACK-SC-NUMBER"
3109                "SINGLE-STEP-AROUND-TRAP"
3110                "SINGLE-STEP-BEFORE-TRAP"
3111                "SINGLE-STEP-BREAKPOINT-TRAP"
3112                "INVALID-ARG-COUNT-TRAP"
3113                "SINGLE-VALUE-RETURN-BYTE-OFFSET" "SLOT-DOCS"
3114                "SLOT-NAME" "SLOT-OFFSET" "SLOT-OPTIONS"
3115                "SLOT-SPECIAL"
3116                "SLOT-REST-P" "*STATIC-FUNS*" "STATIC-FUN-OFFSET"
3117                "STATIC-SYMBOL-OFFSET" "STATIC-SYMBOL-P"
3118                "*STATIC-SPACE-FREE-POINTER*" "*STATIC-SYMBOLS*"
3119                "SYMBOL-HASH-SLOT" "SYMBOL-HEADER-WIDETAG" "SYMBOL-NAME-SLOT"
3120                "SYMBOL-PACKAGE-SLOT" "SYMBOL-INFO-SLOT"
3121                "SYMBOL-SIZE" "SYMBOL-VALUE-SLOT" "SYMBOL-TLS-INDEX-SLOT"
3122                "*BINDING-STACK-START*"
3123                "*CONTROL-STACK-START*" "*CONTROL-STACK-END*"
3124                "CONTROL-STACK-POINTER-VALID-P"
3125                "DYNAMIC-SPACE-START" "DYNAMIC-SPACE-END"
3126                #!+gencgc "MAX-DYNAMIC-SPACE-END"
3127                #!-gencgc("DYNAMIC-0-SPACE-START"
3128                          "DYNAMIC-0-SPACE-END"
3129                          "DYNAMIC-1-SPACE-START"
3130                          "DYNAMIC-1-SPACE-END")
3131                "READ-ONLY-SPACE-START" "READ-ONLY-SPACE-END"
3132                "STATIC-SPACE-START" "STATIC-SPACE-END"
3133                #!+linkage-table("LINKAGE-TABLE-SPACE-START"
3134                                 "LINKAGE-TABLE-SPACE-END"
3135                                 "LINKAGE-TABLE-ENTRY-SIZE")
3136                #!+sb-safepoint "GC-SAFEPOINT-PAGE-ADDR"
3137                "TLS-SIZE" "N-WIDETAG-BITS" "WIDETAG-MASK"
3138                "UNBOUND-MARKER-WIDETAG"
3139                "NO-TLS-VALUE-MARKER-WIDETAG"
3140                "UNSIGNED-REG-SC-NUMBER" "UNSIGNED-STACK-SC-NUMBER"
3141                "UNWIND-BLOCK-CODE-SLOT" "UNWIND-BLOCK-CFP-SLOT"
3142                "UNWIND-BLOCK-UWP-SLOT" "UNWIND-BLOCK-ENTRY-PC-SLOT"
3143                "UNWIND-BLOCK-SIZE" "VALUE-CELL-HEADER-WIDETAG" "VALUE-CELL-SIZE"
3144                "VALUE-CELL-VALUE-SLOT" "VECTOR-DATA-OFFSET" "VECTOR-LENGTH-SLOT"
3145                "VECTOR-NORMAL-SUBTYPE"
3146                "VECTOR-VALID-HASHING-SUBTYPE"
3147                "WEAK-POINTER-BROKEN-SLOT" "WEAK-POINTER-NEXT-SLOT"
3148                "WEAK-POINTER-SIZE" "WEAK-POINTER-WIDETAG"
3149                "WEAK-POINTER-VALUE-SLOT"
3150                "N-WORD-BITS" "N-WORD-BYTES" "N-MACHINE-WORD-BITS" "N-MACHINE-WORD-BYTES"
3151                "WORD-REG-SC-NUMBER" "WORD-SHIFT"
3152                #!+win32 "CONTEXT-RESTORE-TRAP"
3153                "ZERO-SC-NUMBER"))
3155    #s(sb-cold:package-data
3156       :name "SB!WALKER"
3157       :doc "internal: a code walker used by PCL"
3158       :use ("CL" "SB!INT" "SB!EXT")
3159       :export ("DEFINE-WALKER-TEMPLATE"
3160                "WALK-FORM"
3161                "*WALK-FORM-EXPAND-MACROS-P*"
3162                "VAR-LEXICAL-P" "VAR-SPECIAL-P"
3163                "VAR-GLOBALLY-SPECIAL-P"
3164                "VAR-DECLARATION"
3166                ;; These were exported from the original PCL version of this
3167                ;; package, but aren't used in SBCL.
3168                ;;"NESTED-WALK-FORM" "MACROEXPAND-ALL"
3169                ))
3171    #!+sb-eval
3172    #s(sb-cold:package-data
3173       :name "SB!EVAL"
3174       :doc "internal: the evaluator implementation used to execute code without compiling it."
3175       :use ("CL" "SB!KERNEL" "SB!EXT")
3176       :reexport ("*EVAL-CALLS*")
3177       :export ("INTERPRETED-FUNCTION"
3178                "INTERPRETED-FUNCTION-P"
3179                "INTERPRETED-FUNCTION-NAME"
3180                "INTERPRETED-FUNCTION-DEBUG-NAME"
3181                "INTERPRETED-FUNCTION-LAMBDA-LIST"
3182                "INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST"
3183                "INTERPRETED-FUNCTION-DECLARATIONS"
3184                "INTERPRETED-FUNCTION-DOCUMENTATION"
3185                "INTERPRETED-FUNCTION-BODY"
3186                "INTERPRETED-FUNCTION-SOURCE-LOCATION"
3187                "EVAL-IN-ENVIRONMENT"
3188                "MAKE-NULL-ENVIRONMENT"
3189                "EVAL-IN-NATIVE-ENVIRONMENT"
3190                "PREPARE-FOR-COMPILE"
3191                "*EVAL-LEVEL*"))
3193    #!+sb-fasteval
3194    #s(sb-cold:package-data
3195       :name "SB!INTERPRETER"
3196       :doc "internal: a new EVAL implementation with semantic preprocessing."
3197       :use ("CL" "SB!KERNEL" "SB!EXT" "SB!INT")
3198       :export ("BASIC-ENV"
3199                "ENV-POLICY"
3200                "EVAL-IN-ENVIRONMENT"
3201                "INTERPRETED-FUNCTION"
3202                "INTERPRETED-FUNCTION-P"
3203                "FIND-LEXICAL-FUN"
3204                "FIND-LEXICAL-VAR"
3205                "FUN-LAMBDA-EXPRESSION"
3206                "FUN-LAMBDA-LIST"
3207                "FUN-PROTO-FN"
3208                "FUN-SOURCE-LOCATION"
3209                "%FUN-TYPE" ; to avoid conflict with SB-KERNEL:FUN-TYPE
3210                "LEXENV-FROM-ENV"
3211                "LIST-LOCALS"
3212                "PREPARE-FOR-COMPILE"
3213                "PROTO-FN-DOCSTRING"
3214                "PROTO-FN-NAME"
3215                "PROTO-FN-PRETTY-ARGLIST"
3216                "TYPE-CHECK")
3217       :import-from (("SB!C"
3218                      "PARSE-EVAL-WHEN-SITUATIONS"
3219                      "MAKE-GLOBAL-VAR" "MAKE-LAMBDA-VAR"
3220                      "*LEXENV*")
3221                     ("SB!ALIEN" "%HEAP-ALIEN" "ALIEN-VALUE")
3222                     ("SB!KERNEL" "%%TYPEP")))
3224    #!+win32
3225    #s(sb-cold:package-data
3226       :name "SB!WIN32"
3227       :doc "private: a wrapper layer for Win32 functions needed by
3228 SBCL itself"
3229       :use ("CL" "SB!ALIEN" "SB!EXT" "SB!INT" "SB!SYS")
3230       :export ("BOOL"
3231                "CLOSE-HANDLE"
3232                "CREATE-FILE"
3233                "CREATE-FILE-MAPPING"
3234                "CRYPT-GEN-RANDOM"
3235                "DWORD"
3236                "FD-CLEAR-INPUT"
3237                "FD-LISTEN"
3238                "FILE-CREATE-ALWAYS"
3239                "FILE-CREATE-NEW"
3240                "FILE-OPEN-ALWAYS"
3241                "FILE-OPEN-EXISTING"
3242                "FILE-TRUNCATE-EXISTING"
3243                "FLUSH-CONSOLE-INPUT-BUFFER"
3244                "FLUSH-VIEW-OF-FILE"
3245                "FORMAT-SYSTEM-MESSAGE"
3246                "GET-FILE-ATTRIBUTES"
3247                "GET-FILE-SIZE-EX"
3248                "GET-FILE-TYPE"
3249                "GET-LAST-ERROR"
3250                "GET-OSFHANDLE"
3251                "GET-VERSION-EX"
3252                "HANDLE"
3253                "HANDLE-CLEAR-INPUT"
3254                "HANDLE-LISTEN"
3255                "INT-PTR"
3256                "INVALID-HANDLE"
3257                "LSEEKI64"
3258                "MAP-VIEW-OF-FILE"
3259                "MILLISLEEP"
3260                "PEEK-CONSOLE-INPUT"
3261                "PEEK-NAMED-PIPE"
3262                "READ-FILE"
3263                "UNIXLIKE-CLOSE"
3264                "UNIXLIKE-OPEN"
3265                "UNMAP-VIEW-OF-FILE"
3266                "WAIT-OBJECT-OR-SIGNAL"
3267                "WRITE-FILE"
3268                "WITH-PROCESS-TIMES")))