package-data-list.lisp-expr

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