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 (#s(sb-cold:package-data
  29     :name "SB!ALIEN"
  30     :doc "public: the ALIEN foreign function interface (If you're
  31 porting CMU CL code, note that this package corresponds roughly to a union
  32 of the packages ALIEN and C-CALL at the time of the SBCL fork. SB-C-CALL
  33 is a deprecated nickname to help ease the transition from older versions
  34 of SBCL which maintained the CMU-CL-style split into two packages.)"
  35     :use ("CL" "SB!EXT" "SB!INT" "SB!SYS" "SB!ALIEN-INTERNALS")
  36     :reexport ("ARRAY"
  37                "BOOLEAN" "CHAR" "DOUBLE-FLOAT"
  38                "FLOAT" "FUNCTION" "INTEGER" "LONG-FLOAT"
  39                "SINGLE-FLOAT"
  40                ;; FIXME: Do we really want to reexport
  41                ;; SYSTEM-AREA-POINTER here? Why?
  42                "SYSTEM-AREA-POINTER"
  43                "UNION"  "VALUES" "*")
  44     :export ("ADDR"
  45              "ALIEN"
  46              "ALIEN-FUNCALL" "ALIEN-SAP" "ALIEN-SIZE"
  47              "CAST" "C-STRING"
  48              "DEFINE-ALIEN-ROUTINE" "DEFINE-ALIEN-TYPE" "DEFINE-ALIEN-VARIABLE"
  49              "DEREF" "DOUBLE"
  50              "ENUM" "EXTERN-ALIEN"
  51              "FREE-ALIEN"
  52              "GET-ERRNO"
  53              "INT"
  54              "LOAD-1-FOREIGN" "LOAD-FOREIGN" "LOAD-SHARED-OBJECT" "LONG" "LONG-LONG"
  55              "MAKE-ALIEN"
  56              "NULL-ALIEN"
  57              "SAP-ALIEN" "SHORT" "SIGNED" "SLOT" "STRUCT"
  58              "UNDEFINED-ALIEN-ERROR"
  59              "UNLOAD-SHARED-OBJECT"
  60              "UNSIGNED"
  61              "UNSIGNED-CHAR" "UNSIGNED-INT" "UNSIGNED-LONG" "UNSIGNED-LONG-LONG" "UNSIGNED-SHORT"
  62              "UTF8-STRING"
  63              "VOID"
  64              "WITH-ALIEN"))
  65
  66    #s(sb-cold:package-data
  67       :name "SB!ALIEN-INTERNALS"
  68       :doc "private: stuff for implementing ALIENs and friends"
  69       :use ("CL")
  70       :export ("%CAST"
  71                "%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR"
  72                "%LOCAL-ALIEN-ADDR" "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN"
  73                "%SET-DEREF" "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT"
  74                "%SLOT-ADDR" "*VALUES-TYPE-OKAY*" "ALIEN-ARRAY-TYPE"
  75                "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE"
  76                "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P"
  77                "ALIEN-CALLBACK"
  78                "ALIEN-CALLBACK-ACCESSOR-FORM"
  79                "ALIEN-CALLBACK-ASSEMBLER-WRAPPER"
  80                "ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P"
  81                "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE"
  82                "ALIEN-FLOAT-TYPE-P" "ALIEN-FUN-TYPE"
  83                "ALIEN-FUN-TYPE-ARG-TYPES" "ALIEN-FUN-TYPE-P"
  84                "ALIEN-FUN-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE"
  85                "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED"
  86                "ALIEN-LONG-FLOAT-TYPE" "ALIEN-LONG-FLOAT-TYPE-P"
  87                "ALIEN-POINTER-TYPE" "ALIEN-POINTER-TYPE-P"
  88                "ALIEN-POINTER-TYPE-TO" "ALIEN-RECORD-FIELD"
  89                "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET"
  90                "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE"
  91                "ALIEN-RECORD-TYPE" "ALIEN-RECORD-TYPE-FIELDS"
  92                "ALIEN-RECORD-TYPE-P" "ALIEN-SINGLE-FLOAT-TYPE"
  93                "ALIEN-SINGLE-FLOAT-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE"
  94                "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS"
  95                "ALIEN-TYPE-P" "ALIEN-TYPEP"
  96                "ALIEN-VALUE" "ALIEN-VALUE-TYPE"
  97                "ALIEN-VALUE-SAP" "ALIEN-VALUE-P"
  98                "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P"
  99                "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "ALIEN-VOID-TYPE-P"
 100                "COMPUTE-ALIEN-REP-TYPE" "COMPUTE-DEPORT-ALLOC-LAMBDA"
 101                "COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA"
 102                "COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE"
 103                "COMPUTE-NATURALIZE-LAMBDA" "DEFINE-ALIEN-TYPE-CLASS"
 104                "DEFINE-ALIEN-TYPE-METHOD" "DEFINE-ALIEN-TYPE-TRANSLATOR"
 105                "DEPORT" "DEPORT-ALLOC"
 106                "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN"
 107                "*ENTER-ALIEN-CALLBACK*" "ENTER-ALIEN-CALLBACK"
 108                "EXTRACT-ALIEN-VALUE"
 109                "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM"
 110                "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN"
 111                "LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P"
 112                "LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE"
 113                "MAKE-ALIEN-FUN-TYPE" "MAKE-ALIEN-POINTER-TYPE"
 114                "MAKE-ALIEN-VALUE" "MAYBE-WITH-PINNED-OBJECTS"
 115                "MAKE-LOCAL-ALIEN" "NATURALIZE"
 116                "NOTE-LOCAL-ALIEN-TYPE"
 117                "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE"))
 118
 119    #s(sb-cold:package-data
 120       :name "SB!ASSEM"
 121       :doc "private: the assembler, used by the compiler"
 122       :use ("CL" "SB!EXT" "SB!INT")
 123       :export ("ASSEMBLY-UNIT"
 124
 125                "*ASSEM-SCHEDULER-P*"
 126                "*ASSEM-INSTRUCTIONS*"
 127                "*ASSEM-MAX-LOCATIONS*"
 128
 129                "EMIT-ALIGNMENT" "EMIT-BYTE" "EMIT-SKIP" "EMIT-BACK-PATCH"
 130                "EMIT-CHOOSER" "DEFINE-BITFIELD-EMITTER"
 131                "DEFINE-INSTRUCTION" "DEFINE-INSTRUCTION-MACRO"
 132                "DEF-ASSEMBLER-PARAMS" "EMIT-POSTIT"
 133
 134                "MAKE-SEGMENT" "SEGMENT-TYPE" "ASSEMBLE"
 135                "INST" "LABEL" "LABEL-P" "GEN-LABEL"
 136                "EMIT-LABEL" "LABEL-POSITION" "APPEND-SEGMENT" "FINALIZE-SEGMENT"
 137                "ON-SEGMENT-CONTENTS-VECTORLY" "WRITE-SEGMENT-CONTENTS"
 138                "READS" "WRITES" "SEGMENT"
 139                "WITHOUT-SCHEDULING"
 140                "VARIABLE-LENGTH"
 141                "SEGMENT-COLLECT-DYNAMIC-STATISTICS"
 142
 143                ;; FIXME: These are in the SB-ASSEM package now, but
 144                ;; (left over from CMU CL) are defined in files which
 145                ;; are IN-PACKAGE SB-C. It would probably be cleaner
 146                ;; to move at least most of them to files which are
 147                ;; IN-PACKAGE SB-ASSEM.
 148                "BRANCH" "DO-SSET-ELEMENTS" "FLUSHABLE" "MAKE-SSET" "SSET"
 149                "SSET-ADJOIN" "SSET-DELETE" "SSET-ELEMENT" "SSET-EMPTY"))
 150
 151    #s(sb-cold:package-data
 152       :name "SB!BIGNUM"
 153       :doc "private: bignum implementation"
 154       :use ("CL" "SB!KERNEL" "SB!INT" "SB!EXT")
 155       :export ("%ADD-WITH-CARRY"
 156                "%ALLOCATE-BIGNUM" "%ASHL" "%ASHR"
 157                "%BIGNUM-LENGTH" "%BIGNUM-REF" "%BIGNUM-REF-WITH-OFFSET"
 158                "%BIGNUM-SET" "%BIGNUM-SET-WITH-OFFSET"
 159                "%BIGNUM-SET-LENGTH" "%DIGIT-0-OR-PLUSP"
 160                "%DIGIT-LOGICAL-SHIFT-RIGHT"
 161                "%FIXNUM-DIGIT-WITH-CORRECT-SIGN" "%FIXNUM-TO-DIGIT"
 162                "%FLOOR" "%LOGAND" "%LOGIOR" "%LOGNOT" "%LOGXOR"
 163                "%MULTIPLY" "%MULTIPLY-AND-ADD"
 164                "%SUBTRACT-WITH-BORROW" "ADD-BIGNUMS"
 165                "BIGNUM-ASHIFT-LEFT" "BIGNUM-ASHIFT-RIGHT"
 166                "BIGNUM-COMPARE" "BIGNUM-DEPOSIT-BYTE"
 167                "BIGNUM-ELEMENT-TYPE" "BIGNUM-GCD" "BIGNUM-INDEX"
 168                "BIGNUM-INTEGER-LENGTH" "BIGNUM-LOAD-BYTE"
 169                "BIGNUM-LOGBITP"
 170                "BIGNUM-LOGCOUNT" "BIGNUM-LOGICAL-AND"
 171                "BIGNUM-LOGICAL-IOR" "BIGNUM-LOGICAL-NOT"
 172                "BIGNUM-LOGICAL-XOR" "BIGNUM-PLUS-P"
 173                "BIGNUM-TO-FLOAT" "BIGNUM-TRUNCATE" "BIGNUM-TYPE"
 174                "FLOAT-BIGNUM-RATIO" "MAKE-SMALL-BIGNUM"
 175                "MULTIPLY-BIGNUM-AND-FIXNUM" "MULTIPLY-BIGNUMS"
 176                "MULTIPLY-FIXNUMS" "NEGATE-BIGNUM"
 177                "SUBTRACT-BIGNUM" "SXHASH-BIGNUM"))
 178
 179    #s(sb-cold:package-data
 180       :name "SB!C"
 181       :doc "private: implementation of the compiler"
 182       ;; (It seems strange to have the compiler USE SB-ALIEN-INTERNALS,
 183       ;; but the point seems to be to be able to express things like
 184       ;; SB!C:DEFTRANSFORM SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN without
 185       ;; having to use a bunch of package prefixes, by putting them
 186       ;; in the SB-C package. Maybe it'd be tidier to define an SB-ALIEN-COMP
 187       ;; package for this? But it seems like a fairly low priority.)
 188       ;; (Probably the same considerations also explain why BIGNUM is
 189       ;;in the USE list.)
 190       :use ("CL" "SB!ALIEN-INTERNALS" "SB!ALIEN" "SB!ASSEM" "SB!BIGNUM"
 191                  #!+sb-dyncount "SB-DYNCOUNT" "SB!EXT" "SB!FASL" "SB!INT"
 192                  "SB!KERNEL" "SB!SYS")
 193       :reexport ("SLOT" "CODE-INSTRUCTIONS" "FLUSHABLE")
 194       :export ("%ALIEN-FUNCALL"
 195                "%CATCH-BREAKUP" "%CONTINUE-UNWIND"
 196                "%LISTIFY-REST-ARGS" "%MORE-ARG" "%MORE-ARG-VALUES"
 197                "%UNWIND-PROTECT-BREAKUP"
 198
 199                "*BACKEND-BYTE-ORDER*" "*BACKEND-DISASSEM-PARAMS*"
 200                "*BACKEND-INSTRUCTION-FLAVORS*" "*BACKEND-INSTRUCTION-FORMATS*"
 201                "*BACKEND-INTERNAL-ERRORS*" "*BACKEND-PAGE-BYTES*"
 202                "*BACKEND-REGISTER-SAVE-PENALTY*"
 203                "*BACKEND-SB-LIST*" "*BACKEND-SB-NAMES*"
 204                "*BACKEND-SC-NAMES*" "*BACKEND-SC-NUMBERS*"
 205                "*BACKEND-SPECIAL-ARG-TYPES*"
 206                "*BACKEND-SUBFEATURES*"
 207                "*BACKEND-T-PRIMITIVE-TYPE*"
 208
 209                "*CODE-SEGMENT*"
 210                "*COUNT-VOP-USAGES*" "*ELSEWHERE*" "*FREE-FUNS*"
 211                "*LEXENV*"
 212                "*SETF-ASSUMED-FBOUNDP*"
 213                "*SUPPRESS-VALUES-DECLARATION*"
 214
 215                #!+x86 "SET-FPU-WORD-FOR-C"
 216                #!+x86 "SET-FPU-WORD-FOR-LISP"
 217                "ALIGN-STACK-POINTER"
 218                "ALLOC-ALIEN-STACK-SPACE" "ALLOC-NUMBER-STACK-SPACE"
 219                "ALLOCATE-CODE-OBJECT" "ALLOCATE-FRAME"
 220                "ALLOCATE-DYNAMIC-CODE-OBJECT" "ALLOCATE-FULL-CALL-FRAME"
 221                "ALWAYS-TRANSLATABLE"
 222                "ANCESTOR-FRAME-REF" "ANCESTOR-FRAME-SET"
 223                "ANY" "ARG-COUNT-ERROR" "ASSEMBLE-FILE"
 224                "ATTRIBUTES" "ATTRIBUTES-INTERSECTION" "ATTRIBUTES-UNION"
 225                "ATTRIBUTES=" "BIND"
 226                "CALL" "CALL-LOCAL" "CALL-NAMED" "CALL-OUT" "CALL-VARIABLE"
 227                "CALLEE-NFP-TN" "CALLEE-RETURN-PC-TN"
 228                "CASE-BODY" "CATCH-BLOCK" "CHECK-CONS"
 229                "CHECK-FIXNUM" "CHECK-FUN"
 230                ;; FIXME: 32/64-bit issues
 231                "CHECK-SIGNED-BYTE-32" "CHECK-SIGNED-BYTE-64"
 232                "CHECK-SYMBOL"
 233                ;; FIXME: 32/64-bit issues
 234                "CHECK-UNSIGNED-BYTE-32" "CHECK-UNSIGNED-BYTE-64"
 235                "CLOSURE-INIT" "CLOSURE-REF" "CLOSURE-INIT-FROM-FP"
 236                "CODE-CONSTANT-REF" "CODE-CONSTANT-SET"
 237                "*CODE-COVERAGE-INFO*"
 238                "COMPARE-AND-SWAP-SLOT"
 239                "COMPILE-IN-LEXENV"
 240                "COMPILE-LAMBDA-FOR-DEFUN"
 241                "%COMPILER-DEFUN" "COMPILER-ERROR" "FATAL-COMPILER-ERROR"
 242                "COMPILER-NOTIFY"
 243                "COMPILER-STYLE-WARN" "COMPILER-WARN"
 244                "COMPONENT" "COMPONENT-HEADER-LENGTH"
 245                "COMPONENT-INFO" "COMPONENT-LIVE-TN" "COMPUTE-FUN"
 246                "COMPUTE-OLD-NFP" "COPY-MORE-ARG"
 247                "CURRENT-BINDING-POINTER" "CURRENT-NFP-TN"
 248                "CURRENT-STACK-POINTER"
 249                "DEALLOC-ALIEN-STACK-SPACE"
 250                "DEALLOC-NUMBER-STACK-SPACE"
 251                "DEBUG-CATCH-TAG"
 252                "DEF-IR1-TRANSLATOR"
 253                "!DEF-PRIMITIVE-TYPE" "!DEF-PRIMITIVE-TYPE-ALIAS"
 254                "DEFINE-SOURCE-TRANSFORM" "!DEF-VM-SUPPORT-ROUTINE"
 255                "DEFINE-ASSEMBLY-ROUTINE"
 256                "DEFINITION-SOURCE-LOCATION"
 257                "DEFINITION-SOURCE-LOCATION-NAMESTRING"
 258                "DEFINITION-SOURCE-LOCATION-TOPLEVEL-FORM-NUMBER"
 259                "DEFINITION-SOURCE-LOCATION-PLIST"
 260                "DEFINE-MODULAR-FUN"
 261                "DEFINE-MOVE-FUN"
 262                "DEFINE-MOVE-VOP" "DEFINE-STORAGE-BASE"
 263                "DEFINE-STORAGE-CLASS" "DEFINE-VOP"
 264                "DEFKNOWN" "DEFOPTIMIZER"
 265                "DEFTRANSFORM" "DERIVE-TYPE"
 266                "ENTRY-NODE-INFO-NLX-TAG" "ENTRY-NODE-INFO-ST-TOP"
 267                "PHYSENV-DEBUG-LIVE-TN" "PHYSENV-LIVE-TN"
 268                "FAST-SYMBOL-VALUE"
 269                "FAST-SYMBOL-GLOBAL-VALUE"
 270                "FIND-SAVED-FP-AND-PC"
 271                "FIXUP-NOTE-KIND"
 272                "FIXUP-NOTE-FIXUP"
 273                "FIXUP-NOTE-POSITION"
 274                "FOLDABLE"
 275                "FORCE-TN-TO-STACK"
 276                "FUN-INFO-DERIVE-TYPE" "FUN-INFO-IR2-CONVERT"
 277                "FUN-INFO-LTN-ANNOTATE" "FUN-INFO-OPTIMIZER"
 278                "GET-VECTOR-SUBTYPE"
 279                "GET-TOPLEVELISH-FILE-INFO"
 280                "HALT"
 281                "IF-EQ"
 282                "IMMEDIATE-TN-P"
 283                "INLINE-SYNTACTIC-CLOSURE-LAMBDA"
 284                "INSERT-STEP-CONDITIONS"
 285                "IR2-COMPONENT-CONSTANTS" "IR2-CONVERT"
 286                "IR2-PHYSENV-NUMBER-STACK-P"
 287                "KNOWN-CALL-LOCAL" "KNOWN-RETURN"
 288                "LAMBDA-WITH-LEXENV" "LEXENV-FIND"
 289                "LOCATION=" "LTN-ANNOTATE"
 290                "MAKE-ALIAS-TN" "MAKE-CATCH-BLOCK"
 291                "MAKE-CLOSURE" "MAKE-CONSTANT-TN"
 292                "MAKE-FIXUP-NOTE"
 293                "MAKE-LOAD-TIME-CONSTANT-TN" "MAKE-N-TNS" "MAKE-NORMAL-TN"
 294                "MAKE-OTHER-IMMEDIATE-TYPE" "MAKE-RANDOM-TN"
 295                "MAKE-REPRESENTATION-TN" "MAKE-RESTRICTED-TN" "MAKE-SC-OFFSET"
 296                "MAKE-STACK-POINTER-TN" "MAKE-TN-REF" "MAKE-UNWIND-BLOCK"
 297                "MAKE-WIRED-TN" "MAYBE-COMPILER-NOTIFY"
 298                "MAYBE-INLINE-SYNTACTIC-CLOSURE"
 299                "META-PRIMITIVE-TYPE-OR-LOSE"
 300                "META-SB-OR-LOSE" "META-SC-NUMBER-OR-LOSE" "META-SC-OR-LOSE"
 301                "MORE-ARG-CONTEXT" "MOVABLE" "MOVE" "MULTIPLE-CALL"
 302                "MULTIPLE-CALL-LOCAL" "MULTIPLE-CALL-NAMED"
 303                "MULTIPLE-CALL-VARIABLE"
 304                "%%NIP-DX" "%%NIP-VALUES"
 305                "NLX-ENTRY" "NLX-ENTRY-MULTIPLE"
 306                "NODE-STACK-ALLOCATE-P"
 307                "NON-DESCRIPTOR-STACK" "NOTE-ENVIRONMENT-START"
 308                "NOTE-THIS-LOCATION" "OPTIMIZER" "PACK-TRACE-TABLE"
 309                "PARSE-EVAL-WHEN-SITUATIONS"
 310                "POLICY"
 311                "%%POP-DX"
 312                "PREDICATE" "PRIMITIVE-TYPE" "PRIMITIVE-TYPE-OF"
 313                "PRIMITIVE-TYPE-OR-LOSE" "PRIMITIVE-TYPE-VOP"
 314                "PRIMITIVE-TYPE-NAME" "PUSH-VALUES"
 315                "READ-PACKED-BIT-VECTOR" "READ-VAR-INTEGER" "READ-VAR-STRING"
 316                #!+inline-constants "REGISTER-INLINE-CONSTANT"
 317                "RESET-STACK-POINTER" "RESTORE-DYNAMIC-STATE"
 318                "RETURN-MULTIPLE" "SAVE-DYNAMIC-STATE" "SB"
 319                "SB-ALLOCATED-SIZE" "SB-NAME" "SB-OR-LOSE" "SB-P" "SC" "SC-CASE"
 320                "SC-IS" "SC-NAME" "SC-NUMBER" "SC-NUMBER-OR-LOSE" "SC-OFFSET"
 321                "SC-OFFSET-OFFSET" "SC-OFFSET-SCN" "SC-OR-LOSE" "SC-P" "SC-SB"
 322                "SET-UNWIND-PROTECT" "SET-VECTOR-SUBTYPE"
 323                "SETUP-CLOSURE-ENVIRONMENT" "SETUP-ENVIRONMENT"
 324                "SOURCE-LOCATION"
 325                "SOURCE-TRANSFORM-LAMBDA"
 326                "SPECIFY-SAVE-TN"
 327                "STORE-COVERAGE-DATA"
 328                "TAIL-CALL" "TAIL-CALL-NAMED"
 329                "TAIL-CALL-VARIABLE" "TEMPLATE-OR-LOSE"
 330                "TN" "TN-OFFSET" "TN-P" "TN-REF" "TN-REF-ACROSS" "TN-REF-LOAD-TN"
 331                "TN-REF-NEXT" "TN-REF-NEXT-REF" "TN-REF-P" "TN-REF-TARGET"
 332                "TN-REF-TN" "TN-REF-VOP" "TN-REF-WRITE-P" "TN-SC" "TN-VALUE"
 333                "TRACE-TABLE-ENTRY" "TYPE-CHECK-ERROR" "UNBIND" "UNBIND-TO-HERE"
 334                "UNSAFE" "UNSAFELY-FLUSHABLE" "UNWIND" "UWP-ENTRY"
 335                "VERIFY-ARG-COUNT" "WRITE-PACKED-BIT-VECTOR"
 336                "WRITE-VAR-INTEGER" "WRITE-VAR-STRING" "XEP-ALLOCATE-FRAME"
 337                "LABEL-ID" "FIXUP" "FIXUP-FLAVOR" "FIXUP-NAME" "FIXUP-OFFSET"
 338                "FIXUP-P" "MAKE-FIXUP"
 339                "DEF-ALLOC"
 340                "VAR-ALLOC"
 341                "SAFE-FDEFN-FUN"
 342                "NOTE-FIXUP"
 343                "DEF-CASSER"
 344                "DEF-REFFER"
 345                "EMIT-CONSTANT"
 346                "EMIT-NOP"
 347                "DEF-SETTER"
 348                "FIXED-ALLOC"
 349                "MAKE-UNBOUND-MARKER"
 350                "MAKE-FUNCALLABLE-INSTANCE-TRAMP"
 351                "RETURN-SINGLE"
 352                "NOTE-NEXT-INSTRUCTION"
 353                "SET-SLOT"
 354                "LOCATION-NUMBER"
 355                "*COMPONENT-BEING-COMPILED*"
 356                "BLOCK-NUMBER"
 357                "BACKEND"
 358                "IR2-BLOCK-BLOCK"
 359                "VOP-BLOCK"
 360                "*ASSEMBLY-OPTIMIZE*"
 361                "LARGE-ALLOC"
 362                "%SET-SIMPLE-FUN-SELF"
 363                "VM-SUPPORT-ROUTINES-IMMEDIATE-CONSTANT-SC"
 364                "VM-SUPPORT-ROUTINES-LOCATION-PRINT-NAME"
 365                "VM-SUPPORT-ROUTINES-PRIMITIVE-TYPE-OF"
 366                "VM-SUPPORT-ROUTINES-PRIMITIVE-TYPE"
 367                "VM-SUPPORT-ROUTINES-MAKE-CALL-OUT-TNS"
 368                "VM-SUPPORT-ROUTINES-STANDARD-ARG-LOCATION"
 369                "VM-SUPPORT-ROUTINES-MAKE-RETURN-PC-PASSING-LOCATION"
 370                "VM-SUPPORT-ROUTINES-MAKE-OLD-FP-PASSING-LOCATION"
 371                "VM-SUPPORT-ROUTINES-MAKE-OLD-FP-SAVE-LOCATION"
 372                "VM-SUPPORT-ROUTINES-MAKE-RETURN-PC-SAVE-LOCATION"
 373                "VM-SUPPORT-ROUTINES-MAKE-ARG-COUNT-LOCATION"
 374                "VM-SUPPORT-ROUTINES-MAKE-NFP-TN"
 375                "VM-SUPPORT-ROUTINES-MAKE-STACK-POINTER-TN"
 376                "VM-SUPPORT-ROUTINES-MAKE-NUMBER-STACK-POINTER-TN"
 377                "VM-SUPPORT-ROUTINES-MAKE-UNKNOWN-VALUES-LOCATIONS"
 378                "VM-SUPPORT-ROUTINES-SELECT-COMPONENT-FORMAT"
 379                "VM-SUPPORT-ROUTINES-MAKE-NLX-SP-TN"
 380                "VM-SUPPORT-ROUTINES-MAKE-DYNAMIC-STATE-TNS"
 381                "VM-SUPPORT-ROUTINES-MAKE-NLX-ENTRY-ARG-START-LOCATION"
 382                "VM-SUPPORT-ROUTINES-GENERATE-CALL-SEQUENCE"
 383                "VM-SUPPORT-ROUTINES-GENERATE-RETURN-SEQUENCE"
 384                "VM-SUPPORT-ROUTINES-EMIT-NOP"
 385                "VM-SUPPORT-ROUTINES-LOCATION-NUMBER"
 386
 387                "WITH-SOURCE-LOCATION"
 388                "*SOURCE-LOCATION-THUNKS*"
 389
 390                "BRANCH-IF"))
 391
 392    #s(sb-cold:package-data
 393       :name "SB!DEBUG"
 394       :doc
 395       "sorta public: Eventually this should become the debugger interface, with
 396 basic stuff like BACKTRACE and ARG. For now, the actual supported interface
 397 is still mixed indiscriminately with low-level internal implementation stuff
 398 like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
 399       :use ("CL" "SB!EXT" "SB!INT" "SB!SYS" "SB!KERNEL")
 400       :reexport ("*DEBUG-PRINT-VARIABLE-ALIST*")
 401       :export ("*DEBUG-BEGINNER-HELP-P*"
 402                "*DEBUG-CONDITION*"
 403                "*DEBUG-READTABLE*" "*DEBUG-HELP-STRING*"
 404                "*FLUSH-DEBUG-ERRORS*" "*IN-THE-DEBUGGER*"
 405                "*SHOW-ENTRY-POINT-DETAILS*"
 406                "*TRACE-INDENTATION-STEP*" "*MAX-TRACE-INDENTATION*"
 407                "*TRACE-FRAME*" "*TRACED-FUN-LIST*"
 408                "ARG" "BACKTRACE" "BACKTRACE-AS-LIST" "INTERNAL-DEBUG" "VAR"
 409                "*PRINT-LOCATION-KIND*"
 410                "*ONLY-BLOCK-START-LOCATIONS*" "*STACK-TOP-HINT*"
 411                "*TRACE-VALUES*" "DO-DEBUG-COMMAND"
 412                "*TRACE-ENCAPSULATE-DEFAULT*"
 413                "FRAME-HAS-DEBUG-TAG-P"
 414                "UNWIND-TO-FRAME-AND-CALL"))
 415
 416    #s(sb-cold:package-data
 417       :name "SB!DI"
 418       :doc "private: primitives used to write debuggers"
 419       :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!VM")
 420       :import-from (("SB!C"
 421                      "DEBUG-SOURCE-FORM" "DEBUG-SOURCE-NAMESTRING"
 422                      "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED"
 423                      "DEBUG-SOURCE-START-POSITIONS" "MAKE-DEBUG-SOURCE"
 424                      "DEBUG-SOURCE" "DEBUG-SOURCE-P"))
 425       :reexport ("DEBUG-SOURCE-FORM"
 426                  "DEBUG-SOURCE-NAMESTRING"
 427                  "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED"
 428                  "DEBUG-SOURCE-START-POSITIONS" "DEBUG-SOURCE"
 429                  "DEBUG-SOURCE-P")
 430       :export ("ACTIVATE-BREAKPOINT"
 431                "AMBIGUOUS-DEBUG-VARS" "AMBIGUOUS-VAR-NAME" "BREAKPOINT"
 432                "BREAKPOINT-ACTIVE-P" "BREAKPOINT-HOOK-FUN" "BREAKPOINT-INFO"
 433                "BREAKPOINT-KIND" "BREAKPOINT-P" "BREAKPOINT-WHAT" "CODE-LOCATION"
 434                "CODE-LOCATION-DEBUG-BLOCK" "CODE-LOCATION-DEBUG-FUN"
 435                "CODE-LOCATION-DEBUG-SOURCE" "CODE-LOCATION-FORM-NUMBER"
 436                "CODE-LOCATION-P" "CODE-LOCATION-TOPLEVEL-FORM-OFFSET"
 437                "CODE-LOCATION-UNKNOWN-P" "CODE-LOCATION=" "DEACTIVATE-BREAKPOINT"
 438                "DEBUG-BLOCK" "DEBUG-BLOCK-ELSEWHERE-P" "DEBUG-BLOCK-P"
 439                "DEBUG-BLOCK-SUCCESSORS" "DEBUG-CONDITION" "DEBUG-ERROR"
 440                "DEBUG-FUN" "DEBUG-FUN-FUN" "DEBUG-FUN-KIND"
 441                "DEBUG-FUN-LAMBDA-LIST" "DEBUG-FUN-NAME"
 442                "DEBUG-FUN-P" "DEBUG-FUN-START-LOCATION"
 443                "DEBUG-FUN-SYMBOL-VARS"
 444                "DEBUG-SOURCE-ROOT-NUMBER" "DEBUG-VAR"
 445                "DEBUG-VAR-ID" "DEBUG-VAR-INFO-AVAILABLE"
 446                "DEBUG-VAR-SYMBOL-NAME" "DEBUG-VAR-P" "DEBUG-VAR-PACKAGE-NAME"
 447                "DEBUG-VAR-SYMBOL" "DEBUG-VAR-VALID-VALUE"
 448                "DEBUG-VAR-VALIDITY" "DEBUG-VAR-VALUE"
 449                "DELETE-BREAKPOINT"
 450                "DO-DEBUG-BLOCK-LOCATIONS" "DO-DEBUG-FUN-BLOCKS"
 451                "DO-DEBUG-FUN-VARS"
 452                "FORM-NUMBER-TRANSLATIONS"
 453                "FRAME" "FRAME-CATCHES" "FRAME-CODE-LOCATION"
 454                "FRAME-DEBUG-FUN" "FRAME-DOWN"
 455                "FRAME-FUN-MISMATCH" "FRAME-NUMBER" "FRAME-P" "FRAME-UP"
 456                "REPLACE-FRAME-CATCH-TAG"
 457                "FUN-DEBUG-FUN" "FUN-END-COOKIE-VALID-P"
 458                "INVALID-CONTROL-STACK-POINTER" "INVALID-VALUE"
 459                "LAMBDA-LIST-UNAVAILABLE" "MAKE-BREAKPOINT" "NO-DEBUG-BLOCKS"
 460                "NO-DEBUG-FUN-RETURNS" "NO-DEBUG-INFO" "PREPROCESS-FOR-EVAL"
 461                "EVAL-IN-FRAME" "RETURN-FROM-FRAME" "SOURCE-PATH-CONTEXT"
 462                "TOP-FRAME" "UNHANDLED-DEBUG-CONDITION" "UNKNOWN-CODE-LOCATION"
 463                "UNKNOWN-CODE-LOCATION-P" "UNKNOWN-DEBUG-VAR"
 464                "CODE-LOCATION-KIND" "FLUSH-FRAMES-ABOVE"))
 465
 466    #s(sb-cold:package-data
 467       :name "SB!DISASSEM"
 468       :doc "private: stuff related to the implementation of the disassembler"
 469       :use ("CL" "SB!EXT" "SB!INT")
 470       :export ("*DISASSEM-INST-ALIGNMENT-BYTES*"
 471                "*DISASSEM-NOTE-COLUMN*" "*DISASSEM-OPCODE-COLUMN-WIDTH*"
 472                "*DISASSEM-SCHEDULER-P*" "*DISASSEM-LOCATION-COLUMN-WIDTH*"
 473                "ADD-COMMENT-HOOK" "ADD-HOOK" "ADD-NOTE-HOOK"
 474                "ARG-VALUE" "CREATE-DSTATE" "DISASSEM-STATE"
 475                "DISASSEMBLE-CODE-COMPONENT"
 476                "DISASSEMBLE-FUN" "DISASSEMBLE-MEMORY"
 477                "DISASSEMBLE-SEGMENT" "DISASSEMBLE-SEGMENTS"
 478                "DSTATE-CODE" "DSTATE-CURPOS" "DSTATE-GET-INST-PROP"
 479                "DSTATE-GET-PROP" "DSTATE-PUT-INST-PROP"
 480                "DSTATE-NEXTPOS" "DSTATE-SEGMENT-LENGTH"
 481                "DSTATE-SEGMENT-SAP" "DSTATE-SEGMENT-START"
 482                "FIELD-TYPE" "FIND-INST" "GEN-FIELD-TYPE-DECL-FORM"
 483                "GEN-INST-DECL-FORM" "GEN-INST-FORMAT-DECL-FORM"
 484                "GET-CODE-SEGMENTS" "GET-FUN-SEGMENTS"
 485                "GET-INST-SPACE" "HANDLE-BREAK-ARGS"
 486                "INST" "INST-FORMAT" "LABEL-SEGMENTS"
 487                "MAYBE-NOTE-ASSEMBLER-ROUTINE"
 488                "MAYBE-NOTE-ASSOCIATED-STORAGE-REF"
 489                "MAYBE-NOTE-NIL-INDEXED-OBJECT"
 490                "MAYBE-NOTE-NIL-INDEXED-SYMBOL-SLOT-REF"
 491                "MAYBE-NOTE-SINGLE-STORAGE-REF" "NOTE"
 492                "NOTE-CODE-CONSTANT" "PARAMS" "PRIN1-QUOTED-SHORT"
 493                "PRIN1-SHORT" "PRINT-BYTES"
 494                "PRINT-CURRENT-ADDRESS" "PRINT-FIELD" "PRINT-INST"
 495                "PRINT-INST-USING" "PRINT-NOTES-AND-NEWLINE"
 496                "PRINT-WORDS" "SAP-REF-DCHUNK" "SEG-DEBUG-FUN"
 497                "SEG-LENGTH" "SEG-START" "SEGMENT"
 498                "SET-ADDRESS-PRINTING-RANGE" "SET-DISASSEM-PARAMS"
 499                "SET-DSTATE-SEGMENT" "SIGN-EXTEND" "SPECIALIZE"
 500                "GEN-PRINTER-DEF-FORMS-DEF-FORM" "MAKE-DSTATE"
 501                "DEFINE-ARG-TYPE" "GEN-ARG-TYPE-DEF-FORM"
 502                "READ-SIGNED-SUFFIX" "ADD-OFFS-HOOK"
 503                "MAKE-MEMORY-SEGMENT" "GEN-PREAMBLE-FORM"
 504                "MAKE-SEGMENT" "SEGMENT-OVERFLOW"
 505                "SEG-VIRTUAL-LOCATION" "MAKE-DECODED-INST"
 506                "DCHUNK" "*DEFAULT-DSTATE-HOOKS*"
 507                "MAKE-CODE-SEGMENT" "MAKE-OFFS-HOOK"
 508                "DSTATE-SEGMENT" "DSTATE-CUR-OFFS"
 509                "PRINC16" "INSTRUCTION" "DEFINE-INSTRUCTION-FORMAT"
 510                "DSTATE-NEXT-OFFS" "INSTALL-INST-FLAVORS"
 511                "SEG-SAP-MAKER" "DISASSEMBLE-ASSEM-SEGMENT"
 512                "GEN-CLEAR-INFO-FORM" "READ-SUFFIX"
 513                "MAP-SEGMENT-INSTRUCTIONS" "GEN-FORMAT-DEF-FORM"
 514                "SET-LOCATION-PRINTING-RANGE" "MAKE-VECTOR-SEGMENT"
 515                "ADD-OFFS-NOTE-HOOK" "ADD-OFFS-COMMENT-HOOK"
 516                "DSTATE-CUR-ADDR" "DSTATE-NEXT-ADDR"))
 517
 518    #!+sb-dyncount
 519    #s(sb-cold:package-data
 520       :name "SB!DYNCOUNT"
 521       :doc "private: some somewhat-stale code for collecting runtime statistics"
 522       :use ("CL" "SB!ALIEN-INTERNALS" "SB!ALIEN" "SB!BIGNUM"
 523                  "SB!EXT" "SB!INT" "SB!KERNEL" "SB!ASSEM" "SB!SYS")
 524       :export ("*COLLECT-DYNAMIC-STATISTICS*"
 525                "COUNT-ME"
 526                "DYNCOUNT-INFO-COUNTS" "DYNCOUNT-INFO-COSTS"
 527                "IR2-COMPONENT-DYNCOUNT-INFO"
 528                "DYNCOUNT-INFO" "DYNCOUNT-INFO-P"))
 529
 530    #s(sb-cold:package-data
 531       :name "SB!FASL"
 532       :doc "private: stuff related to FASL load/dump logic (and GENESIS)"
 533       :use ("CL" "SB!ALIEN" "SB!ASSEM" "SB!BIGNUM" "SB!C"
 534                  "SB!EXT" "SB!INT" "SB!KERNEL" "SB!SYS")
 535       :export ("*ASSEMBLER-ROUTINES*"
 536                "+BACKEND-FASL-FILE-IMPLEMENTATION+"
 537                "BUILD-ID-CORE-ENTRY-TYPE-CODE"
 538                "*FASL-FILE-TYPE*"
 539                "CLOSE-FASL-OUTPUT"
 540                "DUMP-ASSEMBLER-ROUTINES"
 541                "DUMP-OBJECT"
 542                "DYNAMIC-CORE-SPACE-ID"
 543                "END-CORE-ENTRY-TYPE-CODE"
 544                "FASL-CONSTANT-ALREADY-DUMPED-P"
 545                "+FASL-FILE-VERSION+"
 546                "FASL-DUMP-COMPONENT"
 547                "FASL-DUMP-COLD-FSET"
 548                "FASL-DUMP-LOAD-TIME-VALUE" "FASL-DUMP-LOAD-TIME-VALUE-LAMBDA"
 549                "FASL-DUMP-SOURCE-INFO" "FASL-DUMP-TOPLEVEL-LAMBDA-CALL"
 550                "FASL-NOTE-HANDLE-FOR-CONSTANT"
 551                "FASL-OUTPUT" "FASL-OUTPUT-P"
 552                "FASL-OUTPUT-ENTRY-TABLE" "FASL-OUTPUT-STREAM"
 553                "FASL-VALIDATE-STRUCTURE"
 554                "INITIAL-FUN-CORE-ENTRY-TYPE-CODE"
 555                "*!LOAD-TIME-VALUES*"
 556                "LOAD-TYPE-PREDICATE"
 557                #!+(and sb-thread sb-lutex) "LUTEX-TABLE-CORE-ENTRY-TYPE-CODE"
 558                "NEW-DIRECTORY-CORE-ENTRY-TYPE-CODE"
 559                "OPEN-FASL-OUTPUT" "PAGE-TABLE-CORE-ENTRY-TYPE-CODE"
 560                "READ-ONLY-CORE-SPACE-ID"
 561                "*!REVERSED-COLD-TOPLEVELS*"
 562                "STATIC-CORE-SPACE-ID"
 563                "VERSION-CORE-ENTRY-TYPE-CODE"))
 564
 565    ;; This package is a grab bag for things which used to be internal
 566    ;; symbols in package COMMON-LISP. Lots of these symbols are accessed
 567    ;; with explicit SB!IMPL:: prefixes in the code. It would be nice to
 568    ;; reduce the use of this practice, so if symbols from here which are
 569    ;; accessed that way are found to belong more appropriately in an
 570    ;; existing package (e.g. SB!KERNEL or SB!SYS or SB!EXT or SB!FASL),
 571    ;; I (WHN 19990223) encourage maintainers to move them there..
 572    #s(sb-cold:package-data
 573       :name "SB!IMPL"
 574       :doc "private: a grab bag of implementation details"
 575       :use ("CL" "SB!ALIEN" "SB!BIGNUM" "SB!DEBUG" "SB!EXT"
 576                  "SB!FASL" "SB!GRAY" "SB!INT" "SB!KERNEL" "SB!SYS"))
 577
 578    #s(sb-cold:package-data
 579       :name "SB!EXT"
 580       :doc "public: miscellaneous supported extensions to the ANSI Lisp spec"
 581       :use ("CL" "SB!ALIEN" "SB!INT" "SB!SYS" "SB!GRAY")
 582       :export ( ;; Information about how the program was invoked is
 583                ;; nonstandard but very useful.
 584                "*POSIX-ARGV*" "*CORE-PATHNAME*" "*RUNTIME-PATHNAME*"
 585                "POSIX-GETENV" "POSIX-ENVIRON"
 586
 587                ;; Atomic operations and types related to them
 588                "COMPARE-AND-SWAP"
 589                "ATOMIC-INCF"
 590                "ATOMIC-DECF"
 591                "WORD"
 592
 593                ;; Time related things
 594                "CALL-WITH-TIMING"
 595                "GET-TIME-OF-DAY"
 596
 597                ;; People have various good reasons to mess with the GC.
 598                "*AFTER-GC-HOOKS*"
 599                "BYTES-CONSED-BETWEEN-GCS"
 600                "GC" "GET-BYTES-CONSED"
 601                "*GC-RUN-TIME*"
 602                "PURIFY"
 603                ;; Gencgc only, but symbols exist for manual building
 604                ;; convenience on all platforms.
 605                "GENERATION-AVERAGE-AGE"
 606                "GENERATION-BYTES-ALLOCATED"
 607                "GENERATION-BYTES-CONSED-BETWEEN-GCS"
 608                "GENERATION-MINIMUM-AGE-BEFORE-GC"
 609                "GENERATION-NUMBER-OF-GCS"
 610                "GENERATION-NUMBER-OF-GCS-BEFORE-PROMOTION"
 611
 612                ;; Stack allocation control
 613                "*STACK-ALLOCATE-DYNAMIC-EXTENT*"
 614
 615                ;; Customizing printing of compiler and debugger messages
 616                "*COMPILER-PRINT-VARIABLE-ALIST*"
 617                "*DEBUG-PRINT-VARIABLE-ALIST*"
 618
 619                ;; Hooks into init & save sequences
 620                "*INIT-HOOKS*" "*SAVE-HOOKS*" "*EXIT-HOOKS*"
 621
 622                ;; There is no one right way to report progress on
 623                ;; hairy compiles.
 624                "*COMPILE-PROGRESS*"
 625
 626                ;; It can be handy to be able to evaluate expressions involving
 627                ;; the thing under examination by CL:INSPECT.
 628                "*INSPECTED*"
 629
 630                ;; There is no one right way to do efficiency notes.
 631                "*EFFICIENCY-NOTE-COST-THRESHOLD*" "*EFFICIENCY-NOTE-LIMIT*"
 632
 633                ;; There's no one right way to report errors.
 634                "*ENCLOSING-SOURCE-CUTOFF*"
 635                "*UNDEFINED-WARNING-LIMIT*"
 636
 637                ;; and for dedicated users who really want to customize
 638                ;; error reporting, we have
 639                "DEFINE-SOURCE-CONTEXT"
 640
 641                ;; and given how many users dislike strict treatment of
 642                ;; DEFCONSTANT, let's give them enough rope to escape by
 643                "DEFCONSTANT-UNEQL" "DEFCONSTANT-UNEQL-NAME"
 644                "DEFCONSTANT-UNEQL-NEW-VALUE" "DEFCONSTANT-UNEQL-OLD-VALUE"
 645
 646                ;; global lexicals, access to global symbol values
 647                "DEFGLOBAL"
 648                "SYMBOL-GLOBAL-VALUE"
 649
 650                ;; package-locking stuff
 651                #!+sb-package-locks "PACKAGE-LOCKED-P"
 652                #!+sb-package-locks "LOCK-PACKAGE"
 653                #!+sb-package-locks "UNLOCK-PACKAGE"
 654                #!+sb-package-locks "PACKAGE-IMPLEMENTED-BY-LIST"
 655                #!+sb-package-locks "PACKAGE-IMPLEMENTS-LIST"
 656                #!+sb-package-locks "ADD-IMPLEMENTATION-PACKAGE"
 657                #!+sb-package-locks "REMOVE-IMPLEMENTATION-PACKAGE"
 658                #!+sb-package-locks "WITH-UNLOCKED-PACKAGES"
 659                #!+sb-package-locks "PACKAGE-LOCK-VIOLATION"
 660                #!+sb-package-locks "PACKAGE-LOCKED-ERROR"
 661                #!+sb-package-locks "SYMBOL-PACKAGE-LOCKED-ERROR"
 662                #!+sb-package-locks "PACKAGE-LOCKED-ERROR-SYMBOL"
 663                "WITHOUT-PACKAGE-LOCKS"
 664                "DISABLE-PACKAGE-LOCKS"
 665                "ENABLE-PACKAGE-LOCKS"
 666
 667                ;; Custom conditions & condition accessors for users to handle.
 668                "CODE-DELETION-NOTE"
 669                "COMPILER-NOTE"
 670                "IMPLICIT-GENERIC-FUNCTION-NAME"
 671                "IMPLICIT-GENERIC-FUNCTION-WARNING"
 672                "INVALID-FASL"
 673
 674                "NAME-CONFLICT" "NAME-CONFLICT-FUNCTION"
 675                "NAME-CONFLICT-DATUM" "NAME-CONFLICT-SYMBOLS"
 676                "RESOLVE-CONFLICT"
 677
 678                ;; and a mechanism for controlling same at compile time
 679                "MUFFLE-CONDITIONS" "UNMUFFLE-CONDITIONS"
 680
 681                ;; and one for controlling same at runtime
 682                "*MUFFLED-WARNINGS*"
 683
 684                ;; extended declarations..
 685                "ALWAYS-BOUND" "FREEZE-TYPE" "GLOBAL" "INHIBIT-WARNINGS"
 686                "MAYBE-INLINE"
 687
 688                ;; ..and variables to control compiler policy
 689                "*INLINE-EXPANSION-LIMIT*"
 690                "*DERIVE-FUNCTION-TYPES*"
 691
 692                ;; ..and inspector of compiler policy
 693                "DESCRIBE-COMPILER-POLICY"
 694                "RESTRICT-COMPILER-POLICY"
 695                "WITH-COMPILER-POLICY"
 696
 697                ;; a special form for breaking out of our "declarations
 698                ;; are assertions" default
 699                "TRULY-THE"
 700
 701                ;; Misc. array and vector tools.
 702                "ARRAY-STORAGE-VECTOR"
 703
 704                ;; This is something which must exist inside any Common
 705                ;; Lisp implementation, and which someone writing a
 706                ;; customized toplevel might well want. It seems perverse
 707                ;; to hide it from them..
 708                "INTERACTIVE-EVAL"
 709
 710                ;; weak pointers and finalization
 711                "CANCEL-FINALIZATION"
 712                "FINALIZE"
 713                "MAKE-WEAK-POINTER"
 714                "WEAK-POINTER"
 715                "WEAK-POINTER-P"
 716                "WEAK-POINTER-VALUE"
 717
 718                ;; Hash table extensions
 719                "DEFINE-HASH-TABLE-TEST"
 720                "HASH-TABLE-SYNCHRONIZED-P"
 721                "HASH-TABLE-WEAKNESS"
 722                "WITH-LOCKED-HASH-TABLE"
 723
 724                ;; If the user knows we're doing IEEE, he might reasonably
 725                ;; want to do this stuff.
 726                "FLOAT-DENORMALIZED-P"
 727                "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P"
 728                "FLOAT-INFINITY-P"
 729                "SHORT-FLOAT-NEGATIVE-INFINITY"
 730                "SHORT-FLOAT-POSITIVE-INFINITY"
 731                "SINGLE-FLOAT-NEGATIVE-INFINITY"
 732                "SINGLE-FLOAT-POSITIVE-INFINITY"
 733                "DOUBLE-FLOAT-NEGATIVE-INFINITY"
 734                "DOUBLE-FLOAT-POSITIVE-INFINITY"
 735                "LONG-FLOAT-NEGATIVE-INFINITY"
 736                "LONG-FLOAT-POSITIVE-INFINITY"
 737
 738                ;; hacks to work around system limitations
 739                "*INTEXP-MAXIMUM-EXPONENT*" ; since we crash hard when
 740                                         ; memory is exhausted
 741
 742                ;; saving Lisp images
 743                "SAVE-LISP-AND-DIE"
 744
 745                ;; provided for completeness to make it more convenient
 746                ;; to use command-line --disable-debugger functionality
 747                ;; in oddball situations (like building core files using
 748                ;; scripts which run unattended, when the core files are
 749                ;; intended for interactive use)
 750                "DISABLE-DEBUGGER"
 751                "ENABLE-DEBUGGER"
 752
 753                ;; the mechanism by which {en,dis}able-debugger works is
 754                ;; also exported for people writing alternative toplevels
 755                ;; (Emacs, CLIM interfaces, etc)
 756                "*INVOKE-DEBUGGER-HOOK*"
 757
 758                ;; miscellaneous useful supported extensions
 759                "QUIT"
 760                "*ED-FUNCTIONS*"
 761                "*MODULE-PROVIDER-FUNCTIONS*"
 762                "WITH-TIMEOUT" "TIMEOUT"
 763                "SEED-RANDOM-STATE"
 764                "TYPEXPAND-1" "TYPEXPAND" "TYPEXPAND-ALL"
 765                "DEFINED-TYPE-NAME-P" "VALID-TYPE-SPECIFIER-P"
 766                "DELETE-DIRECTORY"
 767
 768                ;; stepping interface
 769                "STEP-CONDITION" "STEP-FORM-CONDITION" "STEP-FINISHED-CONDITION"
 770                "STEP-VALUES-CONDITION" "STEP-VARIABLE-CONDITION"
 771                "STEP-CONDITION-FORM" "STEP-CONDITION-RESULT"
 772                "STEP-CONTINUE" "STEP-NEXT" "STEP-INTO"
 773                "STEP-CONDITION-ARGS" "*STEPPER-HOOK*" "STEP-OUT"
 774
 775                ;; RUN-PROGRAM is not only useful for users, but also
 776                ;; useful to implement parts of SBCL itself, so we're
 777                ;; going to have to implement it anyway, so we might
 778                ;; as well support it. And then once we're committed
 779                ;; to implementing RUN-PROGRAM, it's nice to have it
 780                ;; return a PROCESS object with operations defined on
 781                ;; that object.
 782                "RUN-PROGRAM"
 783                "PROCESS-ALIVE-P" "PROCESS-CLOSE"
 784                "PROCESS-CORE-DUMPED" "PROCESS-ERROR" "PROCESS-EXIT-CODE"
 785                "PROCESS-INPUT" "PROCESS-KILL" "PROCESS-OUTPUT" "PROCESS-P"
 786                "PROCESS-PID" "PROCESS-PLIST" "PROCESS-PTY" "PROCESS-STATUS"
 787                "PROCESS-STATUS-HOOK" "PROCESS-WAIT"
 788
 789                ;; pathnames
 790                "NATIVE-PATHNAME"
 791                "PARSE-NATIVE-NAMESTRING"
 792                "NATIVE-NAMESTRING"
 793
 794                ;; external-format support
 795                "OCTETS-TO-STRING" "STRING-TO-OCTETS"
 796
 797                ;; Whether to use the interpreter or the compiler for EVAL
 798                "*EVALUATOR-MODE*"
 799
 800                ;; timer
 801                "TIMER" "MAKE-TIMER" "TIMER-NAME" "TIMER-SCHEDULED-P"
 802                "SCHEDULE-TIMER" "UNSCHEDULE-TIMER" "LIST-ALL-TIMERS"))
 803
 804    #s(sb-cold:package-data
 805       :name "SB!FORMAT"
 806       :doc "private: implementation of FORMAT and friends"
 807       :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL")
 808       :export ("%COMPILER-WALK-FORMAT-STRING" "FORMAT-ERROR"))
 809
 810    #s(sb-cold:package-data
 811       :name "SB!GRAY"
 812       :doc
 813       "public: an implementation of the stream-definition-by-user
 814 Lisp extension proposal by David N. Gray"
 815       :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL")
 816       :export ("FUNDAMENTAL-BINARY-STREAM"
 817                "FUNDAMENTAL-BINARY-INPUT-STREAM"
 818                "FUNDAMENTAL-BINARY-OUTPUT-STREAM" "FUNDAMENTAL-CHARACTER-STREAM"
 819                "FUNDAMENTAL-CHARACTER-INPUT-STREAM"
 820                "FUNDAMENTAL-CHARACTER-OUTPUT-STREAM"
 821                "FUNDAMENTAL-INPUT-STREAM" "FUNDAMENTAL-OUTPUT-STREAM"
 822                "FUNDAMENTAL-STREAM"
 823                "STREAM-ADVANCE-TO-COLUMN" "STREAM-CLEAR-INPUT"
 824                "STREAM-CLEAR-OUTPUT" "STREAM-FILE-POSITION" "STREAM-FINISH-OUTPUT" "STREAM-FORCE-OUTPUT"
 825                "STREAM-FRESH-LINE" "STREAM-LINE-COLUMN" "STREAM-LINE-LENGTH"
 826                "STREAM-LISTEN" "STREAM-PEEK-CHAR" "STREAM-READ-BYTE"
 827                "STREAM-READ-CHAR" "STREAM-READ-CHAR-NO-HANG" "STREAM-READ-LINE"
 828                "STREAM-READ-SEQUENCE" "STREAM-START-LINE-P" "STREAM-TERPRI"
 829                "STREAM-UNREAD-CHAR"
 830                "STREAM-WRITE-BYTE" "STREAM-WRITE-CHAR" "STREAM-WRITE-SEQUENCE"
 831                "STREAM-WRITE-STRING"))
 832
 833    #s(sb-cold:package-data
 834       :name "SB!INT"
 835       :doc
 836       "private: miscellaneous unsupported extensions to the ANSI spec. Much of
 837 the stuff in here originated in CMU CL's EXTENSIONS package and is retained,
 838 possibly temporariliy, because it might be used internally."
 839       :use ("CL" "SB!ALIEN" "SB!GRAY" "SB!FASL" "SB!SYS")
 840       :export (;; lambda list keyword extensions
 841                "&MORE"
 842
 843                ;; utilities for floating point zero handling
 844                "FP-ZERO-P"
 845                "NEG-FP-ZERO"
 846
 847                ;; Stack allocation without any questions asked
 848                "TRULY-DYNAMIC-EXTENT"
 849
 850                ;; generic set implementation
 851                "ADD-TO-XSET"
 852                "ALLOC-XSET"
 853                "MAP-XSET"
 854                "XSET"
 855                "XSET-COUNT"
 856                "XSET-EMPTY-P"
 857                "XSET-INTERSECTION"
 858                "XSET-MEMBER-P"
 859                "XSET-MEMBERS"
 860                "XSET-SUBSET-P"
 861                "XSET-UNION"
 862
 863                ;; communication between the runtime and Lisp
 864                "*CORE-STRING*"
 865
 866                ;; INFO stuff doesn't belong in a user-visible package, we
 867                ;; should be able to change it without apology.
 868                "*INFO-ENVIRONMENT*"
 869                "CLEAR-INFO"
 870                "COMPACT-INFO-ENVIRONMENT"
 871                "DEFINE-INFO-CLASS" "DEFINE-INFO-TYPE"
 872                "DO-INFO"
 873                "INFO"
 874                "MAKE-INFO-ENVIRONMENT"
 875
 876                ;; GENSYM variant that appends the current non-nil block
 877                ;; name to the string if possible
 878                "BLOCK-GENSYM"
 879
 880                ;; Calling a list of hook functions, plus error handling.
 881                "CALL-HOOKS"
 882
 883                ;; Constant form evaluation
 884                "CONSTANT-FORM-VALUE"
 885                "CONSTANT-TYPEP"
 886
 887                ;; stepping control
 888                "*STEPPING*" "*STEP*"
 889
 890                ;; packages grabbed once and for all
 891                "*KEYWORD-PACKAGE*" "*CL-PACKAGE*"
 892
 893                ;; hash mixing operations
 894                "MIX" "MIXF"
 895
 896                ;; I'm not convinced that FDEFINITIONs are the ideal
 897                ;; solution, so exposing ways to peek into the system
 898                ;; seems undesirable, since it makes it harder to get
 899                ;; rid of FDEFINITIONs entirely later.
 900                "*SETF-FDEFINITION-HOOK*"
 901
 902                ;; error-reporting facilities
 903                "ARGUMENTS-OUT-OF-DOMAIN-ERROR"
 904                "BAD-TYPE"
 905                "CLOSED-STREAM-ERROR"
 906                "COMPILED-PROGRAM-ERROR"
 907                "ENCAPSULATED-CONDITION"
 908                "INTERPRETED-PROGRAM-ERROR"
 909                "INVALID-ARRAY-ERROR"
 910                "INVALID-ARRAY-INDEX-ERROR"
 911                "INVALID-ARRAY-P"
 912                "SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"
 913                "SIMPLE-PARSE-ERROR" "SIMPLE-PROGRAM-ERROR"
 914                "SIMPLE-READER-ERROR"
 915                "SIMPLE-READER-PACKAGE-ERROR"
 916                "SIMPLE-REFERENCE-ERROR"
 917                "SIMPLE-REFERENCE-WARNING"
 918                "SIMPLE-STREAM-ERROR"
 919                "SIMPLE-STORAGE-CONDITION"
 920                "SIMPLE-STYLE-WARNING"
 921                "TRY-RESTART"
 922
 923                ;; error-signalling facilities
 924                "STANDARD-READTABLE-MODIFIED-ERROR"
 925                "STANDARD-PPRINT-DISPATCH-TABLE-MODIFIED-ERROR"
 926                "ARRAY-BOUNDING-INDICES-BAD-ERROR"
 927                "CIRCULAR-LIST-ERROR"
 928                "SEQUENCE-BOUNDING-INDICES-BAD-ERROR"
 929                "SPECIAL-FORM-FUNCTION"
 930                "STYLE-WARN" "SIMPLE-COMPILER-NOTE"
 931
 932                ;; FIXME: potential SB!EXT exports
 933                "CHARACTER-CODING-ERROR"
 934                "CHARACTER-DECODING-ERROR" "CHARACTER-DECODING-ERROR-OCTETS"
 935                "CHARACTER-ENCODING-ERROR" "CHARACTER-ENCODING-ERROR-CODE"
 936                "STREAM-DECODING-ERROR" "STREAM-ENCODING-ERROR"
 937                "C-STRING-ENCODING-ERROR" "C-STRING-ENCODING-ERROR-EXTERNAL-FORMAT"
 938                "C-STRING-DECODING-ERROR" "C-STRING-DECODING-ERROR-EXTERNAL-FORMAT"
 939                "ATTEMPT-RESYNC" "FORCE-END-OF-FILE"
 940
 941                ;; bootstrapping magic, to make things happen both in
 942                ;; the cross-compilation host compiler's environment and
 943                ;; in the cross-compiler's environment
 944                "DEF!CONSTANT" "DEF!MACRO" "DEF!METHOD" "DEF!STRUCT" "DEF!TYPE"
 945
 946                ;; stuff for hinting to the compiler
 947                "NAMED-LAMBDA"
 948
 949                ;; other variations on DEFFOO stuff useful for bootstrapping
 950                ;; and cross-compiling
 951                "DEFMACRO-MUNDANELY"
 952                "DEFCONSTANT-EQX"
 953                "DEFINE-UNSUPPORTED-FUN"
 954
 955                ;; messing with PATHNAMEs
 956                "MAKE-TRIVIAL-DEFAULT-PATHNAME"
 957                "PHYSICALIZE-PATHNAME"
 958                "SANE-DEFAULT-PATHNAME-DEFAULTS"
 959                "SBCL-HOMEDIR-PATHNAME"
 960                "SIMPLIFY-NAMESTRING"
 961
 962                "*N-BYTES-FREED-OR-PURIFIED*"
 963
 964                ;; miscellaneous non-standard but handy user-level functions..
 965                "ASSQ" "DELQ" "MEMQ" "POSQ" "NEQ"
 966                "ADJUST-LIST"
 967                "%FIND-PACKAGE-OR-LOSE" "FIND-UNDELETED-PACKAGE-OR-LOSE"
 968                "SANE-PACKAGE"
 969                "MAYBE-CYCLIC-P"
 970                "COMPOUND-OBJECT-P"
 971                "SWAPPED-ARGS-FUN"
 972                "AND/TYPE" "NOT/TYPE"
 973                "ANY/TYPE" "EVERY/TYPE"
 974                "EQUAL-BUT-NO-CAR-RECURSION"
 975                "TYPE-BOUND-NUMBER"
 976                "CONSTANTLY-T" "CONSTANTLY-NIL" "CONSTANTLY-0"
 977                "PSXHASH"
 978                "%BREAK"
 979                "NTH-BUT-WITH-SANE-ARG-ORDER"
 980                "DEPRECATION-WARNING"
 981                "BIT-VECTOR-="
 982                "READ-EVALUATED-FORM"
 983                "MAKE-UNPRINTABLE-OBJECT"
 984                "POWER-OF-TWO-CEILING"
 985
 986                ;; ..and macros..
 987                "COLLECT"
 988                "DO-ANONYMOUS" "DOHASH" "DOVECTOR"
 989                "NAMED-LET"
 990                "ONCE-ONLY"
 991                "DEFENUM"
 992                "DEFPRINTER"
 993                "AVER" "ENFORCE-TYPE"
 994                "DX-FLET" "DX-LET"
 995                "AWHEN" "ACOND" "IT"
 996                "BINDING*"
 997                "!DEF-BOOLEAN-ATTRIBUTE"
 998                "WITH-REBOUND-IO-SYNTAX"
 999                "WITH-SANE-IO-SYNTAX"
1000
1001                ;; ..and CONDITIONs..
1002                "BUG"
1003                "UNSUPPORTED-OPERATOR"
1004
1005                "BOOTSTRAP-PACKAGE-NAME"
1006                "BOOTSTRAP-PACKAGE-NOT-FOUND"
1007                "DEBOOTSTRAP-PACKAGE"
1008
1009                "REFERENCE-CONDITION" "REFERENCE-CONDITION-REFERENCES"
1010                "*PRINT-CONDITION-REFERENCES*"
1011
1012                "DUPLICATE-DEFINITION" "DUPLICATE-DEFINITION-NAME"
1013                "PACKAGE-AT-VARIANCE" "ARRAY-INITIAL-ELEMENT-MISMATCH"
1014                "TYPE-WARNING" "TYPE-STYLE-WARNING"
1015                "LOCAL-ARGUMENT-MISMATCH"
1016                "FORMAT-ARGS-MISMATCH" "FORMAT-TOO-FEW-ARGS-WARNING"
1017                "FORMAT-TOO-MANY-ARGS-WARNING" "EXTENSION-FAILURE"
1018                "STRUCTURE-INITARG-NOT-KEYWORD" "CONSTANT-MODIFIED"
1019
1020                ;; ..and DEFTYPEs..
1021                "MAX-HASH" "HASH"
1022                "INDEX" "LOAD/STORE-INDEX"
1023                "SIGNED-BYTE-WITH-A-BITE-OUT"
1024                "UNSIGNED-BYTE-WITH-A-BITE-OUT"
1025                "SFUNCTION" "UNSIGNED-BYTE*"
1026                "CONSTANT-DISPLACEMENT"
1027                ;; ..and type predicates
1028                "INSTANCEP"
1029                "DOUBLE-FLOAT-P"
1030                "LOGICAL-PATHNAME-P"
1031                "LONG-FLOAT-P"
1032                "SHORT-FLOAT-P"
1033                "SINGLE-FLOAT-P"
1034                "FIXNUMP"
1035                "BIGNUMP"
1036                "RATIOP"
1037
1038                ;; encapsulation
1039                "ARG-LIST"
1040                "BASIC-DEFINITION"
1041                "ENCAPSULATE" "ENCAPSULATED-P"
1042                "UNENCAPSULATE"
1043
1044                ;; various CHAR-CODEs
1045                "BACKSPACE-CHAR-CODE" "BELL-CHAR-CODE" "ESCAPE-CHAR-CODE"
1046                "FORM-FEED-CHAR-CODE" "LINE-FEED-CHAR-CODE"
1047                "RETURN-CHAR-CODE" "RUBOUT-CHAR-CODE" "TAB-CHAR-CODE"
1048
1049                ;; symbol-hacking idioms
1050                "KEYWORDICATE" "SYMBOLICATE"
1051
1052                ;; certainly doesn't belong in public extensions
1053                ;; FIXME: maybe belongs in %KERNEL with other typesystem stuff?
1054                "CONSTANT-ARG"
1055
1056                ;; various internal defaults
1057                "DEFAULT-INIT-CHAR" "*DEFAULT-INIT-CHAR-FORM*"
1058                "*LOAD-SOURCE-DEFAULT-TYPE*" "BASE-CHAR-CODE-LIMIT"
1059
1060                ;; hash caches
1061                "DEFINE-HASH-CACHE"
1062                "DEFUN-CACHED"
1063                "DEFINE-CACHED-SYNONYM"
1064
1065                ;; time
1066                "FORMAT-DECODED-TIME"
1067                "FORMAT-UNIVERSAL-TIME"
1068
1069                ;; indenting
1070                "MAKE-INDENTING-STREAM"
1071
1072                ;; stream commands, used by the debugger
1073                "GET-STREAM-COMMAND" "MAKE-STREAM-COMMAND" "STREAM-COMMAND"
1074                "STREAM-COMMAND-ARGS" "STREAM-COMMAND-NAME" "STREAM-COMMAND-P"
1075
1076                ;; used for FORMAT tilde paren
1077                "MAKE-CASE-FROB-STREAM"
1078
1079                ;; helpers for C library calls
1080                "STRERROR" "SIMPLE-PERROR"
1081
1082                ;; debuggers' little helpers
1083                #!+sb-show "*/SHOW*"
1084                #!+sb-show "HEXSTR"
1085                "/SHOW"  "/NOSHOW"
1086                "/XHOW"  "/NOXHOW"
1087                "/SHOW0" "/NOSHOW0"
1088                "/HEXSTR" "/NOHEXSTR"
1089                "/PRIMITIVE-PRINT" "/NO-PRIMITIVE-PRINT"
1090
1091                ;; cross-compilation bootstrap hacks which turn into
1092                ;; placeholders in a target system
1093                "UNCROSS"
1094
1095                ;; might as well be shared among the various files which
1096                ;; need it:
1097                "*EOF-OBJECT*"
1098
1099                ;; allocation to static space
1100                "MAKE-STATIC-VECTOR"
1101
1102                ;; alien interface utilities
1103                "C-STRINGS->STRING-LIST"
1104
1105                ;; misc. utilities used internally
1106                "DEFINE-FUNCTION-NAME-SYNTAX" "VALID-FUNCTION-NAME-P" ; should be SB!EXT?
1107                "LEGAL-FUN-NAME-P" "LEGAL-FUN-NAME-OR-TYPE-ERROR"
1108                "FUN-NAME-BLOCK-NAME"
1109                "FUN-NAME-INLINE-EXPANSION"
1110                "LISTEN-SKIP-WHITESPACE"
1111                "PACKAGE-INTERNAL-SYMBOL-COUNT" "PACKAGE-EXTERNAL-SYMBOL-COUNT"
1112                "PARSE-BODY" "PARSE-LAMBDA-LIST" "PARSE-LAMBDA-LIST-LIKE-THING"
1113                "PROPER-LIST-OF-LENGTH-P"
1114                "LIST-OF-LENGTH-AT-LEAST-P"
1115                "LIST-WITH-LENGTH-P"
1116                "SINGLETON-P"
1117                "READ-SEQUENCE-OR-DIE"
1118                "RENAME-KEY-ARGS"
1119                "MISSING-ARG"
1120                "FEATUREP"
1121                "FLUSH-STANDARD-OUTPUT-STREAMS"
1122                "WITH-UNIQUE-NAMES" "MAKE-GENSYM-LIST"
1123                "ABOUT-TO-MODIFY-SYMBOL-VALUE"
1124                "SELF-EVALUATING-P"
1125                "PRINT-PRETTY-ON-STREAM-P"
1126                "ARRAY-READABLY-PRINTABLE-P"
1127                "LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P"
1128                "POSITIVE-PRIMEP"
1129                "EVAL-IN-LEXENV"
1130                "SIMPLE-EVAL-IN-LEXENV"
1131                "DEBUG-NAMIFY"
1132                "FORCE" "DELAY" "PROMISE-READY-P"
1133                "FIND-RESTART-OR-CONTROL-ERROR"
1134
1135                ;; These could be moved back into SB!EXT if someone has
1136                ;; compelling reasons, but hopefully we can get by
1137                ;; without supporting them, at least not as publicly
1138                ;; accessible things with fixed interfaces.
1139                "GET-FLOATING-POINT-MODES"
1140                "SET-FLOATING-POINT-MODES"
1141                "WITH-FLOAT-TRAPS-MASKED"
1142
1143                ;; compatibility hacks for old-style CMU CL data formats
1144                "UNIX-ENVIRONMENT-CMUCL-FROM-SBCL"
1145                "UNIX-ENVIRONMENT-SBCL-FROM-CMUCL"
1146
1147                ;; a sort of quasi-unbound tag for use in hash tables
1148                "+EMPTY-HT-SLOT+"
1149
1150                ;; low-level i/o stuff
1151                "DONE-WITH-FAST-READ-BYTE"
1152                "DONE-WITH-FAST-READ-CHAR"
1153                "FAST-READ-BYTE"
1154                "FAST-READ-BYTE-REFILL"
1155                "FAST-READ-CHAR"
1156                "FAST-READ-CHAR-REFILL"
1157                "FAST-READ-S-INTEGER"
1158                "FAST-READ-U-INTEGER"
1159                "FAST-READ-VAR-U-INTEGER"
1160                "FILE-NAME"
1161                "INTERN*"
1162                "PREPARE-FOR-FAST-READ-BYTE"
1163                "PREPARE-FOR-FAST-READ-CHAR"
1164
1165                ;; reflection of our backquote implementation that the
1166                ;; pprinter needs
1167                "*BACKQ-TOKENS*"
1168
1169                ;; hackery to help set up for cold init
1170                "!BEGIN-COLLECTING-COLD-INIT-FORMS"
1171                "!COLD-INIT-FORMS"
1172                "COLD-FSET"
1173                "!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS"
1174
1175                ;; catch tags
1176                "TOPLEVEL-CATCHER"
1177
1178                ;; hooks for contrib/ stuff we're insufficiently sure
1179                ;; about to add to SB!EXT
1180                "*REPL-PROMPT-FUN*"
1181                "*REPL-READ-FORM-FUN*"))
1182
1183    ;; FIXME: This package is awfully huge. It'd probably be good to
1184    ;; split it. There's at least one natural way to split it: the
1185    ;; implementation of the Lisp type system (e.g. TYPE-INTERSECTION and
1186    ;; SPECIFIER-TYPE) could move to a separate package SB!TYPE. (There's
1187    ;; lots of stuff which currently uses the SB!KERNEL package which
1188    ;; doesn't actually use the type system stuff.) And maybe other
1189    ;; possible splits too:
1190    ;;   * Pull GC stuff (*GC-INHIBIT*, *GC-PENDING*, etc.)
1191    ;;     out into SB-GC.
1192    ;;   * Pull special case implementations of sequence functions (e.g.
1193    ;;     %MAP-TO-LIST-ARITY-1 and %FIND-POSITION-IF-NOT) and
1194    ;;     other sequence function implementation grot into SB-SEQ.
1195    ;;   * Pull all the math stuff (%ACOS, %COSH, WORD-LOGICAL-AND...)
1196    ;;     into SB-MATH.
1197    ;;   * Pull all the array stuff (%ARRAY-DATA-VECTOR, %RAW-REF-LONG,
1198    ;;     WITH-ARRAY-DATA, ALLOCATE-VECTOR, HAIRY-DATA-VECTOR-REF...)
1199    ;;     into SB-ARRAY.
1200    ;;   * Pull all the streams stuff out into SB-STREAM.
1201    ;;   * Pull all the OBJECT-NOT-FOO symbols out. Maybe we could even
1202    ;;     figure out a way to stop exporting them? Failing that,
1203    ;;     they could be in SB-INTERR.
1204    #s(sb-cold:package-data
1205       :name "SB!KERNEL"
1206       :doc
1207       "private: Theoretically this 'hides state and types used for package
1208 integration' (said CMU CL architecture.tex) and that probably was and
1209 is a good idea, but see SB-SYS re. blurring of boundaries."
1210       :use ("CL" "SB!ALIEN" "SB!ALIEN-INTERNALS" "SB!BIGNUM"
1211                  "SB!EXT" "SB!FASL" "SB!INT" "SB!SYS" "SB!GRAY")
1212       :reexport ("DEF!STRUCT" "DEF!MACRO")
1213       :export ("%ACOS"
1214                "%ACOSH"
1215                "%ADJOIN"
1216                "%ADJOIN-EQ"
1217                "%ADJOIN-KEY"
1218                "%ADJOIN-KEY-EQ"
1219                "%ADJOIN-KEY-TEST"
1220                "%ADJOIN-KEY-TEST-NOT"
1221                "%ADJOIN-TEST"
1222                "%ADJOIN-TEST-NOT"
1223                "%ARRAY-AVAILABLE-ELEMENTS" "%ARRAY-DATA-VECTOR"
1224                "%ARRAY-DIMENSION" "%ARRAY-DISPLACED-P"
1225                "%ARRAY-DISPLACED-FROM"
1226                "%ARRAY-DISPLACEMENT" "%ARRAY-FILL-POINTER"
1227                "%ARRAY-FILL-POINTER-P" "%ARRAY-RANK"
1228                #!+(or x86 x86-64 ppc)
1229                "%ARRAY-ATOMIC-INCF/WORD"
1230                "%ASSOC"
1231                "%ASSOC-EQ"
1232                "%ASSOC-IF"
1233                "%ASSOC-IF-KEY"
1234                "%ASSOC-IF-NOT"
1235                "%ASSOC-IF-NOT-KEY"
1236                "%ASSOC-KEY"
1237                "%ASSOC-KEY-EQ"
1238                "%ASSOC-KEY-TEST"
1239                "%ASSOC-KEY-TEST-NOT"
1240                "%ASSOC-TEST"
1241                "%ASSOC-TEST-NOT"
1242                "%ASIN" "%ASINH"
1243                "%ATAN" "%ATAN2" "%ATANH"
1244                "%CALLER-FRAME"
1245                "%CALLER-PC"
1246                "%CHECK-BOUND"
1247                "%CHECK-GENERIC-SEQUENCE-BOUNDS"
1248                "%CHECK-VECTOR-SEQUENCE-BOUNDS"
1249                "%COMPARE-AND-SWAP-CAR"
1250                "%COMPARE-AND-SWAP-CDR"
1251                "%COMPARE-AND-SWAP-INSTANCE-REF"
1252                "%COMPARE-AND-SWAP-SVREF"
1253                "%COMPARE-AND-SWAP-SYMBOL-PLIST"
1254                "%COMPARE-AND-SWAP-SYMBOL-VALUE"
1255                "%CONCATENATE-TO-BASE-STRING"
1256                "%CONCATENATE-TO-STRING"
1257                "%COS" "%COS-QUICK"
1258                "%COSH" "%DATA-VECTOR-AND-INDEX" "%DEPOSIT-FIELD"
1259                "%DOUBLE-FLOAT" "%DPB" "%EQL" "%EXP" "%EXPM1" "%FIND-POSITION"
1260                "%FIND-POSITION-VECTOR-MACRO" "%FIND-POSITION-IF"
1261                "%FIND-POSITION-IF-VECTOR-MACRO" "%FIND-POSITION-IF-NOT"
1262                "%FIND-POSITION-IF-NOT-VECTOR-MACRO"
1263                "%HYPOT" "%LDB" "%LOG" "%LOGB" "%LOG10"
1264                "%LAST0"
1265                "%LAST1"
1266                "%LASTN/FIXNUM"
1267                "%LASTN/BIGNUM"
1268                "%LOG1P"
1269                #!+long-float "%LONG-FLOAT"
1270                "%MAKE-COMPLEX" "%MAKE-FUNCALLABLE-INSTANCE"
1271                "%MAKE-FUNCALLABLE-STRUCTURE-INSTANCE-ALLOCATOR"
1272                "%MAKE-RATIO" "%MAKE-LISP-OBJ"
1273                "%MAKE-INSTANCE"
1274                "%MAKE-STRUCTURE-INSTANCE"
1275                "%MAKE-STRUCTURE-INSTANCE-ALLOCATOR"
1276                "%MAP" "%MAP-TO-SIMPLE-VECTOR-ARITY-1"
1277                "%MAP-TO-LIST-ARITY-1" "%MAP-TO-NIL-ON-SEQUENCE"
1278                "%MAP-TO-NIL-ON-SIMPLE-VECTOR" "%MAP-TO-NIL-ON-VECTOR"
1279                "%MASK-FIELD"
1280                "%MEMBER"
1281                "%MEMBER-EQ"
1282                "%MEMBER-IF"
1283                "%MEMBER-IF-KEY"
1284                "%MEMBER-IF-NOT"
1285                "%MEMBER-IF-NOT-KEY"
1286                "%MEMBER-KEY"
1287                "%MEMBER-KEY-EQ"
1288                "%MEMBER-KEY-TEST"
1289                "%MEMBER-KEY-TEST-NOT"
1290                "%MEMBER-TEST"
1291                "%MEMBER-TEST-NOT"
1292                "%NEGATE" "%POW"
1293                "%OTHER-POINTER-WIDETAG"
1294                "%PUTHASH"
1295                "%RASSOC"
1296                "%RASSOC-EQ"
1297                "%RASSOC-IF"
1298                "%RASSOC-IF-KEY"
1299                "%RASSOC-IF-NOT"
1300                "%RASSOC-IF-NOT-KEY"
1301                "%RASSOC-KEY"
1302                "%RASSOC-KEY-EQ"
1303                "%RASSOC-KEY-TEST"
1304                "%RASSOC-KEY-TEST-NOT"
1305                "%RASSOC-TEST"
1306                "%RASSOC-TEST-NOT"
1307                "%RAW-BITS" "%RAW-BITS-WITH-OFFSET" "%VECTOR-RAW-BITS"
1308                "%RAW-REF-COMPLEX-DOUBLE" "%RAW-REF-COMPLEX-LONG"
1309                "%RAW-REF-COMPLEX-SINGLE" "%RAW-REF-DOUBLE"
1310                "%RAW-REF-LONG" "%RAW-REF-SINGLE"
1311                "%RAW-SET-COMPLEX-DOUBLE" "%RAW-SET-COMPLEX-LONG"
1312                "%RAW-SET-COMPLEX-SINGLE" "%RAW-SET-DOUBLE"
1313                "%RAW-SET-LONG" "%RAW-SET-SINGLE" "%SCALB" "%SCALBN"
1314                #!+(or x86 x86-64 ppc)
1315                "%RAW-INSTANCE-ATOMIC-INCF/WORD"
1316                "%RAW-INSTANCE-REF/WORD" "%RAW-INSTANCE-SET/WORD"
1317                "%RAW-INSTANCE-REF/SINGLE" "%RAW-INSTANCE-SET/SINGLE"
1318                "%RAW-INSTANCE-REF/DOUBLE" "%RAW-INSTANCE-SET/DOUBLE"
1319                "%RAW-INSTANCE-REF/COMPLEX-SINGLE"
1320                "%RAW-INSTANCE-SET/COMPLEX-SINGLE"
1321                "%RAW-INSTANCE-REF/COMPLEX-DOUBLE"
1322                "%RAW-INSTANCE-SET/COMPLEX-DOUBLE"
1323                "%SET-ARRAY-DIMENSION" "%SET-FUNCALLABLE-INSTANCE-INFO"
1324                "%SET-RAW-BITS" "%SET-RAW-BITS-WITH-OFFSET"
1325                "%SET-VECTOR-RAW-BITS"
1326                "%SET-SAP-REF-16" "%SET-SAP-REF-32" "%SET-SAP-REF-64"
1327                "%SET-SAP-REF-WORD" "%SET-SAP-REF-8" "%SET-SAP-REF-DOUBLE"
1328                "%SET-SAP-REF-LONG" "%SET-SAP-REF-SAP"
1329                "%SET-SAP-REF-SINGLE" "%SET-SIGNED-SAP-REF-16"
1330                "%SET-SIGNED-SAP-REF-32" "%SET-SIGNED-SAP-REF-64"
1331                "%SET-SIGNED-SAP-REF-WORD"
1332                "%SET-SIGNED-SAP-REF-8" "%SET-STACK-REF"
1333                "%SET-SYMBOL-HASH"
1334                "%SIN" "%SIN-QUICK" "%SINGLE-FLOAT"
1335                "%SINH" "%SQRT" "%SXHASH-SIMPLE-STRING"
1336                "%SXHASH-SIMPLE-SUBSTRING" "%TAN" "%TAN-QUICK" "%TANH"
1337                "%UNARY-ROUND"
1338                "%UNARY-TRUNCATE"
1339                "%UNARY-TRUNCATE/SINGLE-FLOAT"
1340                "%UNARY-TRUNCATE/DOUBLE-FLOAT"
1341                "%UNARY-FTRUNCATE"
1342                "%WITH-ARRAY-DATA"
1343                "%WITH-ARRAY-DATA/FP"
1344                "%WITH-ARRAY-DATA-MACRO"
1345                "*CURRENT-LEVEL-IN-PRINT*"
1346                "*EMPTY-TYPE*"
1347                "*EVAL-CALLS*"
1348                "*GC-INHIBIT*" "*GC-PENDING*"
1349                #!+sb-thread "*STOP-FOR-GC-PENDING*"
1350                "*UNIVERSAL-TYPE*"
1351                "*UNIVERSAL-FUN-TYPE*" "*UNPARSE-FUN-TYPE-SIMPLIFY*"
1352                "*WILD-TYPE*" "WORD-LOGICAL-AND" "WORD-LOGICAL-ANDC1"
1353                "WORD-LOGICAL-ANDC2" "WORD-LOGICAL-EQV"
1354                "WORD-LOGICAL-NAND" "WORD-LOGICAL-NOR" "WORD-LOGICAL-NOT"
1355                "WORD-LOGICAL-OR" "WORD-LOGICAL-ORC1" "WORD-LOGICAL-ORC2"
1356                "WORD-LOGICAL-XOR" "ALIEN-TYPE-TYPE"
1357                "ALIEN-TYPE-TYPE-ALIEN-TYPE" "ALIEN-TYPE-TYPE-P"
1358                "ALLOCATE-VECTOR" "ALLOCATE-STATIC-VECTOR"
1359                "ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
1360                "PROGRAM-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
1361                "DISABLED-PACKAGE-LOCKS"
1362                "WITH-SINGLE-PACKAGE-LOCKED-ERROR"
1363                "PACKAGE-ERROR-FORMAT-ARGUMENTS"
1364                "PACKAGE-ERROR-FORMAT-CONTROL" "ALWAYS-SUBTYPEP"
1365                "ARGS-TYPE" "ARGS-TYPE-ALLOWP" "ARGS-TYPE-KEYP"
1366                "ARGS-TYPE-KEYWORDS" "ARGS-TYPE-OPTIONAL" "ARGS-TYPE-P"
1367                "ARGS-TYPE-REQUIRED" "ARGS-TYPE-REST" "ARRAY-HEADER-P"
1368                "ARRAY-TYPE" "ARRAY-TYPE-COMPLEXP"
1369                "ARRAY-TYPE-DIMENSIONS" "ARRAY-TYPE-ELEMENT-TYPE"
1370                "ARRAY-TYPE-P" "ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE"
1371                "ASH-INDEX" "ASSERT-ERROR"
1372                #!+sb-unicode "BASE-CHAR-P"
1373                "BASE-STRING-P"
1374                "BINDING-STACK-POINTER-SAP" "BIT-INDEX"
1375                "BOGUS-ARG-TO-VALUES-LIST-ERROR" "BOOLE-CODE"
1376                "BOUNDING-INDICES-BAD-ERROR" "BYTE-SPECIFIER" "%BYTE-BLT"
1377                "CALLABLE" "CASE-BODY-ERROR"
1378                "CHARACTER-SET" "CHARACTER-SET-TYPE"
1379                "CHARACTER-SET-TYPE-PAIRS"
1380                #!+sb-unicode "CHARACTER-STRING-P"
1381                "CHARPOS"
1382                "CHECK-FOR-CIRCULARITY" "CHECK-TYPE-ERROR" "CLOSED-FLAME"
1383                "CODE-COMPONENT" "CODE-COMPONENT-P" "CODE-DEBUG-INFO"
1384                "CODE-HEADER-REF" "CODE-HEADER-SET" "CODE-INSTRUCTIONS"
1385                "COERCE-TO-FUN" "COERCE-TO-LEXENV" "COERCE-TO-LIST"
1386                "COERCE-TO-VALUES" "COERCE-TO-VECTOR"
1387                "*COLD-INIT-COMPLETE-P*" "COMPLEX-DOUBLE-FLOAT-P"
1388                "COMPLEX-FLOAT-P"
1389                #!+long-float "COMPLEX-LONG-FLOAT-P"
1390                "COMPLEX-RATIONAL-P" "COMPLEX-SINGLE-FLOAT-P"
1391                "COMPLEX-VECTOR-P" "COMPOUND-TYPE" "COMPOUND-TYPE-P"
1392                "COMPOUND-TYPE-TYPES" "CONS-TYPE" "CONS-TYPE-CAR-TYPE"
1393                "CONS-TYPE-CDR-TYPE" "CONS-TYPE-P" "CONSED-SEQUENCE"
1394                "CONSTANT" "CONSTANT-TYPE" "CONSTANT-TYPE-P"
1395                "CONSTANT-TYPE-TYPE" "CONTAINING-INTEGER-TYPE"
1396                "CONTROL-STACK-POINTER-SAP" "COPY-BYTE-VECTOR-TO-SYSTEM-AREA"
1397                "CSUBTYPEP" "CTYPE" "TYPE-HASH-VALUE" "CTYPE-OF"
1398                "CTYPE-P" "CTYPEP" "CURRENT-FP" "CURRENT-SP"
1399                "CURRENT-DYNAMIC-SPACE-START"
1400                "DATA-VECTOR-REF" "DATA-VECTOR-REF-WITH-OFFSET"
1401                "DATA-VECTOR-SET" "DATA-VECTOR-SET-WITH-OFFSET"
1402                "DECLARATION-TYPE-CONFLICT-ERROR"
1403                "DECODE-DOUBLE-FLOAT"
1404                #!+long-float "DECODE-LONG-FLOAT"
1405                "DECODE-SINGLE-FLOAT"
1406                "DEFINE-STRUCTURE-SLOT-ADDRESSOR"
1407                "DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P"
1408                "!DEFSTRUCT-WITH-ALTERNATE-METACLASS" "DESCEND-INTO"
1409                "DIVISION-BY-ZERO-ERROR" "DOUBLE-FLOAT-EXPONENT"
1410                "DOUBLE-FLOAT-HIGH-BITS" "DOUBLE-FLOAT-INT-EXPONENT"
1411                "DOUBLE-FLOAT-LOW-BITS" "DOUBLE-FLOAT-SIGNIFICAND"
1412                "FLOAT-WAIT" "DYNAMIC-SPACE-FREE-POINTER" "DYNAMIC-USAGE"
1413                "EFFECTIVE-FIND-POSITION-TEST"
1414                "EFFECTIVE-FIND-POSITION-KEY" "ERROR-NUMBER-OR-LOSE"
1415                "EXTENDED-CHAR-P" "EXTERNAL-FORMAT-DESIGNATOR"
1416                "FDEFINITION-OBJECT"
1417                "FDOCUMENTATION" "FILENAME"
1418                "FIND-AND-INIT-OR-CHECK-LAYOUT"
1419                "FIND-DEFSTRUCT-DESCRIPTION"
1420                "FLOAT-EXPONENT"
1421                "FLOAT-FORMAT-DIGITS" "FLOAT-FORMAT-NAME"
1422                "FLOAT-FORMAT-MAX" "FLOAT-INT-EXPONENT"
1423                "FLOATING-POINT-EXCEPTION" "FORM" "FORMAT-CONTROL"
1424                "*FREE-INTERRUPT-CONTEXT-INDEX*" "FUNCALLABLE-INSTANCE-P"
1425                "FUN-CODE-HEADER" "FUN-TYPE" "FUN-TYPE-ALLOWP"
1426                "FUN-TYPE-KEYP" "FUN-TYPE-KEYWORDS" "FUN-TYPE-NARGS"
1427                "FUN-TYPE-OPTIONAL" "FUN-TYPE-P" "FUN-TYPE-REQUIRED"
1428                "FUN-TYPE-REST" "FUN-TYPE-RETURNS" "FUN-TYPE-WILD-ARGS"
1429                "FUN-WORD-OFFSET" "GENERALIZED-BOOLEAN"
1430                "GET-CLOSURE-LENGTH" "GET-HEADER-DATA"
1431                "GET-LISP-OBJ-ADDRESS" "LOWTAG-OF" "WIDETAG-OF"
1432                "HAIRY-DATA-VECTOR-REF"
1433                "HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS"  "HAIRY-DATA-VECTOR-SET"
1434                "HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS""HAIRY-TYPE"
1435                "HAIRY-TYPE-CHECK-TEMPLATE-NAME" "HAIRY-TYPE-SPECIFIER"
1436                "HANDLE-CIRCULARITY" "HOST" "IGNORE-IT" "ILL-BIN"
1437                "ILL-BOUT" "ILL-IN" "ILL-OUT" "INDEX-OR-MINUS-1"
1438                "INDEX-TOO-LARGE-ERROR" "*!INITIAL-ASSEMBLER-ROUTINES*"
1439                "*!INITIAL-DEBUG-SOURCES*"
1440                "*!INITIAL-FDEFN-OBJECTS*" "*!INITIAL-FOREIGN-SYMBOLS*"
1441                "*!INITIAL-LAYOUTS*" "*!INITIAL-SYMBOLS*"
1442                "INTEGER-DECODE-DOUBLE-FLOAT"
1443                #!+long-float "INTEGER-DECODE-LONG-FLOAT"
1444                "INTEGER-DECODE-SINGLE-FLOAT" "INTERNAL-ERROR"
1445                #!+win32 "HANDLE-WIN32-EXCEPTION"
1446                "INTERNAL-TIME" "INTERSECTION-TYPE" "INTERSECTION-TYPE-P"
1447                "INTERSECTION-TYPE-TYPES" "INVALID-ARG-COUNT-ERROR"
1448                "INVALID-UNWIND-ERROR"
1449                "IRRATIONAL" "JUST-DUMP-IT-NORMALLY" "KEY-INFO"
1450                "KEY-INFO-NAME" "KEY-INFO-P" "KEY-INFO-TYPE"
1451                "LAYOUT-DEPTHOID" "LAYOUT-INVALID-ERROR"
1452                "LAYOUT-N-UNTAGGED-SLOTS" "LAYOUT-FOR-STD-CLASS-P"
1453                "LAYOUT-SLOT-TABLE"
1454                #!+(or x86-64 x86) "%LEA"
1455                "LEXENV" "LEXENV-DESIGNATOR" "LINE-LENGTH"
1456                "LIST-COPY-SEQ*"
1457                "LIST-FILL*"
1458                "LIST-SUBSEQ*"
1459                "ANSI-STREAM"
1460                "ANSI-STREAM-BIN" "ANSI-STREAM-BOUT" "ANSI-STREAM-CLOSE"
1461                "ANSI-STREAM-ELEMENT-TYPE"
1462                "ANSI-STREAM-FILE-POSITION"
1463                "ANSI-STREAM-IN"
1464                "ANSI-STREAM-IN-BUFFER" "ANSI-STREAM-IN-INDEX"
1465                "ANSI-STREAM-INPUT-STREAM-P" "ANSI-STREAM-MISC"
1466                "ANSI-STREAM-N-BIN" "ANSI-STREAM-OPEN-STREAM-P"
1467                "ANSI-STREAM-OUT" "ANSI-STREAM-SOUT"
1468                "ANSI-STREAM-OUTPUT-STREAM-P"
1469                "COMPLEX-VECTOR"
1470                "LIST-TO-VECTOR*"
1471                "LOGICAL-HOST" "LOGICAL-HOST-DESIGNATOR"
1472                #!+long-float "LONG-FLOAT-EXPONENT"
1473                #!+long-float "LONG-FLOAT-EXP-BITS"
1474                #!+long-float "LONG-FLOAT-HIGH-BITS"
1475                #!+long-float "LONG-FLOAT-LOW-BITS"
1476                #!+long-float "LONG-FLOAT-MID-BITS"
1477                "LONG-WORDS" "LRA" "LRA-CODE-HEADER" "LRA-P"
1478                "MAKE-ALIEN-TYPE-TYPE" "MAKE-ARGS-TYPE"
1479                "MAKE-ARRAY-HEADER" "MAKE-ARRAY-TYPE" "MAKE-CONS-TYPE"
1480                "MAKE-DOUBLE-FLOAT" "MAKE-FUN-TYPE" "MAKE-KEY-INFO"
1481                "MAKE-LISP-OBJ"
1482                #!+long-float "MAKE-LONG-FLOAT"
1483                "MAKE-MEMBER-TYPE" "MAKE-NAMED-TYPE" "MAKE-NULL-LEXENV"
1484                "MAKE-NUMERIC-TYPE"
1485                "MAKE-SINGLE-FLOAT" "MAKE-SPECIALIZABLE-ARRAY"
1486                "MAKE-UNPORTABLE-FLOAT"
1487                "MAKE-SHORT-VALUES-TYPE" "MAKE-SINGLE-VALUE-TYPE"
1488                "MAKE-VALUE-CELL" "MAKE-VALUES-TYPE"
1489                "MAPC-MEMBER-TYPE-MEMBERS" "MAPCAR-MEMBER-TYPE-MEMBERS"
1490                "MEMBER-TYPE" "MEMBER-TYPE-MEMBERS" "MEMBER-TYPE-P"
1491                "MEMBER-TYPE-SIZE" "MERGE-BITS"
1492                "MODIFIED-NUMERIC-TYPE"
1493                "MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM"
1494                "MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM"
1495                "MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM"
1496                "MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM"
1497                "MUTATOR-SELF" "NAMED-TYPE"
1498                "NAMED-TYPE-NAME" "NAMED-TYPE-P" "NATIVE-BYTE-ORDER"
1499                "NEGATE" "NEGATION-TYPE" "NEGATION-TYPE-TYPE"
1500                "NEVER-SUBTYPEP" "NIL-ARRAY-ACCESSED-ERROR"
1501                "NIL-FUN-RETURNED-ERROR" "NOT-<=-ERROR" "NOT-=-ERROR"
1502                "NOT-DUMPED-AT-ALL" "NUMERIC-CONTAGION" "NUMERIC-TYPE"
1503                "NUMERIC-TYPE-CLASS" "NUMERIC-TYPE-COMPLEXP"
1504                "NUMERIC-TYPE-EQUAL" "NUMERIC-TYPE-FORMAT"
1505                "NUMERIC-TYPE-HIGH" "NUMERIC-TYPE-LOW" "NUMERIC-TYPE-P"
1506                "OBJECT-NOT-ARRAY-ERROR" "OBJECT-NOT-CHARACTER-ERROR"
1507                "OBJECT-NOT-BASE-STRING-ERROR" "OBJECT-NOT-BIGNUM-ERROR"
1508                "OBJECT-NOT-BIT-VECTOR-ERROR"
1509                #!+sb-unicode "OBJECT-NOT-CHARACTER-STRING-ERROR"
1510                "OBJECT-NOT-COMPLEX-ERROR"
1511                "OBJECT-NOT-COMPLEX-FLOAT-ERROR"
1512                "OBJECT-NOT-COMPLEX-SINGLE-FLOAT-ERROR"
1513                #!+long-float "OBJECT-NOT-COMPLEX-LONG-FLOAT-ERROR"
1514                "OBJECT-NOT-COMPLEX-DOUBLE-FLOAT-ERROR"
1515                "OBJECT-NOT-COMPLEX-RATIONAL-ERROR"
1516                ;; FIXME: It's confusing using "complex" to mean both
1517                ;; "not on the real number line" and "not of a
1518                ;; SIMPLE-ARRAY nature". Perhaps we could rename all the
1519                ;; uses in the second sense as "hairy" instead?
1520                "OBJECT-NOT-COMPLEX-VECTOR-ERROR" "OBJECT-NOT-CONS-ERROR"
1521                "OBJECT-NOT-DOUBLE-FLOAT-ERROR" "OBJECT-NOT-FIXNUM-ERROR"
1522                "OBJECT-NOT-FLOAT-ERROR" "OBJECT-NOT-FUN-ERROR"
1523                "OBJECT-NOT-INSTANCE-ERROR" "OBJECT-NOT-INTEGER-ERROR"
1524                "OBJECT-NOT-LIST-ERROR"
1525                #!+long-float "OBJECT-NOT-LONG-FLOAT-ERROR"
1526                "OBJECT-NOT-NUMBER-ERROR" "OBJECT-NOT-RATIO-ERROR"
1527                "OBJECT-NOT-RATIONAL-ERROR" "OBJECT-NOT-REAL-ERROR"
1528                "OBJECT-NOT-SAP-ERROR" "OBJECT-NOT-SIGNED-BYTE-32-ERROR"
1529                ;; FIXME: 32/64-bit issues
1530                "OBJECT-NOT-SIGNED-BYTE-64-ERROR"
1531                "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-ERROR"
1532                #!+long-float
1533                "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-ERROR"
1534                "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-ERROR"
1535                "OBJECT-NOT-SIMPLE-ARRAY-DOUBLE-FLOAT-ERROR"
1536                "OBJECT-NOT-SIMPLE-ARRAY-ERROR"
1537                #!+long-float "OBJECT-NOT-SIMPLE-ARRAY-LONG-FLOAT-ERROR"
1538                "OBJECT-NOT-SIMPLE-ARRAY-NIL-ERROR"
1539                "OBJECT-NOT-SIMPLE-ARRAY-SINGLE-FLOAT-ERROR"
1540                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-15-ERROR"
1541                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-16-ERROR"
1542                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-2-ERROR"
1543                ;; KLUDGE: 32-bit and 64-bit ports implement a different
1544                ;; set of specialized array types.  Various bits of code
1545                ;; in SBCL assume that symbols connected to the
1546                ;; specialized array types are exported.  But there's not
1547                ;; a good way at this point to know whether the port for
1548                ;; which we're building is 32-bit or 64-bit.  Granted, we
1549                ;; could hardcode the particulars (or even come up with a
1550                ;; special :64BIT feature), but that seems a little
1551                ;; inelegant.  For now, we brute-force the issue by
1552                ;; always exporting all the names required for both
1553                ;; 32-bit and 64-bit ports.  Other bits connected to the
1554                ;; same issue are noted throughout the code below with
1555                ;; the tag "32/64-bit issues".  --njf, 2004-08-09
1556                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-29-ERROR"
1557                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-31-ERROR"
1558                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-32-ERROR"
1559                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-4-ERROR"
1560                ;; FIXME: 32/64-bit issues
1561                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-60-ERROR"
1562                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-63-ERROR"
1563                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-64-ERROR"
1564                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-7-ERROR"
1565                "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-8-ERROR"
1566                "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-16-ERROR"
1567                ;; FIXME: 32/64-bit issues
1568                "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-30-ERROR"
1569                "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-32-ERROR"
1570                ;; FIXME: 32/64-bit issues
1571                "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-61-ERROR"
1572                "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-64-ERROR"
1573                "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-8-ERROR"
1574                "OBJECT-NOT-SIMPLE-BIT-VECTOR-ERROR"
1575                "OBJECT-NOT-SIMPLE-BASE-STRING-ERROR"
1576                #!+sb-unicode "OBJECT-NOT-SIMPLE-CHARACTER-STRING-ERROR"
1577                "OBJECT-NOT-SIMPLE-STRING-ERROR"
1578                "OBJECT-NOT-SIMPLE-VECTOR-ERROR"
1579                "OBJECT-NOT-SINGLE-FLOAT-ERROR" "OBJECT-NOT-STRING-ERROR"
1580                "OBJECT-NOT-INSTANCE-ERROR" "OBJECT-NOT-SYMBOL-ERROR"
1581                "OBJECT-NOT-TYPE-ERROR"
1582                "OBJECT-NOT-UNSIGNED-BYTE-32-ERROR"
1583                ;; FIXME: 32/64-bit issues
1584                "OBJECT-NOT-UNSIGNED-BYTE-64-ERROR"
1585                "OBJECT-NOT-VECTOR-ERROR"
1586                "OBJECT-NOT-VECTOR-NIL-ERROR"
1587                "OBJECT-NOT-WEAK-POINTER-ERROR"
1588                "ODD-KEY-ARGS-ERROR" "OUTPUT-OBJECT" "OUTPUT-UGLY-OBJECT"
1589                "PACKAGE-DESIGNATOR" "PACKAGE-DOC-STRING"
1590                "PACKAGE-HASHTABLE-SIZE" "PACKAGE-HASHTABLE-FREE"
1591                "PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"
1592                "PARSE-DEFMACRO" "PARSE-UNKNOWN-TYPE"
1593                "PARSE-UNKNOWN-TYPE-SPECIFIER" "PATHNAME-DESIGNATOR"
1594                "POINTER-HASH"
1595                #!+(or x86 x86-64) "*PSEUDO-ATOMIC-BITS*"
1596                "PUNT-PRINT-IF-TOO-LONG"
1597                "RANDOM-DOCUMENTATION"
1598                "RAW-INSTANCE-SLOTS-EQUALP"
1599                "READER-IMPOSSIBLE-NUMBER-ERROR"
1600                "READER-EOF-ERROR"
1601                "RESTART-DESIGNATOR"
1602                "RUN-PENDING-FINALIZERS"
1603                "SCALE-DOUBLE-FLOAT"
1604                #!+long-float "SCALE-LONG-FLOAT"
1605                "SCALE-SINGLE-FLOAT"
1606                "SCRUB-POWER-CACHE"
1607                "SEQUENCEP" "SEQUENCE-COUNT" "SEQUENCE-END"
1608                "SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE"
1609                "SET-ARRAY-HEADER" "SET-HEADER-DATA" "SHIFT-TOWARDS-END"
1610                "SHIFT-TOWARDS-START" "SHRINK-VECTOR" "%SHRINK-VECTOR"
1611                ;; FIXME: 32/64-bit issues
1612                "SIGNED-BYTE-32-P" "SIGNED-BYTE-64-P"
1613                "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-P"
1614                #!+long-float "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-P"
1615                "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-P"
1616                "SIMPLE-ARRAY-DOUBLE-FLOAT-P"
1617                #!+long-float "SIMPLE-ARRAY-LONG-FLOAT-P"
1618                "SIMPLE-ARRAY-NIL-P" "SIMPLE-ARRAY-P"
1619                "SIMPLE-ARRAY-SINGLE-FLOAT-P"
1620                "SIMPLE-ARRAY-UNSIGNED-BYTE-15-P"
1621                "SIMPLE-ARRAY-UNSIGNED-BYTE-16-P"
1622                "SIMPLE-ARRAY-UNSIGNED-BYTE-2-P"
1623                ;; FIXME: 32/64-bit issues
1624                "SIMPLE-ARRAY-UNSIGNED-BYTE-29-P"
1625                "SIMPLE-ARRAY-UNSIGNED-BYTE-31-P"
1626                "SIMPLE-ARRAY-UNSIGNED-BYTE-32-P"
1627                "SIMPLE-ARRAY-UNSIGNED-BYTE-4-P"
1628                ;; FIXME: 32/64-bit issues
1629                "SIMPLE-ARRAY-UNSIGNED-BYTE-60-P"
1630                "SIMPLE-ARRAY-UNSIGNED-BYTE-63-P"
1631                "SIMPLE-ARRAY-UNSIGNED-BYTE-64-P"
1632                "SIMPLE-ARRAY-UNSIGNED-BYTE-7-P"
1633                "SIMPLE-ARRAY-UNSIGNED-BYTE-8-P"
1634                "SIMPLE-ARRAY-SIGNED-BYTE-16-P"
1635                "SIMPLE-ARRAY-SIGNED-BYTE-30-P"
1636                "SIMPLE-ARRAY-SIGNED-BYTE-32-P"
1637                ;; FIXME: 32/64-bit issues
1638                "SIMPLE-ARRAY-SIGNED-BYTE-61-P"
1639                "SIMPLE-ARRAY-SIGNED-BYTE-64-P"
1640                "SIMPLE-ARRAY-SIGNED-BYTE-8-P" "SIMPLE-BASE-STRING-P"
1641                #!+sb-unicode "SIMPLE-CHARACTER-STRING-P"
1642                "SIMPLE-PACKAGE-ERROR" "SIMPLE-UNBOXED-ARRAY"
1643                "SINGLE-FLOAT-BITS" "SINGLE-FLOAT-EXPONENT"
1644                "SINGLE-FLOAT-INT-EXPONENT" "SINGLE-FLOAT-SIGNIFICAND"
1645                "SINGLE-VALUE-TYPE" "SINGLE-VALUE-SPECIFIER-TYPE"
1646                "SPECIALIZABLE" "SPECIALIZABLE-VECTOR" "SPECIFIER-TYPE"
1647                "STACK-REF" "STREAM-DESIGNATOR" "STRING-DESIGNATOR"
1648                "STRING-FILL*"
1649                "STRING-SUBSEQ*"
1650                "STRUCTURE-RAW-SLOT-TYPE-AND-SIZE" "SUB-GC"
1651                "SYMBOLS-DESIGNATOR"
1652                "%INSTANCE-LENGTH"
1653                "%INSTANCE-REF"
1654                "%INSTANCE-SET"
1655                "SYSTEM-AREA-CLEAR"
1656                "TLS-EXHAUSTED-ERROR"
1657                "TWO-ARG-*" "TWO-ARG-+" "TWO-ARG--" "TWO-ARG-/"
1658                "TWO-ARG-/=" "TWO-ARG-<" "TWO-ARG-<=" "TWO-ARG-="
1659                "TWO-ARG->" "TWO-ARG->=" "TWO-ARG-AND" "TWO-ARG-EQV"
1660                "TWO-ARG-GCD" "TWO-ARG-IOR" "TWO-ARG-LCM" "TWO-ARG-XOR"
1661                "TYPE-*-TO-T"
1662                "TYPE-DIFFERENCE" "TYPE-EXPAND" "TYPE-INTERSECTION"
1663                "TYPE-INTERSECTION2" "TYPE-APPROX-INTERSECTION2"
1664                "TYPE-SINGLETON-P"
1665                "TYPE-SINGLE-VALUE-P" "TYPE-SPECIFIER" "TYPE-UNION"
1666                "TYPE/=" "TYPE=" "TYPES-EQUAL-OR-INTERSECT"
1667                "UNBOUND-SYMBOL-ERROR" "UNBOXED-ARRAY"
1668                "UNDEFINED-FUN-ERROR" "UNION-TYPE" "UNION-TYPE-P"
1669                "UNION-TYPE-TYPES" "UNKNOWN-ERROR"
1670                "UNKNOWN-KEY-ARG-ERROR" "UNKNOWN-TYPE" "UNKNOWN-TYPE-P"
1671                "UNKNOWN-TYPE-SPECIFIER" "UNSEEN-THROW-TAG-ERROR"
1672                ;; FIXME: 32/64-bit issues
1673                "UNSIGNED-BYTE-32-P" "UNSIGNED-BYTE-64-P"
1674                "UPDATE-OBJECT-LAYOUT-OR-INVALID"
1675                "VALUE-CELL-REF" "VALUE-CELL-SET" "VALUES-SPECIFIER-TYPE"
1676                "VALUES-SPECIFIER-TYPE-CACHE-CLEAR" "VALUES-SUBTYPEP"
1677                "VALUES-TYPE" "VALUES-TYPE-ERROR" "VALUES-TYPE-IN"
1678                "VALUES-TYPE-INTERSECTION"
1679                "VALUES-TYPE-MIN-VALUE-COUNT" "VALUES-TYPE-MAX-VALUE-COUNT"
1680                "VALUES-TYPE-MAY-BE-SINGLE-VALUE-P" "VALUES-TYPE-OPTIONAL"
1681                "VALUES-TYPE-OUT" "VALUES-TYPE-P" "VALUES-TYPE-REQUIRED"
1682                "VALUES-TYPE-REST" "VALUES-TYPE-UNION"
1683                "VALUES-TYPE-TYPES" "VALUES-TYPES"
1684                "VALUES-TYPES-EQUAL-OR-INTERSECT"
1685
1686                "*VECTOR-WITHOUT-COMPLEX-TYPECODE-INFOS*"
1687                "VECTOR-SINGLE-FLOAT-P" "VECTOR-DOUBLE-FLOAT-P"
1688                "VECTOR-UNSIGNED-BYTE-2-P" "VECTOR-UNSIGNED-BYTE-4-P"
1689                "VECTOR-UNSIGNED-BYTE-7-P" "VECTOR-UNSIGNED-BYTE-8-P"
1690                "VECTOR-UNSIGNED-BYTE-15-P" "VECTOR-UNSIGNED-BYTE-16-P"
1691                "VECTOR-UNSIGNED-BYTE-29-P" "VECTOR-UNSIGNED-BYTE-31-P"
1692                "VECTOR-UNSIGNED-BYTE-32-P" "VECTOR-UNSIGNED-BYTE-60-P"
1693                "VECTOR-UNSIGNED-BYTE-63-P" "VECTOR-UNSIGNED-BYTE-64-P"
1694                "VECTOR-SIGNED-BYTE-8-P" "VECTOR-SIGNED-BYTE-16-P"
1695                "VECTOR-FIXNUM-P" "VECTOR-SIGNED-BYTE-32-P"
1696                "VECTOR-SIGNED-BYTE-64-P" "VECTOR-COMPLEX-SINGLE-FLOAT-P"
1697                "VECTOR-COMPLEX-DOUBLE-FLOAT-P" "VECTOR-T-P"
1698
1699                "VECTOR-NIL-P"
1700                "VECTOR-FILL*"
1701                "VECTOR-SUBSEQ*"
1702                "VECTOR-TO-VECTOR*"
1703                "VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH" "WITH-ARRAY-DATA"
1704                "WITH-CIRCULARITY-DETECTION" "WRONG-NUMBER-OF-INDICES-ERROR"
1705                "WITH-WORLD-LOCK"
1706
1707                ;; bit bash fillers (FIXME: 32/64-bit issues)
1708                "UB1-BASH-FILL" "SYSTEM-AREA-UB1-FILL"
1709                "UB2-BASH-FILL" "SYSTEM-AREA-UB2-FILL"
1710                "UB4-BASH-FILL" "SYSTEM-AREA-UB4-FILL"
1711                "UB8-BASH-FILL" "SYSTEM-AREA-UB8-FILL"
1712                "UB16-BASH-FILL" "SYSTEM-AREA-UB16-FILL"
1713                "UB32-BASH-FILL" "SYSTEM-AREA-UB32-FILL"
1714                "UB64-BASH-FILL" "SYSTEM-AREA-UB64-FILL"
1715
1716                ;; bit bash copiers (FIXME: 32/64-bit issues)
1717                "UB1-BASH-COPY" "SYSTEM-AREA-UB1-COPY"
1718                "COPY-UB1-TO-SYSTEM-AREA" "COPY-UB1-FROM-SYSTEM-AREA"
1719                "UB2-BASH-COPY" "SYSTEM-AREA-UB2-COPY"
1720                "COPY-UB2-TO-SYSTEM-AREA" "COPY-UB2-FROM-SYSTEM-AREA"
1721                "UB4-BASH-COPY" "SYSTEM-AREA-UB4-COPY"
1722                "COPY-UB4-TO-SYSTEM-AREA" "COPY-UB4-FROM-SYSTEM-AREA"
1723                "UB8-BASH-COPY" "SYSTEM-AREA-UB8-COPY"
1724                "COPY-UB8-TO-SYSTEM-AREA" "COPY-UB8-FROM-SYSTEM-AREA"
1725                "UB16-BASH-COPY" "SYSTEM-AREA-UB16-COPY"
1726                "COPY-UB16-TO-SYSTEM-AREA" "COPY-UB16-FROM-SYSTEM-AREA"
1727                "UB32-BASH-COPY" "SYSTEM-AREA-UB32-COPY"
1728                "COPY-UB32-TO-SYSTEM-AREA" "COPY-UB32-FROM-SYSTEM-AREA"
1729                "UB64-BASH-COPY" "SYSTEM-AREA-UB64-COPY"
1730                "COPY-UB64-TO-SYSTEM-AREA" "COPY-UB64-FROM-SYSTEM-AREA"
1731
1732                ;; SIMPLE-FUN type and accessors
1733                "SIMPLE-FUN"
1734                "SIMPLE-FUN-P"
1735                "%SIMPLE-FUN-ARGLIST"
1736                "%SIMPLE-FUN-DOC"
1737                "%SIMPLE-FUN-INFO"
1738                "%SIMPLE-FUN-NAME"
1739                "%SIMPLE-FUN-NEXT"
1740                "%SIMPLE-FUN-SELF"
1741                "%SIMPLE-FUN-TYPE"
1742                "%SIMPLE-FUN-XREFS"
1743
1744                ;; CLOSURE type and accessors
1745                "CLOSURE"
1746                "CLOSUREP"
1747                "DO-CLOSURE-VALUES"
1748                "%CLOSURE-FUN"
1749                "%CLOSURE-INDEX-REF"
1750                "%CLOSURE-VALUES"
1751
1752                ;; Abstract function accessors
1753                "%FUN-DOC"
1754                "%FUN-FUN"
1755                "%FUN-LAMBDA-LIST"
1756                "%FUN-NAME"
1757
1758                "FDEFN" "MAKE-FDEFN" "FDEFN-P" "FDEFN-NAME" "FDEFN-FUN"
1759                "FDEFN-MAKUNBOUND" "OUTER-FDEFN"
1760                "%COERCE-CALLABLE-TO-FUN" "FUN-SUBTYPE"
1761                "*MAXIMUM-ERROR-DEPTH*" "%SET-SYMBOL-PLIST"
1762                "INFINITE-ERROR-PROTECT"
1763                "FIND-CALLER-NAME-AND-FRAME"
1764                "FIND-INTERRUPTED-NAME-AND-FRAME"
1765                "%SET-SYMBOL-VALUE" "%SET-SYMBOL-GLOBAL-VALUE" "%SET-SYMBOL-PACKAGE"
1766                "OUTPUT-SYMBOL-NAME" "%COERCE-NAME-TO-FUN"
1767                "INVOKE-MACROEXPAND-HOOK" "DEFAULT-STRUCTURE-PRINT"
1768                "LAYOUT" "LAYOUT-LENGTH" "LAYOUT-PURE" "DSD-RAW-TYPE"
1769                "DEFSTRUCT-DESCRIPTION" "UNDECLARE-STRUCTURE" "DD-COPIER"
1770                "UNDEFINE-FUN-NAME" "DD-TYPE" "CLASSOID-STATE" "INSTANCE"
1771                "*TYPE-SYSTEM-INITIALIZED*" "FIND-LAYOUT" "DSD-NAME"
1772                "%TYPEP" "DD-RAW-INDEX" "DD-NAME" "CLASSOID-SUBCLASSES"
1773                "CLASSOID-LAYOUT" "CLASSOID-NAME" "CLASSOID-P"
1774                "DD-RAW-LENGTH" "NOTE-NAME-DEFINED" "%CODE-CODE-SIZE"
1775                "DD-SLOTS" "DD-INCLUDE" "SLOT-SETTER-LAMBDA-FORM"
1776                "%IMAGPART" "DSD-ACCESSOR-NAME" "%CODE-DEBUG-INFO"
1777                "LAYOUT-CLASSOID" "LAYOUT-INVALID"
1778                "DSD-TYPE" "%INSTANCEP" "DEFSTRUCT-SLOT-DESCRIPTION"
1779                "DD-PREDICATE-NAME"
1780                "CLASSOID-PROPER-NAME" "%NOTE-TYPE-DEFINED" "LAYOUT-INFO"
1781                "%SET-INSTANCE-LAYOUT" "DD-DEFAULT-CONSTRUCTOR"
1782                "LAYOUT-OF" "%REALPART"
1783                "STRUCTURE-CLASSOID-P" "DSD-INDEX" "STRUCTURE-CLASSOID"
1784                "%INSTANCE-LAYOUT" "LAYOUT-CLOS-HASH"
1785                "PROCLAIM-AS-FUN-NAME" "BECOME-DEFINED-FUN-NAME"
1786                "%NUMERATOR" "CLASSOID-TYPEP" "DSD-READ-ONLY"
1787                "DSD-DEFAULT" "LAYOUT-INHERITS" "DD-LENGTH"
1788                "%CODE-ENTRY-POINTS" "%DENOMINATOR"
1789                "%OTHER-POINTER-P"
1790
1791                "STANDARD-CLASSOID" "CLASSOID-OF"
1792                "MAKE-STANDARD-CLASSOID"
1793                "CLASSOID-CELL-CLASSOID"
1794                "CLASSOID-CELL-NAME"
1795                "CLASSOID-CELL-PCL-CLASS"
1796                "CLASSOID-CELL-TYPEP"
1797                "%CLEAR-CLASSOID"
1798                "FIND-CLASSOID-CELL" "EXTRACT-FUN-TYPE"
1799                "%RANDOM-DOUBLE-FLOAT"
1800                #!+long-float "%RANDOM-LONG-FLOAT"
1801                "%RANDOM-SINGLE-FLOAT" "STATIC-CLASSOID"
1802                "%FUNCALLABLE-INSTANCE-INFO" "RANDOM-CHUNK" "BIG-RANDOM-CHUNK"
1803                "LAYOUT-CLOS-HASH-LIMIT"
1804                "BUILT-IN-CLASSOID-DIRECT-SUPERCLASSES"
1805                "BUILT-IN-CLASSOID-TRANSLATION" "RANDOM-LAYOUT-CLOS-HASH"
1806                "CLASSOID-PCL-CLASS" "FUNCALLABLE-STRUCTURE"
1807                "FUNCALLABLE-INSTANCE-FUN" "%FUNCALLABLE-INSTANCE-LAYOUT"
1808                "%SET-FUNCALLABLE-INSTANCE-LAYOUT"
1809                "BASIC-STRUCTURE-CLASSOID"
1810                "REGISTER-LAYOUT"
1811                "FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX"
1812                "MAKE-STATIC-CLASSOID" "INSTANCE-LAMBDA"
1813                "%MAKE-SYMBOL"
1814                "%FUNCALLABLE-INSTANCE-FUNCTION" "SYMBOL-HASH"
1815
1816                "EXTENDED-SEQUENCE" "*EXTENDED-SEQUENCE-TYPE*"
1817                "EXTENDED-SEQUENCE-P"
1818
1819                "BUILT-IN-CLASSOID" "CONDITION-CLASSOID-P"
1820                "CONDITION-CLASSOID-SLOTS" "MAKE-UNDEFINED-CLASSOID"
1821                "FIND-CLASSOID" "CLASSOID" "CLASSOID-DIRECT-SUPERCLASSES"
1822                "MAKE-LAYOUT" "REDEFINE-LAYOUT-WARNING" "SLOT-CLASSOID"
1823                "INSURED-FIND-CLASSOID" "ORDER-LAYOUT-INHERITS"
1824                "STD-COMPUTE-CLASS-PRECEDENCE-LIST"
1825
1826                ;; symbols from former SB!CONDITIONS
1827                "*HANDLER-CLUSTERS*" "*RESTART-CLUSTERS*"
1828                "*CONDITION-RESTARTS*" "SHOW-CONDITION" "CASE-FAILURE"
1829                "NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET"
1830                "DESCRIBE-CONDITION" "MAKE-RESTART" "COERCE-TO-CONDITION"
1831
1832                "CONDITION-READER-FUNCTION"
1833                "CONDITION-WRITER-FUNCTION"
1834
1835                "CONDITION-SLOT-ALLOCATION"
1836                "CONDITION-SLOT-DOCUMENTATION"
1837                "CONDITION-SLOT-INITARGS"
1838                "CONDITION-SLOT-INITFORM"
1839                "CONDITION-SLOT-INITFORM-P"
1840                "CONDITION-SLOT-NAME" "CONDITION-SLOT-READERS"
1841                "CONDITION-SLOT-WRITERS"
1842
1843                "REDEFINITION-WARNING"
1844                "REDEFINITION-WITH-DEFUN"
1845                "REDEFINITION-WITH-DEFGENERIC"
1846                "REDEFINITION-WITH-DEFMETHOD"
1847                "REDEFINITION-REPLACES-GENERIC-FUNCTION-P"
1848                "REDEFINITION-REPLACES-COMPILED-FUNCTION-WITH-INTERPRETED-P"
1849                "UNINTERESTING-ORDINARY-FUNCTION-REDEFINITION-P"
1850                "UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P"
1851                "UNINTERESTING-METHOD-REDEFINITION-P"
1852                "UNINTERESTING-REDEFINITION"
1853                "REDEFINITION-WITH-DEFTRANSFORM"
1854
1855                "DUBIOUS-ASTERISKS-AROUND-VARIABLE-NAME"
1856                "ASTERISKS-AROUND-LEXICAL-VARIABLE-NAME"
1857                "ASTERISKS-AROUND-CONSTANT-VARIABLE-NAME"
1858                "UNDEFINED-ALIEN-STYLE-WARNING"
1859                #!+sb-eval
1860                "LEXICAL-ENVIRONMENT-TOO-COMPLEX"
1861                "CHARACTER-DECODING-ERROR-IN-COMMENT"
1862                "DEPRECATED-EVAL-WHEN-SITUATIONS"
1863                "PROCLAMATION-MISMATCH"
1864                "TYPE-PROCLAMATION-MISMATCH"
1865                "FTYPE-PROCLAMATION-MISMATCH"
1866
1867                "!COLD-INIT" "!UNINTERN-INIT-ONLY-STUFF"
1868                "!GLOBALDB-COLD-INIT" "!FDEFN-COLD-INIT"
1869                "!FOREIGN-COLD-INIT" "!FUNCTION-NAMES-COLD-INIT"
1870                "!TYPE-CLASS-COLD-INIT" "!TYPEDEFS-COLD-INIT"
1871                "!ALIEN-TYPE-COLD-INIT" "!CLASSES-COLD-INIT"
1872                "!EARLY-TYPE-COLD-INIT" "!LATE-TYPE-COLD-INIT"
1873                "!FIXUP-TYPE-COLD-INIT" "!TARGET-TYPE-COLD-INIT"
1874                "!RANDOM-COLD-INIT" "!READER-COLD-INIT"
1875                "!PATHNAME-COLD-INIT" "!DEBUG-INFO-COLD-INIT"
1876                "!TYPECHECKFUNS-COLD-INIT" "!LOADER-COLD-INIT"
1877                "!EXHAUST-COLD-INIT" "!PACKAGE-COLD-INIT"
1878                "!POLICY-COLD-INIT-OR-RESANIFY"
1879                "!VM-TYPE-COLD-INIT" "!BACKQ-COLD-INIT"
1880                "!SHARPM-COLD-INIT" "!EARLY-PROCLAIM-COLD-INIT"
1881                "!LATE-PROCLAIM-COLD-INIT" "!CLASS-FINALIZE"
1882                "!CONSTANTP-COLD-INIT"
1883                "!WORLD-LOCK-COLD-INIT"
1884
1885                "FLOAT-COLD-INIT-OR-REINIT"
1886                "GC-REINIT"
1887                "TIME-REINIT"
1888                "SIGNAL-COLD-INIT-OR-REINIT"
1889                "STREAM-COLD-INIT-OR-RESET"
1890
1891                ;; Cleanups to run before saving a core
1892                "DEBUG-DEINIT"
1893                "FLOAT-DEINIT"
1894                "FOREIGN-DEINIT"
1895                "PROFILE-DEINIT"
1896
1897                ;; Note: These are out of lexicographical order
1898                ;; because in CMU CL they were defined as
1899                ;; internal symbols in package "CL" imported
1900                ;; into package "C", as opposed to what we're
1901                ;; doing here, defining them as external symbols
1902                ;; in a package which is used by both "SB!C" and
1903                ;; "SB!IMPL". (SBCL's "SB!C" is directly
1904                ;; analogous to CMU CL's "C"; and for this
1905                ;; purpose, SBCL's "SB!IMPL" is analogous to CMU
1906                ;; CL's "CL".) As far as I know there's nothing
1907                ;; special about them, so they could be merged
1908                ;; into the same order as everything else in the
1909                ;; in this package. -- WHN 19990911
1910                "STRING>=*" "STRING>*" "STRING=*" "STRING<=*"
1911                "STRING<*" "STRING/=*" "%SVSET"
1912                "%SP-STRING-COMPARE" "%SETNTH" "%SETELT"
1913                "%SET-ROW-MAJOR-AREF" "%SET-FILL-POINTER"
1914                "%SET-FDEFINITION" "%SCHARSET" "%SBITSET"
1915                "%RPLACD" "%RPLACA" "%PUT" "%CHARSET" "%BITSET"
1916                "%ASET" "%ARRAY-TYPEP"))
1917
1918    #s(sb-cold:package-data
1919       :name "SB!THREAD"
1920       :use ("CL" "SB!ALIEN" "SB!INT" "SB!SYS" "SB!KERNEL")
1921       :doc "public (but low-level): native thread support"
1922       :export ("*CURRENT-THREAD*"
1923                "DESTROY-THREAD"
1924                "INTERRUPT-THREAD"
1925                "INTERRUPT-THREAD-ERROR"
1926                "INTERRUPT-THREAD-ERROR-THREAD"
1927                "JOIN-THREAD"
1928                "JOIN-THREAD-ERROR"
1929                "JOIN-THREAD-ERROR-THREAD"
1930                "LIST-ALL-THREADS"
1931                "MAKE-THREAD"
1932                "SYMBOL-VALUE-IN-THREAD"
1933                "SYMBOL-VALUE-IN-THREAD-ERROR"
1934                "TERMINATE-THREAD"
1935                "THREAD"
1936                "THREAD-ERROR"
1937                "THREAD-ERROR-THREAD"
1938                "THREAD-ALIVE-P"
1939                "THREAD-NAME"
1940                "THREAD-YIELD"
1941                ;; Memory barrier
1942                "BARRIER"
1943                ;; Mutexes
1944                "GET-MUTEX"
1945                "GRAB-MUTEX"
1946                "HOLDING-MUTEX-P"
1947                "MAKE-MUTEX"
1948                "MUTEX"
1949                "MUTEX-NAME"
1950                "MUTEX-OWNER"
1951                "MUTEX-VALUE"
1952                "RELEASE-MUTEX"
1953                "WITH-MUTEX"
1954                "WITH-RECURSIVE-LOCK"
1955                ;; Condition variables
1956                "CONDITION-BROADCAST"
1957                "CONDITION-NOTIFY"
1958                "CONDITION-WAIT"
1959                "MAKE-WAITQUEUE"
1960                "WAITQUEUE"
1961                "WAITQUEUE-NAME"
1962                ;; Sessions
1963                "MAKE-LISTENER-THREAD"
1964                "RELEASE-FOREGROUND"
1965                "WITH-NEW-SESSION"
1966                ;; Semaphores
1967                "MAKE-SEMAPHORE"
1968                "SEMAPHORE"
1969                "SEMAPHORE-NAME"
1970                "SEMAPHORE-COUNT"
1971                "SIGNAL-SEMAPHORE"
1972                "TRY-SEMAPHORE"
1973                "WAIT-ON-SEMAPHORE"))
1974
1975    #s(sb-cold:package-data
1976       :name "SB!LOOP"
1977       :doc "private: implementation details of LOOP"
1978       :use ("CL")
1979       :export ())
1980
1981    #s(sb-cold:package-data
1982       :name "SB!MOP"
1983       :doc
1984       "public: the MetaObject Protocol interface, as defined by
1985 The Art of the Metaobject Protocol, by Kiczales, des Rivieres and Bobrow:
1986 ISBN 0-262-61074-4, with exceptions as noted in the User Manual."
1987       :use ("CL")
1988       :reexport ("ADD-METHOD"
1989                  "ALLOCATE-INSTANCE"
1990                  "CLASS-NAME" "COMPUTE-APPLICABLE-METHODS"
1991                  "ENSURE-GENERIC-FUNCTION" "MAKE-INSTANCE"
1992                  "METHOD-QUALIFIERS" "REMOVE-METHOD"
1993                  "BUILT-IN-CLASS" "CLASS"
1994                  "FUNCTION" "GENERIC-FUNCTION"
1995                  "METHOD" "METHOD-COMBINATION"
1996                  "STANDARD-CLASS" "STANDARD-GENERIC-FUNCTION"
1997                  "STANDARD-METHOD" "STANDARD-OBJECT" "T")
1998       :export ("ADD-DEPENDENT"
1999                "ADD-DIRECT-METHOD"
2000                "ADD-DIRECT-SUBCLASS"
2001                "CLASS-DEFAULT-INITARGS"
2002                "CLASS-DIRECT-DEFAULT-INITARGS"
2003                "CLASS-DIRECT-SLOTS"
2004                "CLASS-DIRECT-SUBCLASSES"
2005                "CLASS-DIRECT-SUPERCLASSES"
2006                "CLASS-FINALIZED-P"
2007                "CLASS-PRECEDENCE-LIST"
2008                "CLASS-PROTOTYPE"
2009                "CLASS-SLOTS"
2010                "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
2011                "COMPUTE-CLASS-PRECEDENCE-LIST"
2012                "COMPUTE-DEFAULT-INITARGS"
2013                "COMPUTE-DISCRIMINATING-FUNCTION"
2014                "COMPUTE-EFFECTIVE-METHOD"
2015                "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
2016                "COMPUTE-SLOTS"
2017                "DIRECT-SLOT-DEFINITION"
2018                "DIRECT-SLOT-DEFINITION-CLASS"
2019                "EFFECTIVE-SLOT-DEFINITION"
2020                "EFFECTIVE-SLOT-DEFINITION-CLASS"
2021                "ENSURE-CLASS"
2022                "ENSURE-CLASS-USING-CLASS"
2023                "ENSURE-GENERIC-FUNCTION-USING-CLASS"
2024                "EQL-SPECIALIZER"
2025                "EQL-SPECIALIZER-OBJECT"
2026                "EXTRACT-LAMBDA-LIST"
2027                "EXTRACT-SPECIALIZER-NAMES"
2028                "FINALIZE-INHERITANCE"
2029                "FIND-METHOD-COMBINATION"
2030                "FORWARD-REFERENCED-CLASS"
2031                "FUNCALLABLE-STANDARD-CLASS"
2032                "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
2033                "FUNCALLABLE-STANDARD-OBJECT"
2034                "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
2035                "GENERIC-FUNCTION-DECLARATIONS"
2036                "GENERIC-FUNCTION-LAMBDA-LIST"
2037                "GENERIC-FUNCTION-METHOD-CLASS"
2038                "GENERIC-FUNCTION-METHOD-COMBINATION"
2039                "GENERIC-FUNCTION-METHODS"
2040                "GENERIC-FUNCTION-NAME"
2041                "INTERN-EQL-SPECIALIZER"
2042                "MAKE-METHOD-LAMBDA"
2043                "MAP-DEPENDENTS"
2044                "METAOBJECT"
2045                "METHOD-FUNCTION"
2046                "METHOD-GENERIC-FUNCTION"
2047                "METHOD-LAMBDA-LIST"
2048                "METHOD-SPECIALIZERS"
2049                "ACCESSOR-METHOD-SLOT-DEFINITION"
2050                "READER-METHOD-CLASS"
2051                "REMOVE-DEPENDENT"
2052                "REMOVE-DIRECT-METHOD"
2053                "REMOVE-DIRECT-SUBCLASS"
2054                "SET-FUNCALLABLE-INSTANCE-FUNCTION"
2055                "SLOT-BOUNDP-USING-CLASS"
2056                "SLOT-DEFINITION"
2057                "SLOT-DEFINITION-ALLOCATION"
2058                "SLOT-DEFINITION-INITARGS"
2059                "SLOT-DEFINITION-INITFORM"
2060                "SLOT-DEFINITION-INITFUNCTION"
2061                "SLOT-DEFINITION-LOCATION"
2062                "SLOT-DEFINITION-NAME"
2063                "SLOT-DEFINITION-READERS"
2064                "SLOT-DEFINITION-WRITERS"
2065                "SLOT-DEFINITION-TYPE"
2066                "SLOT-MAKUNBOUND-USING-CLASS"
2067                "SLOT-VALUE-USING-CLASS"
2068                "SPECIALIZER"
2069                "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
2070                "SPECIALIZER-DIRECT-METHODS"
2071                "STANDARD-ACCESSOR-METHOD"
2072                "STANDARD-DIRECT-SLOT-DEFINITION"
2073                "STANDARD-EFFECTIVE-SLOT-DEFINITION"
2074                "STANDARD-INSTANCE-ACCESS"
2075                "STANDARD-READER-METHOD"
2076                "STANDARD-SLOT-DEFINITION"
2077                "STANDARD-WRITER-METHOD"
2078                "UPDATE-DEPENDENT"
2079                "VALIDATE-SUPERCLASS"
2080                "WRITER-METHOD-CLASS"))
2081
2082    #s(sb-cold:package-data
2083       :name "SB!PCL"
2084       :doc
2085       "semi-public: This package includes useful meta-object protocol
2086 extensions, but even they are not guaranteed to be present in later
2087 versions of SBCL, and the other stuff in here is definitely not
2088 guaranteed to be present in later versions of SBCL.  Use of this
2089 package is deprecated in favour of SB-MOP."
2090       :use ("CL" "SB!MOP" "SB!INT" "SB!EXT" "SB!WALKER" "SB!KERNEL")
2091       ;; experimental SBCL-only (for now) symbols
2092       :export ("MAKE-METHOD-SPECIALIZERS-FORM"
2093                "PARSE-SPECIALIZER-USING-CLASS"
2094                "UNPARSE-SPECIALIZER-USING-CLASS")
2095       ;; FIXME: After a little while, these reexports can probably go
2096       ;; away, as they're superseded by the use of SB-MOP as the
2097       ;; publically-accessible package.
2098       :reexport ( ;; CL symbols
2099                  "ADD-METHOD"
2100                  "ALLOCATE-INSTANCE"
2101                  "CLASS-NAME" "COMPUTE-APPLICABLE-METHODS"
2102                  "ENSURE-GENERIC-FUNCTION" "MAKE-INSTANCE"
2103                  "METHOD-QUALIFIERS" "REMOVE-METHOD"
2104                  ;; MOP symbols
2105                  "ADD-DEPENDENT"
2106                  "ADD-DIRECT-METHOD"
2107                  "ADD-DIRECT-SUBCLASS"
2108                  "CLASS-DEFAULT-INITARGS"
2109                  "CLASS-DIRECT-DEFAULT-INITARGS"
2110                  "CLASS-DIRECT-SLOTS"
2111                  "CLASS-DIRECT-SUBCLASSES"
2112                  "CLASS-DIRECT-SUPERCLASSES"
2113                  "CLASS-FINALIZED-P"
2114                  "CLASS-PRECEDENCE-LIST"
2115                  "CLASS-PROTOTYPE"
2116                  "CLASS-SLOTS"
2117                  "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
2118                  "COMPUTE-CLASS-PRECEDENCE-LIST"
2119                  "COMPUTE-DEFAULT-INITARGS"
2120                  "COMPUTE-DISCRIMINATING-FUNCTION"
2121                  "COMPUTE-EFFECTIVE-METHOD"
2122                  "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
2123                  "COMPUTE-SLOTS"
2124                  "DIRECT-SLOT-DEFINITION"
2125                  "DIRECT-SLOT-DEFINITION-CLASS"
2126                  "EFFECTIVE-SLOT-DEFINITION"
2127                  "EFFECTIVE-SLOT-DEFINITION-CLASS"
2128                  "ENSURE-CLASS"
2129                  "ENSURE-CLASS-USING-CLASS"
2130                  "ENSURE-GENERIC-FUNCTION-USING-CLASS"
2131                  "EQL-SPECIALIZER"
2132                  "EQL-SPECIALIZER-OBJECT"
2133                  "EXTRACT-LAMBDA-LIST"
2134                  "EXTRACT-SPECIALIZER-NAMES"
2135                  "FINALIZE-INHERITANCE"
2136                  "FIND-METHOD-COMBINATION"
2137                  "FORWARD-REFERENCED-CLASS"
2138                  "FUNCALLABLE-STANDARD-CLASS"
2139                  "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
2140                  "FUNCALLABLE-STANDARD-OBJECT"
2141                  "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
2142                  "GENERIC-FUNCTION-DECLARATIONS"
2143                  "GENERIC-FUNCTION-LAMBDA-LIST"
2144                  "GENERIC-FUNCTION-METHOD-CLASS"
2145                  "GENERIC-FUNCTION-METHOD-COMBINATION"
2146                  "GENERIC-FUNCTION-METHODS"
2147                  "GENERIC-FUNCTION-NAME"
2148                  "INTERN-EQL-SPECIALIZER"
2149                  "MAKE-METHOD-LAMBDA"
2150                  "MAP-DEPENDENTS"
2151                  "METHOD-FUNCTION"
2152                  "METHOD-GENERIC-FUNCTION"
2153                  "METHOD-LAMBDA-LIST"
2154                  "METHOD-SPECIALIZERS"
2155                  "ACCESSOR-METHOD-SLOT-DEFINITION"
2156                  "READER-METHOD-CLASS"
2157                  "REMOVE-DEPENDENT"
2158                  "REMOVE-DIRECT-METHOD"
2159                  "REMOVE-DIRECT-SUBCLASS"
2160                  "SET-FUNCALLABLE-INSTANCE-FUNCTION"
2161                  "SLOT-BOUNDP-USING-CLASS"
2162                  "SLOT-DEFINITION"
2163                  "SLOT-DEFINITION-ALLOCATION"
2164                  "SLOT-DEFINITION-INITARGS"
2165                  "SLOT-DEFINITION-INITFORM"
2166                  "SLOT-DEFINITION-INITFUNCTION"
2167                  "SLOT-DEFINITION-LOCATION"
2168                  "SLOT-DEFINITION-NAME"
2169                  "SLOT-DEFINITION-READERS"
2170                  "SLOT-DEFINITION-WRITERS"
2171                  "SLOT-DEFINITION-TYPE"
2172                  "SLOT-MAKUNBOUND-USING-CLASS"
2173                  "SLOT-VALUE-USING-CLASS"
2174                  "SPECIALIZER"
2175                  "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
2176                  "SPECIALIZER-DIRECT-METHODS"
2177                  "STANDARD-ACCESSOR-METHOD"
2178                  "STANDARD-DIRECT-SLOT-DEFINITION"
2179                  "STANDARD-EFFECTIVE-SLOT-DEFINITION"
2180                  "STANDARD-INSTANCE-ACCESS"
2181                  "STANDARD-READER-METHOD"
2182                  "STANDARD-SLOT-DEFINITION"
2183                  "STANDARD-WRITER-METHOD"
2184                  "UPDATE-DEPENDENT"
2185                  "VALIDATE-SUPERCLASS"
2186                  "WRITER-METHOD-CLASS"))
2187
2188    #s(sb-cold:package-data
2189       :name "SB!PRETTY"
2190       :doc "private: implementation of pretty-printing"
2191       :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL")
2192       :export ("OUTPUT-PRETTY-OBJECT"
2193                "PRETTY-STREAM" "PRETTY-STREAM-P"
2194                "PPRINT-DISPATCH-TABLE"
2195                "!PPRINT-COLD-INIT"))
2196
2197    #s(sb-cold:package-data
2198       :name "SB!PROFILE"
2199       :doc "public: the interface to the profiler"
2200       :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL")
2201       :export ("PROFILE" "REPORT" "RESET" "UNPROFILE"))
2202
2203    #s(sb-cold:package-data
2204       :name "SB!SEQUENCE"
2205       :doc "semi-public: implements something which might eventually
2206 be submitted as a CDR"
2207       :use ()
2208       :export ("DOSEQUENCE"
2209
2210                "MAKE-SEQUENCE-ITERATOR" "MAKE-SIMPLE-SEQUENCE-ITERATOR"
2211
2212                "ITERATOR-STEP" "ITERATOR-ENDP" "ITERATOR-ELEMENT"
2213                "ITERATOR-INDEX" "ITERATOR-COPY"
2214
2215                "WITH-SEQUENCE-ITERATOR" "WITH-SEQUENCE-ITERATOR-FUNCTIONS"
2216
2217                "CANONIZE-TEST" "CANONIZE-KEY"
2218
2219                "LENGTH" "ELT"
2220                "MAKE-SEQUENCE-LIKE" "ADJUST-SEQUENCE"
2221
2222                "COUNT" "COUNT-IF" "COUNT-IF-NOT"
2223                "FIND" "FIND-IF" "FIND-IF-NOT"
2224                "POSITION" "POSITION-IF" "POSITION-IF-NOT"
2225                "SUBSEQ" "COPY-SEQ" "FILL"
2226                "NSUBSTITUTE" "NSUBSTITUTE-IF" "NSUBSTITUTE-IF-NOT"
2227                "SUBSTITUTE" "SUBSTITUTE-IF" "SUBSTITUTE-IF-NOT"
2228                "REPLACE" "REVERSE" "NREVERSE" "REDUCE"
2229                "MISMATCH" "SEARCH"
2230                "DELETE" "DELETE-IF" "DELETE-IF-NOT"
2231                "REMOVE" "REMOVE-IF" "REMOVE-IF-NOT"
2232                "DELETE-DUPLICATES" "REMOVE-DUPLICATES" "SORT" "STABLE-SORT"))
2233
2234    #s(sb-cold:package-data
2235       :name "SB!SYS"
2236       :doc
2237       "private: In theory, this \"contains functions and information
2238 necessary for system interfacing\" (said cmu-user.tex at the time
2239 of the SBCL code fork). That probably was and is a good idea, but in
2240 practice, the distinctions between this package and SB-KERNEL
2241 and even SB-VM seem to have become somewhat blurred over the years.
2242 Some anomalies (e.g. FIND-IF-IN-CLOSURE being in SB-SYS instead of
2243 SB-KERNEL) have been undone, but probably more remain."
2244       :use ("CL" "SB!EXT" "SB!INT")
2245       :export (;; FIXME: %PRIMITIVE shouldn't be here. (I now know that %SYS
2246                ;; is for OS-dependent stuff. %PRIMITIVE should probably be in
2247                ;; SB!KERNEL.)
2248                "%PRIMITIVE"
2249                "%STANDARD-CHAR-P"
2250                "*ALLOW-WITH-INTERRUPTS*"
2251                "*INTERRUPTS-ENABLED*"
2252                "*INTERRUPT-PENDING*"
2253                "*LINKAGE-INFO*"
2254                "*LONG-SITE-NAME*" "*SHORT-SITE-NAME*"
2255                "*PERIODIC-POLLING-FUNCTION*"
2256                "*PERIODIC-POLLING-PERIOD*"
2257                "*RUNTIME-DLHANDLE*"
2258                "*SHARED-OBJECTS*"
2259                "*STATIC-FOREIGN-SYMBOLS*"
2260                "*STDERR*" "*STDIN*"
2261                "*STDOUT*"
2262                "*TTY*"
2263                "ADD-FD-HANDLER"
2264                "ALLOCATE-SYSTEM-MEMORY"
2265                "ALLOW-WITH-INTERRUPTS"
2266                "BEEP"
2267                "BREAKPOINT-ERROR"
2268                "CANCEL-DEADLINE"
2269                "CLOSE-SHARED-OBJECTS"
2270                "DEADLINE-TIMEOUT"
2271                "DEALLOCATE-SYSTEM-MEMORY"
2272                "DECODE-TIMEOUT"
2273                "DECODE-INTERNAL-TIME"
2274                "DEFAULT-INTERRUPT"
2275                "DEFER-DEADLINE"
2276                "DYNAMIC-FOREIGN-SYMBOLS-P"
2277                "DLOPEN-OR-LOSE"
2278                "FROB-DO-BODY"
2279                "ENABLE-INTERRUPT"
2280                "ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"
2281                "EXTERN-ALIEN-NAME"
2282                "FD-STREAM" "FD-STREAM-FD" "FD-STREAM-P"
2283                "FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"
2284                "FIND-FOREIGN-SYMBOL-ADDRESS"
2285                "FIND-FOREIGN-SYMBOL-IN-TABLE"
2286                "FOREIGN-SYMBOL-SAP"
2287                "FOREIGN-SYMBOL-ADDRESS"
2288                "FOREIGN-SYMBOL-DATAREF-SAP"
2289                "GET-MACHINE-VERSION" "GET-PAGE-SIZE" "GET-SYSTEM-INFO"
2290                "IGNORE-INTERRUPT"
2291                "IN-INTERRUPTION"
2292                "INTERACTIVE-INTERRUPT"
2293                "INT-SAP"
2294                "INVALIDATE-DESCRIPTOR"
2295                "INVOKE-INTERRUPTION"
2296                "IO-TIMEOUT"
2297                "LIST-DYNAMIC-FOREIGN-SYMBOLS"
2298                "MACRO" "MAKE-FD-STREAM"
2299                "MEMORY-FAULT-ERROR"
2300                "MEMMOVE"
2301                "OS-COLD-INIT-OR-REINIT" "OS-CONTEXT-T" "OUTPUT-RAW-BYTES"
2302                "READ-N-BYTES"
2303                "REMOVE-FD-HANDLER"
2304                "REOPEN-SHARED-OBJECTS"
2305                "SAP+" "SAP-"
2306                "SAP-FOREIGN-SYMBOL"
2307                "SAP-INT"
2308                "SAP-REF-16" "SAP-REF-32" "SAP-REF-64" "SAP-REF-WORD"
2309                "SAP-REF-8"
2310                "SAP-REF-DOUBLE" "SAP-REF-LONG"
2311                "SAP-REF-SAP" "SAP-REF-SINGLE"
2312                "SAP<" "SAP<=" "SAP=" "SAP>" "SAP>="
2313                "SCRUB-CONTROL-STACK" "SERVE-ALL-EVENTS"
2314                "SIGNAL-DEADLINE"
2315                "SERVE-EVENT"
2316                "SIGNED-SAP-REF-16" "SIGNED-SAP-REF-32"
2317                "SIGNED-SAP-REF-64" "SIGNED-SAP-REF-WORD" "SIGNED-SAP-REF-8"
2318                ;; FIXME: STRUCTURE!OBJECT stuff probably belongs in SB!KERNEL.
2319                "STRUCTURE!OBJECT" "STRUCTURE!OBJECT-MAKE-LOAD-FORM"
2320                "SYSTEM-AREA-POINTER" "SYSTEM-AREA-POINTER-P"
2321                "SYSTEM-CONDITION" "SYSTEM-CONDITION-ADDRESS"
2322                "SYSTEM-CONDITION-CONTEXT"
2323                "REINIT-INTERNAL-REAL-TIME"
2324                "SYSTEM-INTERNAL-RUN-TIME"
2325                "UNDEFINED-FOREIGN-SYMBOLS-P"
2326                "UPDATE-LINKAGE-TABLE" "VECTOR-SAP"
2327                "WAIT-UNTIL-FD-USABLE"
2328                "WITH-DEADLINE"
2329                "WITH-FD-HANDLER"
2330                "WITH-INTERRUPTS" "WITH-LOCAL-INTERRUPTS"
2331                "WITH-PINNED-OBJECTS" "WITHOUT-GCING"
2332                "WITHOUT-INTERRUPTS"
2333                "WITH-INTERRUPT-BINDINGS"
2334                "WORDS"))
2335
2336    #s(sb-cold:package-data
2337       :name "SB!UNIX"
2338       :doc
2339       "private: a wrapper layer for SBCL itself to use when talking
2340 with an underlying Unix-y operating system.
2341 This was a public package in CMU CL, but that was different.
2342 CMU CL's UNIX package tried to provide a comprehensive,
2343 stable Unix interface suitable for the end user.
2344 This package only tries to implement what happens to be
2345 needed by the current implementation of SBCL, and makes
2346 no guarantees of interface stability."
2347       :use ("CL" "SB!ALIEN" "SB!EXT" "SB!INT" "SB!SYS")
2348       :export ( ;; wrappers around Unix stuff to give just what Lisp needs
2349                "NANOSLEEP"
2350                "UID-USERNAME"
2351                "UID-HOMEDIR"
2352                "WITH-RESTARTED-SYSCALL"
2353                "SB-MKSTEMP"
2354
2355                ;; stuff with a one-to-one mapping to Unix constructs
2356                "D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN" "DEV-T" "DIRECT"
2357                "EXECGRP" "EXECOTH" "EXECOWN" "F-DUPFD" "F-GETFD" "F-GETFL"
2358                "F-GETOWN" "F-SETFD" "F-SETFL" "F-SETOWN" "FAPPEND" "FASYNC"
2359                "FCREAT" "FEXCL" "FIONREAD" "FNDELAY" "FTRUNC" "F_OK" "GID-T"
2360                "INO-T" "UNIX-ACCESS" "UNIX-SETITIMER" "UNIX-GETITIMER"
2361                "KBDCGET" "KBDCRESET"
2362                "KBDCRST" "KBDCSET" "KBDCSSTD" "KBDGCLICK" "KBDSCLICK" "KBDSGET"
2363                "L_INCR" "L_SET" "L_XTND" "OFF-T" "O_APPEND" "O_CREAT" "O_EXCL"
2364                "O_RDONLY" "O_RDWR" "O_TRUNC" "O_WRONLY" "POSIX-GETCWD"
2365                "POSIX-GETCWD/" "READGRP" "READOTH" "READOWN" "RLIM-CUR"
2366                "RLIM-MAX" "RU-IDRSS" "RU-INBLOCK" "RU-ISRSS" "RU-IXRSS"
2367                "RU-MAJFLT" "RU-MAXRSS" "RU-MINFLT" "RU-MSGRCV" "RU-MSGSND"
2368                "RU-NIVCSW" "RU-NSIGNALS" "RU-NSWAP" "RU-NVCSW" "RU-OUBLOCK"
2369                "RU-STIME" "RU-UTIME" "RUSAGE_CHILDREN" "RUSAGE_SELF" "RUSEAGE"
2370                "R_OK" "S-IEXEC" "S-IFBLK" "S-IFCHR" "S-IFDIR" "S-IFIFO" "S-IFLNK" "S-IFMT"
2371                "S-IFREG" "S-IFSOCK" "S-IREAD" "S-ISGID" "S-ISUID" "S-ISVTX"
2372                "S-IWRITE" "SAVETEXT" "SB-MKSTEMP" "SC-MASK" "SC-ONSTACK"
2373                "SETUIDEXEC" "SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL"
2374                "SG-OSPEED" "SGTTYB" "SIZE-T" "ST-ATIME" "ST-BLKSIZE" "ST-BLOCKS"
2375                "ST-CTIME" "ST-DEV" "ST-GID" "ST-MODE" "ST-MTIME" "ST-NLINK"
2376                "ST-RDEV" "ST-SIZE" "ST-UID" "STAT" "TERMINAL-SPEEDS" "TIME-T"
2377                "TIMEVAL" "TIMEZONE" "TIOCFLUSH" "TIOCGETC" "TIOCGETP" "TIOCGLTC"
2378                "TIOCGPGRP" "TIOCGWINSZ" "TIOCNOTTY" "TIOCSETC" "TIOCSETP"
2379                "TIOCSLTC" "TIOCSPGRP" "TIOCSWINSZ" "TV-SEC" "TV-USEC"
2380                "TZ-DSTTIME" "TZ-MINUTESWEST" "UID-T" "UNIX-CLOSE"
2381                "UNIX-CLOSEDIR" "UNIX-DIRENT-NAME" "UNIX-DUP""UNIX-EXIT"
2382                "UNIX-FILE-MODE" "UNIX-FSTAT"
2383                "UNIX-GETHOSTNAME" "UNIX-GETPID" "UNIX-GETRUSAGE"
2384                "UNIX-GETTIMEOFDAY" "UNIX-GETUID" "UNIX-GID" "UNIX-IOCTL"
2385                "UNIX-ISATTY" "UNIX-LSEEK" "UNIX-LSTAT" "UNIX-MKDIR"
2386                "UNIX-OPEN" "UNIX-OPENDIR" "UNIX-PATHNAME" "UNIX-PID"
2387                "UNIX-PIPE" "UNIX-SIMPLE-POLL" "UNIX-READ" "UNIX-READDIR" "UNIX-READLINK" "UNIX-REALPATH"
2388                "UNIX-RENAME" "UNIX-SELECT" "UNIX-STAT" "UNIX-UID"
2389                "UNIX-UNLINK" "UNIX-WRITE"
2390                "WINSIZE"
2391                "WRITEGRP" "WRITEOTH" "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL"
2392                "WS-YPIXEL" "WNOHANG" "WSTOPPED" "WUNTRACED" "W_OK" "X_OK"
2393
2394                ;; signals
2395                "SIGALRM" "SIGBUS" "SIGCHLD" "SIGCONT" "SIGEMT" "SIGFPE"
2396                "SIGHUP" "SIGILL" "SIGINT" "SIGIO" "SIGIOT" "SIGKILL"
2397                "SIGPIPE" "SIGPROF" "SIGQUIT" "SIGSEGV" "SIGSTOP" "SIGSYS"
2398                "SIGTERM" "SIGTRAP" "SIGTSTP" "SIGTTIN" "SIGTTOU" "SIGURG"
2399                "SIGUSR1" "SIGUSR2" "SIGVTALRM" "SIGWAITING" "SIGWINCH"
2400                "SIGXCPU" "SIGXFSZ"
2401
2402                ;; errors
2403                "E2BIG" "EADDRINUSE" "EADDRNOTAVAIL" "EAFNOSUPPORT"
2404                "EAGAIN" "EALREADY" "EBADF" "EBUSY" "ECHILD" "ECONNABORTED"
2405                "ECONNREFUSED" "ECONNRESET" "EDEADLK" "EDESTADDRREQ" "EDOM"
2406                "EDQUOT" "EEXIST" "EFAULT" "EFBIG" "EHOSTDOWN"
2407                "EHOSTUNREACH" "EINPROGRESS" "EINTR" "EINVAL" "EIO"
2408                "EISCONN" "EISDIR" "ELOCAL" "ELOOP" "EMFILE" "EMLINK"
2409                "EMSGSIZE" "ENAMETOOLONG" "ENETDOWN" "ENETRESET"
2410                "ENETUNREACH" "ENFILE" "ENOBUFS" "ENODEV" "ENOENT"
2411                "ENOEXEC" "ENOMEM" "ENOPROTOOPT" "ENOSPC" "ENOTBLK"
2412                "ENOTCONN" "ENOTEMPTY" "ENOTSOCK" "ENOTTY" "ENXIO"
2413                "EOPNOTSUPP" "EPERM" "EPFNOSUPPORT" "EPIPE" "EPROCLIM"
2414                "EPROTONOSUPPORT" "EPROTOTYPE" "ERANGE" "EREMOTE"
2415                "ERESTART" "EROFS" "ESHUTDOWN" "ESOCKTNOSUPPORT" "ESPIPE"
2416                "ESRCH" "ESUCCESS" "ETIMEDOUT" "ETOOMANYREFS" "ETXTBSY"
2417                "EUSERS" "EVICEERR" "EVICEOP" "EWOULDBLOCK" "EXDEV"
2418
2419                "FD-ISSET" "FD-SET" "LTCHARS" "UNIX-FAST-SELECT"
2420                "UNIX-KILL" "CODESET"
2421                "TCSETPGRP" "FD-ZERO" "FD-CLR" "CHECK" "UNIX-RESOLVE-LINKS"
2422                "FD-SETSIZE" "TCGETPGRP" "UNIX-FAST-GETRUSAGE"
2423                "UNIX-KILLPG"
2424                "TIOCSIGSEND"
2425                "C-IFLAG" "C-LFLAG" "C-OFLAG"
2426                "C-CFLAG" "TCSAFLUSH" "C-CC" "SIOCSPGRP" "TERMIOS"
2427                "O_NDELAY" "O_NOCTTY"
2428                "O_NONBLOCK" "TCSANOW" "TCSADRAIN" "TCIFLUSH" "TCOFLUSH"
2429                "TCIOFLUSH" "TTY-IGNBRK" "TTY-BRKINT" "TTY-IGNPAR" "TTY-PARMRK"
2430                "TTY-INPCK" "TTY-ISTRIP" "TTY-INLCR" "TTY-IGNCR" "TTY-ICRNL"
2431                "TTY-IUCLC" "TTY-IXON" "TTY-IXANY" "TTY-IXOFF" "TTY-IENQAK"
2432                "TTY-IMAXBEL" "TTY-OPOST" "TTY-OLCUC" "TTY-ONLCR" "TTY-OCRNL"
2433                "TTY-ONOCR" "TTY-ONLRET" "TTY-OFILL" "TTY-OFDEL" "TTY-ISIG"
2434                "TTY-ICANON" "TTY-XCASE" "TTY-ECHO" "TTY-ECHOE" "TTY-ECHOK"
2435                "TTY-ECHONL" "TTY-NOFLSH" "TTY-IEXTEN" "TTY-TOSTOP" "TTY-ECHOCTL"
2436                "TTY-ECHOPRT" "TTY-ECHOKE"  "TTY-DEFECHO" "TTY-FLUSHO"
2437                "TTY-PENDIN" "TTY-CSTOPB" "TTY-CREAD" "TTY-PARENB" "TTY-PARODD"
2438                "TTY-HUPCL" "TTY-CLOCAL" "RCV1EN" "XMT1EN" "TTY-LOBLK" "VINTR"
2439                "VQUIT" "VERASE" "VKILL" "VEOF" "VEOL" "VEOL2" "TTY-CBAUD"
2440                "TTY-CSIZE" "TTY-CS5" "TTY-CS6" "TTY-CS7" "TTY-CS8" "VMIN" "VTIME"
2441                "VSUSP" "VSTART" "VSTOP" "VDSUSP"
2442                #!+(or svr4 bsd linux) "O_NDELAY"
2443                #!+(or svr4 linux)
2444                ("EADDRINUSE"
2445                 "EADDRNOTAVAIL" "EADV"
2446                 "EAFNOSUPPORT" "EALREADY" "EBADE" "EBADFD"
2447                 "EBADMSG" "EBADR" "EBADRQC"
2448                 "EBADSLT" "EBFONT" #!+svr4 "ECANCELED"
2449                 "ECHRNG" "ECOMM" "ECONNABORTED"
2450                 "ECONNREFUSED" "ECONNRESET" "EDEADLK"
2451                 "EDEADLOCK" "EDESTADDRREQ" #!+linux "EDOTDOT"
2452                 #!+linux "EDQUOT" "EHOSTDOWN" "EHOSTUNREACH"
2453                 "EIDRM" "EILSEQ" "EINPROGRESS"
2454                 "EISCONN" #!+linux "EISNAM" "EL2HLT"
2455                 "EL2NSYNC" "EL3HLT" "EL3RST" "ELIBACC"
2456                 "ELIBBAD" "ELIBEXEC" "ELIBMAX" "ELIBSCN"
2457                 "ELNRNG" "ELOOP" "EMSGSIZE" "EMULTIHOP"
2458                 "ENAMETOOLONG" #!+linux "ENAVAIL"
2459                 "ENETDOWN" "ENETRESET" "ENETUNREACH" "ENOANO"
2460                 "ENOBUFS" "ENOCSI" "ENODATA" "ENOLCK"
2461                 "ENOLINK" "ENOMSG" "ENONET" "ENOPKG"
2462                 "ENOPROTOOPT" "ENOSR" "ENOSTR" "ENOSYS"
2463                 "ENOTCONN" "ENOTEMPTY" #!+linux "ENOTNAM"
2464                 "ENOTSOCK" #!+svr4 "ENOTSUP" "ENOTUNIQ"
2465                 "EOPNOTSUPP" "EOVERFLOW" "EPFNOSUPPORT"
2466                 "EPROTO" "EPROTONOSUPPORT" "EPROTOTYPE"
2467                 "EREMCHG" "EREMOTE" #!+linux "EREMOTEIO"
2468                 "ERESTART" "ESHUTDOWN" "ESOCKTNOSUPPORT"
2469                 "ESRMNT" "ESTALE" "ESTRPIPE" "ETIME"
2470                 "ETIMEDOUT" "ETOOMANYREFS" #!+linux "EUCLEAN"
2471                 "EUNATCH" "EUSERS" "EWOULDBLOCK" "EXFULL")))
2472
2473    #s(sb-cold:package-data
2474       :name "SB!VM"
2475       :doc
2476       "internal: the default place to hide information about the hardware and data
2477 structure representations"
2478       :use ("CL" "SB!ALIEN" "SB!ALIEN-INTERNALS" "SB!ASSEM" "SB!C"
2479                  "SB!EXT" "SB!FASL" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!UNIX")
2480       :reexport ("WORD")
2481       :export ("*ALLOC-SIGNAL*"
2482                "*ASSEMBLY-UNIT-LENGTH*"
2483                "*PRIMITIVE-OBJECTS*"
2484                "+HIGHEST-NORMAL-GENERATION+"
2485                "+PSEUDO-STATIC-GENERATION+"
2486                "%COMPILER-BARRIER" "%DATA-DEPENDENCY-BARRIER"
2487                "%MEMORY-BARRIER" "%READ-BARRIER" "%WRITE-BARRIER"
2488                "AFTER-BREAKPOINT-TRAP"
2489                "ANY-REG-SC-NUMBER" "ARRAY-DATA-SLOT" "ARRAY-DIMENSIONS-OFFSET"
2490                "ARRAY-DISPLACED-P-SLOT" "ARRAY-DISPLACEMENT-SLOT"
2491                "ARRAY-DISPLACED-FROM-SLOT"
2492                "ARRAY-ELEMENTS-SLOT" "ARRAY-FILL-POINTER-P-SLOT"
2493                "ARRAY-FILL-POINTER-SLOT" "ATOMIC-FLAG"
2494                "CHARACTER-REG-SC-NUMBER"
2495                "CHARACTER-STACK-SC-NUMBER" "CHARACTER-WIDETAG"
2496                "BIGNUM-DIGITS-OFFSET" "BIGNUM-WIDETAG" "BINDING-SIZE"
2497                "BINDING-SYMBOL-SLOT" "BINDING-VALUE-SLOT" "BREAKPOINT-TRAP"
2498                "N-BYTE-BITS" "BYTE-REG-SC-NUMBER"
2499                "CATCH-BLOCK-CURRENT-CODE-SLOT"
2500                "CATCH-BLOCK-CURRENT-CONT-SLOT" "CATCH-BLOCK-CURRENT-UWP-SLOT"
2501                "CATCH-BLOCK-ENTRY-PC-SLOT" "CATCH-BLOCK-PREVIOUS-CATCH-SLOT"
2502                "CATCH-BLOCK-SC-NUMBER" "CATCH-BLOCK-SIZE" "CATCH-BLOCK-SIZE-SLOT"
2503                "CATCH-BLOCK-TAG-SLOT" "CERROR-TRAP"
2504                "CLOSURE-FUN-SLOT"
2505                "CLOSURE-HEADER-WIDETAG" "CLOSURE-INFO-OFFSET"
2506                "CODE-CODE-SIZE-SLOT" "CODE-CONSTANTS-OFFSET"
2507                "CODE-DEBUG-INFO-SLOT" "CODE-ENTRY-POINTS-SLOT"
2508                "CODE-HEADER-WIDETAG"
2509                "CODE-TRACE-TABLE-OFFSET-SLOT" "COMPLEX-ARRAY-WIDETAG"
2510                "COMPLEX-BIT-VECTOR-WIDETAG" "COMPLEX-DOUBLE-FLOAT-FILLER-SLOT"
2511                "COMPLEX-DOUBLE-FLOAT-IMAG-SLOT" "COMPLEX-DOUBLE-FLOAT-REAL-SLOT"
2512                "COMPLEX-DOUBLE-FLOAT-SIZE" "COMPLEX-DOUBLE-FLOAT-WIDETAG"
2513                "COMPLEX-DOUBLE-REG-SC-NUMBER" "COMPLEX-DOUBLE-STACK-SC-NUMBER"
2514                "COMPLEX-IMAG-SLOT" "COMPLEX-REAL-SLOT"
2515                #!+long-float "COMPLEX-LONG-FLOAT-IMAG-SLOT"
2516                #!+long-float "COMPLEX-LONG-FLOAT-REAL-SLOT"
2517                #!+long-float "COMPLEX-LONG-FLOAT-SIZE"
2518                #!+long-float "COMPLEX-LONG-FLOAT-WIDETAG"
2519                #!+long-float "COMPLEX-LONG-REG-SC-NUMBER"
2520                #!+long-float "COMPLEX-LONG-STACK-SC-NUMBER"
2521                #!-x86-64 #!-x86-64
2522                "COMPLEX-SINGLE-FLOAT-IMAG-SLOT" "COMPLEX-SINGLE-FLOAT-REAL-SLOT"
2523                #!+x86-64
2524                "COMPLEX-SINGLE-FLOAT-DATA-SLOT"
2525                "COMPLEX-SINGLE-FLOAT-SIZE" "COMPLEX-SINGLE-FLOAT-WIDETAG"
2526                "COMPLEX-SINGLE-REG-SC-NUMBER" "COMPLEX-SINGLE-STACK-SC-NUMBER"
2527                "COMPLEX-SIZE" "COMPLEX-BASE-STRING-WIDETAG"
2528                #!+sb-unicode "COMPLEX-CHARACTER-STRING-WIDETAG"
2529                "COMPLEX-WIDETAG"
2530                "COMPLEX-VECTOR-NIL-WIDETAG"
2531                "COMPLEX-VECTOR-WIDETAG" "CONS-CAR-SLOT" "CONS-CDR-SLOT"
2532                "CONS-SIZE" "CONSTANT-SC-NUMBER"
2533                "CONTEXT-FLOATING-POINT-MODES" "CONTEXT-FLOAT-REGISTER"
2534                "CONTEXT-PC" "CONTEXT-REGISTER"
2535                "CONTROL-STACK-SC-NUMBER" "COUNT-NO-OPS"
2536                "*CURRENT-CATCH-BLOCK*"
2537                "CURRENT-FLOAT-TRAP" "DEFINE-FOR-EACH-PRIMITIVE-OBJECT"
2538                "DESCRIPTOR-REG-SC-NUMBER" "DESCRIPTOR-VS-NON-DESCRIPTOR-STORAGE"
2539                "DOUBLE-FLOAT-EXPONENT-BYTE" "DOUBLE-FLOAT-BIAS"
2540                "DOUBLE-FLOAT-DIGITS" "DOUBLE-FLOAT-EXPONENT-BYTE"
2541                "DOUBLE-FLOAT-FILLER-SLOT" "DOUBLE-FLOAT-HIDDEN-BIT"
2542                "DOUBLE-FLOAT-NORMAL-EXPONENT-MAX"
2543                "DOUBLE-FLOAT-NORMAL-EXPONENT-MIN" "DOUBLE-FLOAT-SIGNIFICAND-BYTE"
2544                "DOUBLE-FLOAT-SIZE" "DOUBLE-FLOAT-TRAPPING-NAN-BIT"
2545                "DOUBLE-FLOAT-WIDETAG" "DOUBLE-FLOAT-VALUE-SLOT"
2546                "DOUBLE-INT-CARG-REG-SC-NUMBER" "DOUBLE-REG-SC-NUMBER"
2547                "DOUBLE-STACK-SC-NUMBER"
2548                "ERROR-TRAP" "EVEN-FIXNUM-LOWTAG"
2549                "EXPORTED-STATIC-SYMBOLS"
2550                "FDEFN-FUN-SLOT" "FDEFN-NAME-SLOT" "FDEFN-RAW-ADDR-SLOT"
2551                "FDEFN-SIZE" "FDEFN-WIDETAG" "FIXNUMIZE"
2552                "FIXNUM-TAG-MASK"
2553                "FIXUP-CODE-OBJECT" "FLOAT-DENORMAL-TRAP-BIT"
2554                "FLOAT-DIVIDE-BY-ZERO-TRAP-BIT"
2555                "FLOAT-IMPRECISE-TRAP-BIT" "FLOAT-INVALID-TRAP-BIT"
2556                "FLOAT-OVERFLOW-TRAP-BIT" "FLOAT-SIGN-SHIFT"
2557                "FLOAT-UNDERFLOW-TRAP-BIT" "FLOATING-POINT-MODES"
2558                "FORWARDING-POINTER-TYPE"
2559                "FP-CONSTANT-SC-NUMBER"
2560                "FP-DOUBLE-ZERO-SC-NUMBER" "FP-SINGLE-ZERO-SC-NUMBER"
2561                "FUNCALLABLE-INSTANCE-TRAMPOLINE-SLOT"
2562                "FUNCALLABLE-INSTANCE-HEADER-WIDETAG"
2563                "FUNCALLABLE-INSTANCE-INFO-OFFSET"
2564                "SIMPLE-FUN-ARGLIST-SLOT" "SIMPLE-FUN-CODE-OFFSET"
2565                "FUN-END-BREAKPOINT-TRAP"
2566                "SIMPLE-FUN-HEADER-CODE-OFFSET"
2567                "SIMPLE-FUN-HEADER-NEXT-SLOT"
2568                "SIMPLE-FUN-HEADER-SELF-SLOT"
2569                "SIMPLE-FUN-HEADER-WIDETAG"
2570                "SIMPLE-FUN-HEADER-TYPE-SLOT"
2571                "SIMPLE-FUN-NAME-SLOT"
2572                "SIMPLE-FUN-NEXT-SLOT"
2573                "FUN-POINTER-LOWTAG"
2574                "SIMPLE-FUN-SELF-SLOT"
2575                "SIMPLE-FUN-TYPE-SLOT"
2576                "GENCGC-PAGE-BYTES"
2577                #!+ppc "PSEUDO-ATOMIC-INTERRUPTED-FLAG"
2578                #!+ppc "PSEUDO-ATOMIC-FLAG"
2579                "GENESIS" "HALT-TRAP" "IGNORE-ME-SC-NUMBER"
2580                "IMMEDIATE-CHARACTER-SC-NUMBER" "IMMEDIATE-SAP-SC-NUMBER"
2581                "IMMEDIATE-SC-NUMBER"
2582                #!+inline-constants "CANONICALIZE-INLINE-CONSTANT"
2583                #!+inline-constants "INLINE-CONSTANT-VALUE"
2584                #!+inline-constants "EMIT-CONSTANT-SEGMENT-HEADER"
2585                #!+inline-constants "SORT-INLINE-CONSTANTS"
2586                #!+inline-constants "EMIT-INLINE-CONSTANT"
2587                "INSTANCE-HEADER-WIDETAG" "INSTANCE-POINTER-LOWTAG"
2588                "INSTANCE-SLOTS-OFFSET" "INSTANCE-USAGE"
2589                "INTERIOR-REG-SC-NUMBER" "INTERNAL-ERROR-ARGS"
2590                "INTERRUPTED-FLAG" "LIST-ALLOCATED-OBJECTS" "LIST-POINTER-LOWTAG"
2591                ;; FIXME: Possibly these other parameters (see
2592                ;; compiler/{x86,sparc}/parms.lisp) should be defined
2593                ;; conditionally on #!+LONG-FLOAT)
2594                "LONG-FLOAT-BIAS" "LONG-FLOAT-DIGITS" "LONG-FLOAT-EXPONENT-BYTE"
2595                "LONG-FLOAT-HIDDEN-BIT" "LONG-FLOAT-NORMAL-EXPONENT-MAX"
2596                "LONG-FLOAT-NORMAL-EXPONENT-MIN" "LONG-FLOAT-SIGNIFICAND-BYTE"
2597                #!+long-float "LONG-FLOAT-SIZE"
2598                "LONG-FLOAT-TRAPPING-NAN-BIT"
2599                #!+long-float "LONG-FLOAT-WIDETAG"
2600                #!+long-float "LONG-FLOAT-VALUE-SLOT"
2601                #!+long-float "LONG-REG-SC-NUMBER"
2602                #!+long-float "LONG-STACK-SC-NUMBER"
2603                "LOWTAG-LIMIT" "LOWTAG-MASK"
2604                "LRA-SAVE-OFFSET"
2605                #!+(and sb-thread sb-lutex) "LUTEX-WIDETAG"
2606                "MEMORY-USAGE" "MOST-POSITIVE-COST"
2607                "N-LOWTAG-BITS"
2608                "N-FIXNUM-TAG-BITS"
2609                "N-POSITIVE-FIXNUM-BITS"
2610                "NEGATIVE-IMMEDIATE-SC-NUMBER"
2611                "NFP-SAVE-OFFSET"
2612                "NON-DESCRIPTOR-REG-SC-NUMBER"
2613                "NULL-SC-NUMBER"
2614                "OBJECT-NOT-LIST-TRAP" "OBJECT-NOT-INSTANCE-TRAP"
2615                "OCFP-SAVE-OFFSET"
2616                "ODD-FIXNUM-LOWTAG"
2617                "OFFSET-STATIC-SYMBOL"
2618                "OTHER-IMMEDIATE-0-LOWTAG"
2619                "OTHER-IMMEDIATE-1-LOWTAG"
2620                ;; FIXME: 32/64-bit issues
2621                "OTHER-IMMEDIATE-2-LOWTAG"
2622                "OTHER-IMMEDIATE-3-LOWTAG"
2623                "OTHER-POINTER-LOWTAG"
2624                "PAD-DATA-BLOCK" "PENDING-INTERRUPT-TRAP"
2625                "PRIMITIVE-OBJECT" "PRIMITIVE-OBJECT-WIDETAG"
2626                "PRIMITIVE-OBJECT-LOWTAG" "PRIMITIVE-OBJECT-NAME"
2627                "PRIMITIVE-OBJECT-OPTIONS" "PRIMITIVE-OBJECT-P"
2628                "PRIMITIVE-OBJECT-SIZE" "PRIMITIVE-OBJECT-SLOTS"
2629                "PRIMITIVE-OBJECT-VARIABLE-LENGTH-P" "PRINT-ALLOCATED-OBJECTS"
2630                "RANDOM-IMMEDIATE-SC-NUMBER" "RATIO-DENOMINATOR-SLOT"
2631                "RATIO-NUMERATOR-SLOT" "RATIO-SIZE" "RATIO-WIDETAG"
2632                "*READ-ONLY-SPACE-FREE-POINTER*"
2633                "REGISTER-SAVE-PENALTY" "RETURN-PC-HEADER-WIDETAG"
2634                "RETURN-PC-RETURN-POINT-OFFSET" "RETURN-PC-SAVE-OFFSET"
2635                "SAETP-CTYPE" "SAETP-INITIAL-ELEMENT-DEFAULT"
2636                "SAETP-N-BITS" "SAETP-TYPECODE" "SAETP-PRIMITIVE-TYPE-NAME"
2637                "SAETP-N-PAD-ELEMENTS" "SAETP-SPECIFIER"
2638                "SAETP-COMPLEX-TYPECODE" "SAETP-IMPORTANCE"
2639                "SAETP-FIXNUM-P"
2640                "VALID-BIT-BASH-SAETP-P"
2641                "*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES*"
2642                "SANCTIFY-FOR-EXECUTION"
2643                "SAP-POINTER-SLOT" "SAP-REG-SC-NUMBER" "SAP-SIZE"
2644                "SAP-STACK-SC-NUMBER" "SAP-WIDETAG"
2645                "SIGFPE-HANDLER" "SIGNED-REG-SC-NUMBER" "SIGNED-STACK-SC-NUMBER"
2646                "SIGNED-WORD"
2647                "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-WIDETAG"
2648                #!+long-float "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-WIDETAG"
2649                "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-WIDETAG"
2650                "SIMPLE-ARRAY-DOUBLE-FLOAT-WIDETAG"
2651                #!+long-float "SIMPLE-ARRAY-LONG-FLOAT-WIDETAG"
2652                "SIMPLE-ARRAY-NIL-WIDETAG"
2653                "SIMPLE-ARRAY-SINGLE-FLOAT-WIDETAG"
2654                "SIMPLE-ARRAY-WIDETAG"
2655                "SIMPLE-ARRAY-UNSIGNED-BYTE-15-WIDETAG"
2656                "SIMPLE-ARRAY-UNSIGNED-BYTE-16-WIDETAG"
2657                "SIMPLE-ARRAY-UNSIGNED-BYTE-2-WIDETAG"
2658                ;; FIXME: 32/64-bit issues
2659                "SIMPLE-ARRAY-UNSIGNED-BYTE-29-WIDETAG"
2660                "SIMPLE-ARRAY-UNSIGNED-BYTE-31-WIDETAG"
2661                "SIMPLE-ARRAY-UNSIGNED-BYTE-32-WIDETAG"
2662                ;; FIXME: 32/64-bit issues
2663                "SIMPLE-ARRAY-UNSIGNED-BYTE-60-WIDETAG"
2664                "SIMPLE-ARRAY-UNSIGNED-BYTE-63-WIDETAG"
2665                "SIMPLE-ARRAY-UNSIGNED-BYTE-64-WIDETAG"
2666                "SIMPLE-ARRAY-UNSIGNED-BYTE-4-WIDETAG"
2667                "SIMPLE-ARRAY-UNSIGNED-BYTE-7-WIDETAG"
2668                "SIMPLE-ARRAY-UNSIGNED-BYTE-8-WIDETAG"
2669                "SIMPLE-ARRAY-SIGNED-BYTE-16-WIDETAG"
2670                ;; FIXME: 32/64-bit issues
2671                "SIMPLE-ARRAY-SIGNED-BYTE-30-WIDETAG"
2672                "SIMPLE-ARRAY-SIGNED-BYTE-32-WIDETAG"
2673                ;; FIXME: 32/64-bit issues
2674                "SIMPLE-ARRAY-SIGNED-BYTE-61-WIDETAG"
2675                "SIMPLE-ARRAY-SIGNED-BYTE-64-WIDETAG"
2676                "SIMPLE-ARRAY-SIGNED-BYTE-8-WIDETAG"
2677                "SIMPLE-BIT-VECTOR-WIDETAG"
2678                "SIMPLE-BASE-STRING-WIDETAG"
2679                #!+sb-unicode "SIMPLE-CHARACTER-STRING-WIDETAG"
2680                "SIMPLE-VECTOR-WIDETAG" "SINGLE-FLOAT-BIAS"
2681                "SINGLE-FLOAT-DIGITS" "SINGLE-FLOAT-EXPONENT-BYTE"
2682                "SINGLE-FLOAT-HIDDEN-BIT" "SINGLE-FLOAT-NORMAL-EXPONENT-MAX"
2683                "SINGLE-FLOAT-NORMAL-EXPONENT-MIN" "SINGLE-FLOAT-SIGNIFICAND-BYTE"
2684                "SINGLE-FLOAT-SIZE" "SINGLE-FLOAT-TRAPPING-NAN-BIT"
2685                "SINGLE-FLOAT-WIDETAG" "SINGLE-FLOAT-VALUE-SLOT"
2686                "SINGLE-INT-CARG-REG-SC-NUMBER"
2687                "SINGLE-REG-SC-NUMBER" "SINGLE-STACK-SC-NUMBER"
2688                "SINGLE-STEP-AROUND-TRAP"
2689                "SINGLE-STEP-BEFORE-TRAP"
2690                "SINGLE-VALUE-RETURN-BYTE-OFFSET" "SLOT-DOCS"
2691                "SLOT-LENGTH" "SLOT-NAME" "SLOT-OFFSET" "SLOT-OPTIONS"
2692                "SLOT-REST-P" "*STATIC-FUNS*" "STATIC-FUN-OFFSET"
2693                "STATIC-SYMBOL-OFFSET" "STATIC-SYMBOL-P"
2694                "*STATIC-SPACE-FREE-POINTER*" "*STATIC-SYMBOLS*"
2695                "STRUCTURE-USAGE"
2696                "SYMBOL-HASH-SLOT" "SYMBOL-HEADER-WIDETAG" "SYMBOL-NAME-SLOT"
2697                "SYMBOL-PACKAGE-SLOT" "SYMBOL-PLIST-SLOT"
2698                "SYMBOL-SIZE" "SYMBOL-UNUSED-SLOT" "SYMBOL-VALUE-SLOT"
2699                "*BINDING-STACK-START*"
2700                "*CONTROL-STACK-START*" "*CONTROL-STACK-END*"
2701                "CONTROL-STACK-POINTER-VALID-P"
2702                "DYNAMIC-SPACE-START" "DYNAMIC-SPACE-END"
2703                #!+gencgc "MAX-DYNAMIC-SPACE-END"
2704                #!+c-stack-is-control-stack "ALTERNATE-SIGNAL-STACK-START"
2705                #!-gencgc "DYNAMIC-0-SPACE-START"
2706                #!-gencgc "DYNAMIC-0-SPACE-END"
2707                #!-gencgc "DYNAMIC-1-SPACE-START"
2708                #!-gencgc "DYNAMIC-1-SPACE-END"
2709                "READ-ONLY-SPACE-START" "READ-ONLY-SPACE-END"
2710                "TARGET-BYTE-ORDER" "TARGET-HEAP-ADDRESS-SPACE"
2711                "STATIC-SPACE-START" "STATIC-SPACE-END"
2712                #!+linkage-table "LINKAGE-TABLE-SPACE-START"
2713                #!+linkage-table "LINKAGE-TABLE-SPACE-END"
2714                #!+linkage-table "LINKAGE-TABLE-ENTRY-SIZE"
2715                "TLS-SIZE"
2716                "TRACE-TABLE-CALL-SITE"
2717                "TRACE-TABLE-FUN-EPILOGUE" "TRACE-TABLE-FUN-PROLOGUE"
2718                "TRACE-TABLE-NORMAL" "N-WIDETAG-BITS" "WIDETAG-MASK"
2719                "UNBOUND-MARKER-WIDETAG"
2720                "NO-TLS-VALUE-MARKER-WIDETAG"
2721                "UNSIGNED-IMMEDIATE-SC-NUMBER"
2722                "UNSIGNED-REG-SC-NUMBER" "UNSIGNED-STACK-SC-NUMBER"
2723                "UNWIND-BLOCK-CURRENT-CODE-SLOT" "UNWIND-BLOCK-CURRENT-CONT-SLOT"
2724                "UNWIND-BLOCK-CURRENT-UWP-SLOT" "UNWIND-BLOCK-ENTRY-PC-SLOT"
2725                "UNWIND-BLOCK-SIZE" "VALUE-CELL-HEADER-WIDETAG" "VALUE-CELL-SIZE"
2726                "VALUE-CELL-VALUE-SLOT" "VECTOR-DATA-OFFSET" "VECTOR-LENGTH-SLOT"
2727                "VECTOR-MUST-REHASH-SUBTYPE" "VECTOR-NORMAL-SUBTYPE"
2728                "VECTOR-VALID-HASHING-SUBTYPE"
2729                "WEAK-POINTER-BROKEN-SLOT" "WEAK-POINTER-NEXT-SLOT"
2730                "WEAK-POINTER-SIZE" "WEAK-POINTER-WIDETAG"
2731                "WEAK-POINTER-VALUE-SLOT"
2732                "N-WORD-BITS" "N-WORD-BYTES" "N-MACHINE-WORD-BITS"
2733                "WORD-REG-SC-NUMBER" "WORD-SHIFT"
2734                #!+win32 "CONTEXT-RESTORE-TRAP"
2735                "ZERO-SC-NUMBER"))
2736
2737    #s(sb-cold:package-data
2738       :name "SB!WALKER"
2739       :doc "internal: a code walker used by PCL"
2740       :use ("CL" "SB!INT" "SB!EXT")
2741       :export ("DEFINE-WALKER-TEMPLATE"
2742                "WALK-FORM"
2743                "*WALK-FORM-EXPAND-MACROS-P*"
2744                "VAR-LEXICAL-P" "VAR-SPECIAL-P"
2745                "VAR-GLOBALLY-SPECIAL-P"
2746                "*VAR-DECLARATIONS*" "VAR-DECLARATION"
2747
2748                ;; These were exported from the original PCL version of this
2749                ;; package, but aren't used in SBCL.
2750                ;;"NESTED-WALK-FORM" "MACROEXPAND-ALL"
2751                ))
2752
2753    #!+sb-eval
2754    #s(sb-cold:package-data
2755       :name "SB!EVAL"
2756       :doc "internal: the evaluator implementation used to execute code without compiling it."
2757       :use ("CL" "SB!KERNEL" "SB!EXT")
2758       :reexport ("*EVAL-CALLS*")
2759       :export ("INTERPRETED-FUNCTION"
2760                "INTERPRETED-FUNCTION-P"
2761                "INTERPRETED-FUNCTION-NAME"
2762                "INTERPRETED-FUNCTION-DEBUG-NAME"
2763                "INTERPRETED-FUNCTION-LAMBDA-LIST"
2764                "INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST"
2765                "INTERPRETED-FUNCTION-DECLARATIONS"
2766                "INTERPRETED-FUNCTION-DOCUMENTATION"
2767                "INTERPRETED-FUNCTION-BODY"
2768                "INTERPRETED-FUNCTION-SOURCE-LOCATION"
2769                "EVAL-IN-ENVIRONMENT"
2770                "MAKE-NULL-ENVIRONMENT"
2771                "EVAL-IN-NATIVE-ENVIRONMENT"
2772                "PREPARE-FOR-COMPILE"
2773                "COUNT-EVAL-CALLS"
2774                "*EVAL-LEVEL*"))
2775
2776    #!+win32
2777    #s(sb-cold:package-data
2778       :name "SB!WIN32"
2779       :doc "private: a wrapper layer for Win32 functions needed by
2780 SBCL itself"
2781       :use ("CL" "SB!ALIEN" "SB!EXT" "SB!INT" "SB!SYS")
2782       :export ("BOOL"
2783                "DWORD" "FD-CLEAR-INPUT" "FD-LISTEN"
2784                "FLUSH-CONSOLE-INPUT-BUFFER" "FORMAT-MESSAGE"
2785                "GET-LAST-ERROR" "GET-OSFHANDLE" "HANDLE"
2786                "HANDLE-CLEAR-INPUT" "HANDLE-LISTEN" "INT-PTR"
2787                "INVALID-HANDLE" "MILLISLEEP" "PEEK-CONSOLE-INPUT"
2788                "PEEK-NAMED-PIPE" "READ-FILE" "WRITE-FILE"
2789                "WITH-PROCESS-TIMES" "GET-VERSION-EX")))