package-data-list.lisp-expr

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