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