0.8.4.30:
[sbcl.git] / package-data-list.lisp-expr
index 20b0950..273558e 100644 (file)
@@ -2,10 +2,9 @@
 
 ;;;; the specifications of target packages, except for a few things
 ;;;; which are handled elsewhere by other mechanisms:
-;;;;   * the creation of the trivial SB-SLOT-ACCESSOR-NAME package
-;;;;   * any SHADOWing and nickname hackery
+;;;;   * any SHADOWing and nickname hackery;
 ;;;;   * the standard, non-SBCL-specific packages COMMON-LISP,
-;;;;     COMMON-LISP-USER, and KEYWORD
+;;;;     COMMON-LISP-USER, and KEYWORD.
 ;;;;
 ;;;; The packages are named SB!FOO here and elsewhere in
 ;;;; cross-compilation, in order to avoid collision with possible
@@ -154,6 +153,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
              "BIGNUM-COMPARE" "BIGNUM-DEPOSIT-BYTE"
              "BIGNUM-ELEMENT-TYPE" "BIGNUM-GCD" "BIGNUM-INDEX"
              "BIGNUM-INTEGER-LENGTH" "BIGNUM-LOAD-BYTE"
+            "BIGNUM-LOGBITP"
              "BIGNUM-LOGCOUNT" "BIGNUM-LOGICAL-AND"
              "BIGNUM-LOGICAL-IOR" "BIGNUM-LOGICAL-NOT"
              "BIGNUM-LOGICAL-XOR" "BIGNUM-PLUS-P"
@@ -192,8 +192,9 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
               "*BACKEND-SUBFEATURES*"
               "*BACKEND-T-PRIMITIVE-TYPE*"
 
-              "*CODE-SEGMENT*" 
+              "*CODE-SEGMENT*"
               "*COUNT-VOP-USAGES*" "*ELSEWHERE*" "*FREE-FUNS*"
+              "*LEXENV*"
               "*SETF-ASSUMED-FBOUNDP*"
               "*SUPPRESS-VALUES-DECLARATION*"
 
@@ -209,19 +210,24 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
               "CHECK-FIXNUM" "CHECK-FUN"
               "CHECK-SIGNED-BYTE-32" "CHECK-SYMBOL" "CHECK-UNSIGNED-BYTE-32"
               "CLOSURE-INIT" "CLOSURE-REF"
-              "CODE-CONSTANT-REF" "CODE-CONSTANT-SET" 
+              "CODE-CONSTANT-REF" "CODE-CONSTANT-SET"
+              "COMPILE-IN-LEXENV"
              "COMPILE-LAMBDA-FOR-DEFUN"
               "%COMPILER-DEFUN" "COMPILER-ERROR"
+             "COMPILER-NOTIFY"
+             "COMPILER-STYLE-WARN" "COMPILER-WARN"
               "COMPONENT" "COMPONENT-HEADER-LENGTH"
               "COMPONENT-INFO" "COMPONENT-LIVE-TN" "COMPUTE-FUN"
-              "COMPUTE-OLD-NFP" "COPY-MORE-ARG" 
+              "COMPUTE-OLD-NFP" "COPY-MORE-ARG"
               "CURRENT-BINDING-POINTER" "CURRENT-NFP-TN"
               "CURRENT-STACK-POINTER" "DEALLOC-ALIEN-STACK-SPACE"
-              "DEALLOC-NUMBER-STACK-SPACE" "DEF-BOOLEAN-ATTRIBUTE"
+              "DEALLOC-NUMBER-STACK-SPACE"
               "DEF-IR1-TRANSLATOR"
               "!DEF-PRIMITIVE-TYPE" "!DEF-PRIMITIVE-TYPE-ALIAS"
               "DEFINE-SOURCE-TRANSFORM" "!DEF-VM-SUPPORT-ROUTINE"
-              "DEFINE-ASSEMBLY-ROUTINE" "DEFINE-MOVE-FUN"
+              "DEFINE-ASSEMBLY-ROUTINE"
+              "DEFINE-MODULAR-FUN"
+              "DEFINE-MOVE-FUN"
               "DEFINE-MOVE-VOP" "DEFINE-STORAGE-BASE"
               "DEFINE-STORAGE-CLASS" "DEFINE-VOP"
               "DEFKNOWN" "DEFOPTIMIZER"
@@ -230,6 +236,8 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
               "PHYSENV-DEBUG-LIVE-TN" "PHYSENV-LIVE-TN"
               "FAST-SYMBOL-VALUE" "FOLDABLE"
               "FORCE-TN-TO-STACK"
+             "FUN-INFO-DERIVE-TYPE" "FUN-INFO-IR2-CONVERT"
+             "FUN-INFO-LTN-ANNOTATE" "FUN-INFO-OPTIMIZER"
              "GET-VECTOR-SUBTYPE"
               "HALT"
              "IF-EQ" "INLINE-SYNTACTIC-CLOSURE-LAMBDA"
@@ -237,15 +245,16 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
               "IR2-COMPONENT-CONSTANTS" "IR2-CONVERT"
               "IR2-PHYSENV-NUMBER-STACK-P"
              "KNOWN-CALL-LOCAL" "KNOWN-RETURN"
-             "LAMBDA-INDEPENDENT-OF-LEXENV-P"
-             "LAMBDA-WITH-LEXENV" "LOCATION=" "LTN-ANNOTATE"
+             "LAMBDA-WITH-LEXENV" "LEXENV-FIND"
+             "LOCATION=" "LTN-ANNOTATE"
               "MAKE-ALIAS-TN" "MAKE-CATCH-BLOCK"
               "MAKE-CLOSURE" "MAKE-CONSTANT-TN" "MAKE-FIXNUM"
               "MAKE-LOAD-TIME-CONSTANT-TN" "MAKE-N-TNS" "MAKE-NORMAL-TN"
               "MAKE-OTHER-IMMEDIATE-TYPE" "MAKE-RANDOM-TN"
               "MAKE-REPRESENTATION-TN" "MAKE-RESTRICTED-TN" "MAKE-SC-OFFSET"
               "MAKE-STACK-POINTER-TN" "MAKE-TN-REF" "MAKE-UNWIND-BLOCK"
-             "MAKE-WIRED-TN" "MAYBE-COMPILER-NOTE"
+             "MAKE-WIRED-TN" "MAYBE-COMPILER-NOTIFY"
+             "MAYBE-INLINE-SYNTACTIC-CLOSURE"
               "META-PRIMITIVE-TYPE-OR-LOSE"
               "META-SB-OR-LOSE" "META-SC-NUMBER-OR-LOSE" "META-SC-OR-LOSE"
               "MORE-ARG-CONTEXT" "MOVABLE" "MOVE" "MULTIPLE-CALL"
@@ -266,8 +275,9 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
               "SC-OFFSET-OFFSET" "SC-OFFSET-SCN" "SC-OR-LOSE" "SC-P" "SC-SB"
               "SET-UNWIND-PROTECT" "SET-VECTOR-SUBTYPE"
               "SETUP-CLOSURE-ENVIRONMENT" "SETUP-ENVIRONMENT"
-              "SPECIFY-SAVE-TN" "INSTANCE-REF"
-              "INSTANCE-SET" "TAIL-CALL" "TAIL-CALL-NAMED"
+              "SOURCE-TRANSFORM-LAMBDA"
+              "SPECIFY-SAVE-TN"
+              "TAIL-CALL" "TAIL-CALL-NAMED"
               "TAIL-CALL-VARIABLE" "TEMPLATE-OR-LOSE"
               "TN" "TN-OFFSET" "TN-P" "TN-REF" "TN-REF-ACROSS" "TN-REF-LOAD-TN"
               "TN-REF-NEXT" "TN-REF-NEXT-REF" "TN-REF-P" "TN-REF-TARGET"
@@ -494,12 +504,9 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
  ;; symbols in package COMMON-LISP. Lots of these symbols are accessed
  ;; with explicit SB!IMPL:: prefixes in the code. It would be nice to
  ;; reduce the use of this practice, so if symbols from here which are
- ;; accessed that way are found to belong more appropriately in
- ;; an existing package (e.g. KERNEL or SYS or EXT or FASL), I
- ;; (WHN 19990223) encourage maintainers to move them there..
- ;;
- ;; ..except that it's getting so big and crowded that maybe it should
- ;; be split up, too.
+ ;; accessed that way are found to belong more appropriately in an
+ ;; existing package (e.g. SB!KERNEL or SB!SYS or SB!EXT or SB!FASL),
+ ;; I (WHN 19990223) encourage maintainers to move them there..
  #s(sb-cold:package-data
     :name "SB!IMPL"
     :doc "private: a grab bag of implementation details"
@@ -513,7 +520,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
     :export (;; Information about how the program was invoked is
              ;; nonstandard but very useful.
              "*POSIX-ARGV*" "POSIX-GETENV" "POSIX-ENVIRON"
-
+                           
              ;; People have various good reasons to mess with the GC.
              "*AFTER-GC-HOOKS*" "*BEFORE-GC-HOOKS*"
              "*GC-NOTIFY-AFTER*" "*GC-NOTIFY-BEFORE*" "*GC-NOTIFY-STREAM*"
@@ -541,6 +548,19 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
              ;; error reporting, we have
              "DEFINE-SOURCE-CONTEXT"
 
+            ;; and given how many users dislike strict treatment of
+            ;; DEFCONSTANT, let's give them enough rope to escape by
+            "DEFCONSTANT-UNEQL" "DEFCONSTANT-UNEQL-NAME"
+            "DEFCONSTANT-UNEQL-NEW-VALUE" "DEFCONSTANT-UNEQL-OLD-VALUE"
+
+            ;; error signalled when attempt to load an invalid fasl
+            ;; is made, so that user code can try to recompile, etc.
+            "INVALID-FASL"
+
+            ;; conditions that can be handled to reduce compiler
+            ;; verbosity
+            "CODE-DELETION-NOTE" "COMPILER-NOTE"
+
             ;; FIXME: This name doesn't match the DEFFOO - vs. -
             ;; DEFINE-FOO convention used in the ANSI spec, and so
             ;; was deprecated in sbcl-0.pre7, ca. 2001-12-12. After
@@ -562,6 +582,9 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
              "*USE-IMPLEMENTATION-TYPES*"
              "*DERIVE-FUNCTION-TYPES*"
 
+             ;; ..and inspector of compiler policy
+             "DESCRIBE-COMPILER-POLICY"
+
              ;; a special form for breaking out of our "declarations
              ;; are assertions" default
              "TRULY-THE"
@@ -574,7 +597,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
 
              ;; weak pointers and finalization
              "CANCEL-FINALIZATION"
-             "FINALIZE"             
+             "FINALIZE"
              "HASH-TABLE-WEAK-P" "MAKE-WEAK-POINTER"
              "WEAK-POINTER" "WEAK-POINTER-P" "WEAK-POINTER-VALUE"
 
@@ -609,7 +632,9 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
 
              ;; miscellaneous useful supported extensions
              "QUIT"
-
+            "*MODULE-PROVIDER-FUNCTIONS*"
+            "WITH-TIMEOUT" "TIMEOUT"
+            
              ;; RUN-PROGRAM is not only useful for users, but also
              ;; useful to implement parts of SBCL itself, so we're
              ;; going to have to implement it anyway, so we might
@@ -618,6 +643,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
              ;; return a PROCESS object with operations defined on
              ;; that object.
              "RUN-PROGRAM"
+            "FIND-EXECUTABLE-IN-SEARCH-PATH"
              "PROCESS-ALIVE-P" "PROCESS-CLOSE"
              "PROCESS-CORE-DUMPED" "PROCESS-ERROR" "PROCESS-EXIT-CODE"
              "PROCESS-INPUT" "PROCESS-KILL" "PROCESS-OUTPUT" "PROCESS-P"
@@ -627,7 +653,8 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
  #s(sb-cold:package-data
     :name "SB!FORMAT"
     :doc "private: implementation of FORMAT and friends"
-    :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL"))
+    :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL")
+    :export ("%COMPILER-WALK-FORMAT-STRING" "FORMAT-ERROR"))
 
  #s(sb-cold:package-data
     :name "SB!GRAY"
@@ -678,7 +705,7 @@ retained, possibly temporariliy, because it might be used internally."
 
              ;; hash mixing operations
              "MIX" "MIXF"
-             
+
              ;; I'm not convinced that FDEFINITIONs are the ideal
              ;; solution, so exposing ways to peek into the system
              ;; seems undesirable, since it makes it harder to get
@@ -690,8 +717,9 @@ retained, possibly temporariliy, because it might be used internally."
              "SIMPLE-PARSE-ERROR"
              "SIMPLE-PROGRAM-ERROR" "SIMPLE-STREAM-ERROR"
              "SIMPLE-STYLE-WARNING"
-             "STYLE-WARN"
-
+            "SPECIAL-FORM-FUNCTION"
+             "STYLE-WARN" "SIMPLE-COMPILER-NOTE"
+            
              ;; bootstrapping magic, to make things happen both in
              ;; the cross-compilation host compiler's environment and
              ;; in the cross-compiler's environment
@@ -699,7 +727,7 @@ retained, possibly temporariliy, because it might be used internally."
 
             ;; stuff for hinting to the compiler
             "NAMED-LAMBDA"
-            
+
              ;; other variations on DEFFOO stuff useful for bootstrapping
              ;; and cross-compiling
              "DEFMACRO-MUNDANELY"
@@ -714,7 +742,7 @@ retained, possibly temporariliy, because it might be used internally."
              "FASTBIG-INCF-PCOUNTER-OR-FIXNUM"
              "INCF-PCOUNTER"
              "INCF-PCOUNTER-OR-FIXNUM"
-             "MAKE-PCOUNTER"             
+             "MAKE-PCOUNTER"
              "PCOUNTER"
              "PCOUNTER->INTEGER"
              "PCOUNTER-OR-FIXNUM->INTEGER"
@@ -723,18 +751,22 @@ retained, possibly temporariliy, because it might be used internally."
 
              ;; miscellaneous non-standard but handy user-level functions..
              "ASSQ" "DELQ" "MEMQ" "POSQ" "NEQ"
+             "ADJUST-LIST"
              "%FIND-PACKAGE-OR-LOSE" "FIND-UNDELETED-PACKAGE-OR-LOSE"
-             "SANE-PACKAGE" 
+             "SANE-PACKAGE"
              "CYCLIC-LIST-P"
             "COMPOUND-OBJECT-P"
              "SWAPPED-ARGS-FUN"
+             "AND/TYPE" "NOT/TYPE"
              "ANY/TYPE" "EVERY/TYPE"
+            "EQUAL-BUT-NO-CAR-RECURSION"
              "TYPE-BOUND-NUMBER"
              "CONSTANTLY-T" "CONSTANTLY-NIL" "CONSTANTLY-0"
              "PSXHASH"
              "%BREAK"
             "NTH-BUT-WITH-SANE-ARG-ORDER"
             "DEPRECATION-WARNING"
+            "BIT-VECTOR-="
 
              ;; ..and macros..
              "COLLECT"
@@ -744,25 +776,29 @@ retained, possibly temporariliy, because it might be used internally."
              "DEFENUM"
              "DEFPRINTER"
              "AVER" "ENFORCE-TYPE"
+             "AWHEN" "ACOND" "IT"
+             "BINDING*"
+            "!DEF-BOOLEAN-ATTRIBUTE"
 
             ;; ..and CONDITIONs..
             "BUG"
             "UNSUPPORTED-OPERATOR"
-            
+
              ;; ..and DEFTYPEs..
              "INDEX" "LOAD/STORE-INDEX"
             "SIGNED-BYTE-WITH-A-BITE-OUT"
             "UNSIGNED-BYTE-WITH-A-BITE-OUT"
+             "SFUNCTION" "UNSIGNED-BYTE*"
              ;; ..and type predicates
              "INSTANCEP"
-             "DOUBLE-FLOATP"
+             "DOUBLE-FLOAT-P"
              "LOGICAL-PATHNAME-P"
-             "LONG-FLOATP"
-             "SHORT-FLOATP"
-             "SINGLE-FLOATP"
+             "LONG-FLOAT-P"
+             "SHORT-FLOAT-P"
+             "SINGLE-FLOAT-P"
              "FIXNUMP"
              "BIGNUMP"
-             "RATIOP" 
+             "RATIOP"
 
              ;; encapsulation
              "ARG-LIST"
@@ -789,6 +825,7 @@ retained, possibly temporariliy, because it might be used internally."
              ;; hash caches
              "DEFINE-HASH-CACHE"
              "DEFUN-CACHED"
+             "DEFINE-CACHED-SYNONYM"
 
              ;; time
              "FORMAT-DECODED-TIME"
@@ -818,7 +855,7 @@ retained, possibly temporariliy, because it might be used internally."
 
              ;; cross-compilation bootstrap hacks which turn into
              ;; placeholders in a target system
-             "UNCROSS" 
+             "UNCROSS"
 
              ;; might as well be shared among the various files which
              ;; need it:
@@ -828,6 +865,7 @@ retained, possibly temporariliy, because it might be used internally."
              "C-STRINGS->STRING-LIST"
 
              ;; misc. utilities used internally
+            "DEFINE-FUNCTION-NAME-SYNTAX" "VALID-FUNCTION-NAME-P" ; should be SB!EXT? 
              "LEGAL-FUN-NAME-P" "LEGAL-FUN-NAME-OR-TYPE-ERROR"
              "FUN-NAME-BLOCK-NAME"
             "FUN-NAME-INLINE-EXPANSION"
@@ -838,18 +876,24 @@ retained, possibly temporariliy, because it might be used internally."
              "PROPER-LIST-OF-LENGTH-P"
              "LIST-OF-LENGTH-AT-LEAST-P"
              "LIST-WITH-LENGTH-P"
+             "SINGLETON-P"
              "READ-SEQUENCE-OR-DIE"
              "RENAME-KEY-ARGS"
              "MISSING-ARG"
              "UNIX-NAMESTRING" ; FIXME: perhaps belongs in package SB!UNIX
              "FEATUREP"
              "FLUSH-STANDARD-OUTPUT-STREAMS"
-             "MAKE-GENSYM-LIST"
+             "WITH-UNIQUE-NAMES" "MAKE-GENSYM-LIST" 
              "ABOUT-TO-MODIFY-SYMBOL-VALUE"
             "SYMBOL-SELF-EVALUATING-P"
              "PRINT-PRETTY-ON-STREAM-P"
+            "ARRAY-READABLY-PRINTABLE-P"
              "LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P"
-             "POSITIVE-PRIMEP" 
+             "POSITIVE-PRIMEP"
+             "EVAL-IN-LEXENV"
+            "DEBUG-NAMIFY"
+             "FORCE" "DELAY" "PROMISE-READY-P"
+            "FIND-RESTART-OR-CONTROL-ERROR"
 
              ;; These could be moved back into SB!EXT if someone has
              ;; compelling reasons, but hopefully we can get by
@@ -884,9 +928,14 @@ retained, possibly temporariliy, because it might be used internally."
 
             ;; hackery to help set up for cold init
              "!BEGIN-COLLECTING-COLD-INIT-FORMS"
-            "!COLD-INIT-FORMS" 
+            "!COLD-INIT-FORMS"
             "COLD-FSET"
-             "!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS"))
+             "!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS"
+
+            ;; hooks for contrib/ stuff we're insufficiently sure
+            ;; about to add to SB!EXT
+            "*REPL-PROMPT-FUN*"
+            "*REPL-READ-FORM-FUN*"))
 
  ;; FIXME: This package is awfully huge. It'd probably be good to
  ;; split it. There's at least one natural way to split it: the
@@ -925,7 +974,8 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "%ARRAY-FILL-POINTER-P"
              "%ASIN" "%ASINH"
              "%ATAN" "%ATAN2" "%ATANH"
-             "%CALLER-FRAME-AND-PC" "%CHECK-BOUND" "%CLOSURE-FUN"
+             "%CALLER-FRAME-AND-PC" "%CHECK-BOUND"
+            "%CHECK-VECTOR-SEQUENCE-BOUNDS" "%CLOSURE-FUN"
              "%CLOSURE-INDEX-REF" "%COS" "%COS-QUICK"
              "%COSH" "%DATA-VECTOR-AND-INDEX"
             "%DEPOSIT-FIELD"
@@ -935,7 +985,8 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "%FIND-POSITION-IF-NOT" "%FIND-POSITION-IF-NOT-VECTOR-MACRO"
              "%FUN-DOC" "%FUN-NAME"
              "%HYPOT" "%LDB"
-             "%LOG" "%LOGB" "%LOG10" "%LOG1P" "%LONG-FLOAT"
+             "%LOG" "%LOGB" "%LOG10" "%LOG1P"
+            #!+long-float "%LONG-FLOAT"
              "%MAKE-COMPLEX" "%MAKE-FUNCALLABLE-INSTANCE" "%MAKE-RATIO"
              "%MAP" "%MAP-TO-SIMPLE-VECTOR-ARITY-1" "%MAP-TO-LIST-ARITY-1"
              "%MAP-TO-NIL-ON-SEQUENCE" "%MAP-TO-NIL-ON-SIMPLE-VECTOR"
@@ -985,17 +1036,11 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "ARRAY-TYPE-DIMENSIONS" "ARRAY-TYPE-ELEMENT-TYPE"
              "ARRAY-TYPE-P"
              "ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE" "ASH-INDEX"
-             "ASSERT-ERROR" "BASE-CHAR-P"
-             "BINDING-STACK-POINTER-SAP" "BIT-BASH-AND"
-             "BIT-BASH-ANDC1"
-             "BIT-BASH-ANDC2" "BIT-BASH-CLEAR" "BIT-BASH-COPY"
-             "BIT-BASH-EQV"
-             "BIT-BASH-IOR" "BIT-BASH-LOGNAND" "BIT-BASH-LOGNOR"
-             "BIT-BASH-NOT"
-             "BIT-BASH-ORC1" "BIT-BASH-ORC2" "BIT-BASH-SET"
-             "BIT-BASH-XOR"
+             "ASSERT-ERROR" "BASE-CHAR-P" "BASE-STRING-P"
+             "BINDING-STACK-POINTER-SAP" "BIT-BASH-COPY"
              "BIT-INDEX" "BOGUS-ARG-TO-VALUES-LIST-ERROR"
              "BOOLE-CODE"
+            "BOUNDING-INDICES-BAD-ERROR"
              "BYTE-SPECIFIER"
              "%BYTE-BLT"
              "CALLABLE" "CASE-BODY-ERROR"
@@ -1006,10 +1051,12 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "CODE-DEBUG-INFO" "CODE-HEADER-REF" "CODE-HEADER-SET"
              "CODE-INSTRUCTIONS"
              "COERCE-TO-FUN" "COERCE-TO-LEXENV"
-             "COERCE-TO-LIST" "COERCE-TO-VECTOR"
+             "COERCE-TO-LIST" "COERCE-TO-VALUES"
+             "COERCE-TO-VECTOR"
              "*COLD-INIT-COMPLETE-P*"
              "COMPLEX-DOUBLE-FLOAT-P"
-             "COMPLEX-FLOAT-P" "COMPLEX-LONG-FLOAT-P"
+             "COMPLEX-FLOAT-P"
+            #!+long-float "COMPLEX-LONG-FLOAT-P"
              "COMPLEX-RATIONAL-P" "COMPLEX-SINGLE-FLOAT-P" "COMPLEX-VECTOR-P"
              "COMPOUND-TYPE" "COMPOUND-TYPE-P" "COMPOUND-TYPE-TYPES"
              "CONS-TYPE" "CONS-TYPE-CAR-TYPE" "CONS-TYPE-CDR-TYPE"
@@ -1022,8 +1069,10 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "COPY-BYTE-VECTOR-TO-SYSTEM-AREA"
              "CSUBTYPEP" "CTYPE" "TYPE-HASH-VALUE"
              "CTYPE-OF" "CTYPE-P" "CTYPEP" "CURRENT-FP" "CURRENT-SP"
+             "CURRENT-DYNAMIC-SPACE-START"
              "DATA-VECTOR-REF" "DATA-VECTOR-SET" "DECODE-DOUBLE-FLOAT"
-             "DECODE-LONG-FLOAT" "DECODE-SINGLE-FLOAT"
+             #!+long-float "DECODE-LONG-FLOAT"
+            "DECODE-SINGLE-FLOAT"
              "DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P"
             "!DEFSTRUCT-WITH-ALTERNATE-METACLASS"
              "DESCEND-INTO"
@@ -1031,28 +1080,34 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "DOUBLE-FLOAT-EXPONENT" "DOUBLE-FLOAT-HIGH-BITS"
              "DOUBLE-FLOAT-INT-EXPONENT" "DOUBLE-FLOAT-LOW-BITS"
              "DOUBLE-FLOAT-SIGNIFICAND"
-             "DOUBLE-FLOAT-P" "FLOAT-WAIT"
+             "FLOAT-WAIT"
              "DYNAMIC-SPACE-FREE-POINTER" "DYNAMIC-USAGE"
-            "END-TOO-LARGE-ERROR"
+            "EFFECTIVE-FIND-POSITION-TEST" "EFFECTIVE-FIND-POSITION-KEY"
              "ERROR-NUMBER-OR-LOSE"
              "FAILED-%WITH-ARRAY-DATA"
              "FDEFINITION-OBJECT"
              "FDOCUMENTATION" "FILENAME"
              "FIND-AND-INIT-OR-CHECK-LAYOUT"
-             "FLOAT-EXPONENT" "FLOAT-FORMAT-DIGITS" "FLOAT-FORMAT-NAME"
-             "FLOAT-FORMAT-MAX" "FLOATING-POINT-EXCEPTION"
-             "FORM" "*FREE-INTERRUPT-CONTEXT-INDEX*" "FUNCALLABLE-INSTANCE-P"
-             "FUN-CODE-HEADER" 
+             "FLOAT-EXPONENT"
+             "FLOAT-FORMAT-DIGITS" "FLOAT-FORMAT-NAME" "FLOAT-FORMAT-MAX"
+             "FLOAT-INT-EXPONENT"
+             "FLOATING-POINT-EXCEPTION"
+             "FORM"
+             "FORMAT-CONTROL"
+             "*FREE-INTERRUPT-CONTEXT-INDEX*" "FUNCALLABLE-INSTANCE-P"
+             "FUN-CODE-HEADER"
              "FUN-TYPE" "FUN-TYPE-ALLOWP"
              "FUN-TYPE-KEYP" "FUN-TYPE-KEYWORDS"
              "FUN-TYPE-NARGS" "FUN-TYPE-OPTIONAL"
              "FUN-TYPE-P"
              "FUN-TYPE-REQUIRED" "FUN-TYPE-REST"
              "FUN-TYPE-RETURNS" "FUN-TYPE-WILD-ARGS"
-             "FUN-WORD-OFFSET" "GET-CLOSURE-LENGTH"
+             "FUN-WORD-OFFSET"
+             "GENERALIZED-BOOLEAN"
+             "GET-CLOSURE-LENGTH"
              "GET-HEADER-DATA"
-             "GET-LISP-OBJ-ADDRESS" "LOWTAG-OF"
-             "WIDETAG-OF"
+             "GET-LISP-OBJ-ADDRESS" "LOWTAG-OF" "WIDETAG-OF"
+            "GET-MACHINE-VERSION"
              "HAIRY-DATA-VECTOR-REF" "HAIRY-DATA-VECTOR-SET" "HAIRY-TYPE"
              "HAIRY-TYPE-CHECK-TEMPLATE-NAME" "HAIRY-TYPE-SPECIFIER"
              "HANDLE-CIRCULARITY" "HOST" "IGNORE-IT"
@@ -1063,7 +1118,8 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "*!INITIAL-FDEFN-OBJECTS*" "*!INITIAL-FOREIGN-SYMBOLS*"
              "*!INITIAL-LAYOUTS*" "*!INITIAL-SYMBOLS*"
              "INTEGER-DECODE-DOUBLE-FLOAT"
-             "INTEGER-DECODE-LONG-FLOAT" "INTEGER-DECODE-SINGLE-FLOAT"
+             #!+long-float "INTEGER-DECODE-LONG-FLOAT"
+            "INTEGER-DECODE-SINGLE-FLOAT"
              "INTERNAL-ERROR" "INTERNAL-TIME"
              "INTERSECTION-TYPE" "INTERSECTION-TYPE-P"
              "INTERSECTION-TYPE-TYPES"
@@ -1072,50 +1128,67 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "JUST-DUMP-IT-NORMALLY"
              "KEY-INFO" "KEY-INFO-NAME"
              "KEY-INFO-P" "KEY-INFO-TYPE"
-             "LAYOUT-DEPTHOID"
-             "LAYOUT-INVALID-ERROR" "LEXENV"
+             "LAYOUT-DEPTHOID" "LAYOUT-INVALID-ERROR"
+            #!+x86 "%LEA"
+            "LEXENV" "LEXENV-DESIGNATOR"
              "LINE-LENGTH"
              "ANSI-STREAM"
              "ANSI-STREAM-BIN" "ANSI-STREAM-BOUT"
+            "ANSI-STREAM-CLOSE"
+            "ANSI-STREAM-ELEMENT-TYPE"
              "ANSI-STREAM-IN" "ANSI-STREAM-IN-BUFFER"
              "ANSI-STREAM-IN-INDEX"
+            "ANSI-STREAM-INPUT-STREAM-P"
              "ANSI-STREAM-MISC" "ANSI-STREAM-N-BIN"
+            "ANSI-STREAM-OPEN-STREAM-P"
              "ANSI-STREAM-OUT" "ANSI-STREAM-SOUT"
+            "ANSI-STREAM-OUTPUT-STREAM-P"
              "LIST-TO-VECTOR*" 
             "LOGICAL-HOST" "LOGICAL-HOST-DESIGNATOR"
-             "LONG-FLOAT-EXPONENT" "LONG-FLOAT-EXP-BITS"
-             "LONG-FLOAT-HIGH-BITS"
-             "LONG-FLOAT-LOW-BITS" "LONG-FLOAT-MID-BITS" "LONG-FLOAT-P"
-             "LONG-FLOAT-RADIX" "LONG-WORDS"
+             #!+long-float "LONG-FLOAT-EXPONENT"
+            #!+long-float "LONG-FLOAT-EXP-BITS"
+             #!+long-float "LONG-FLOAT-HIGH-BITS"
+             #!+long-float "LONG-FLOAT-LOW-BITS"
+            #!+long-float "LONG-FLOAT-MID-BITS"
+             "LONG-WORDS"
              "LRA" "LRA-CODE-HEADER" "LRA-P"
              "MAKE-ALIEN-TYPE-TYPE" "MAKE-ARGS-TYPE"
              "MAKE-ARRAY-HEADER" "MAKE-ARRAY-TYPE" "MAKE-CONS-TYPE"
              "MAKE-DOUBLE-FLOAT" "MAKE-FUN-TYPE"
-             "MAKE-KEY-INFO" "MAKE-LISP-OBJ" "MAKE-LONG-FLOAT"
+             "MAKE-KEY-INFO" "MAKE-LISP-OBJ"
+            #!+long-float "MAKE-LONG-FLOAT"
              "MAKE-MEMBER-TYPE" "MAKE-NAMED-TYPE"
-             "MAKE-NULL-LEXENV" "MAKE-NUMERIC-TYPE"
+             "MAKE-NULL-LEXENV" "MAKE-NULL-INTERACTIVE-LEXENV"
+            "MAKE-NUMERIC-TYPE"
              "MAKE-SINGLE-FLOAT" "MAKE-SPECIALIZABLE-ARRAY"
+            "MAKE-UNPORTABLE-FLOAT"
              "%MAKE-INSTANCE"
+             "MAKE-SHORT-VALUES-TYPE"
+             "MAKE-SINGLE-VALUE-TYPE"
             "MAKE-VALUE-CELL"
              "MAKE-VALUES-TYPE"
-             "MAYBE-GC" "MEMBER-TYPE" "MEMBER-TYPE-MEMBERS"
+             "MEMBER-TYPE" "MEMBER-TYPE-MEMBERS"
              "MEMBER-TYPE-P" "MERGE-BITS" "MODIFIED-NUMERIC-TYPE"
              "MUTATOR-SELF"
              "NAMED-TYPE" "NAMED-TYPE-NAME" "NAMED-TYPE-P"
              "NATIVE-BYTE-ORDER" "NEGATE"
-             "NEVER-SUBTYPEP" "NIL-FUN-RETURNED-ERROR"
+            "NEGATION-TYPE" "NEGATION-TYPE-TYPE"
+             "NEVER-SUBTYPEP" "NIL-ARRAY-ACCESSED-ERROR"
+            "NIL-FUN-RETURNED-ERROR"
              "NOT-<=-ERROR" "NOT-=-ERROR"
              "NOT-DUMPED-AT-ALL"
              "NUMERIC-CONTAGION" "NUMERIC-TYPE"
              "NUMERIC-TYPE-CLASS" "NUMERIC-TYPE-COMPLEXP"
+             "NUMERIC-TYPE-EQUAL"
              "NUMERIC-TYPE-FORMAT"
              "NUMERIC-TYPE-HIGH" "NUMERIC-TYPE-LOW" "NUMERIC-TYPE-P"
              "OBJECT-NOT-ARRAY-ERROR" "OBJECT-NOT-BASE-CHAR-ERROR"
+            "OBJECT-NOT-BASE-STRING-ERROR"
              "OBJECT-NOT-BIGNUM-ERROR" "OBJECT-NOT-BIT-VECTOR-ERROR"
              "OBJECT-NOT-COMPLEX-ERROR"
              "OBJECT-NOT-COMPLEX-FLOAT-ERROR"
              "OBJECT-NOT-COMPLEX-SINGLE-FLOAT-ERROR"
-             "OBJECT-NOT-COMPLEX-LONG-FLOAT-ERROR"
+            #!+long-float "OBJECT-NOT-COMPLEX-LONG-FLOAT-ERROR"
              "OBJECT-NOT-COMPLEX-DOUBLE-FLOAT-ERROR"
              "OBJECT-NOT-COMPLEX-RATIONAL-ERROR"
              ;; FIXME: It's confusing using "complex" to mean
@@ -1128,28 +1201,35 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "OBJECT-NOT-FLOAT-ERROR" "OBJECT-NOT-FUN-ERROR"
              "OBJECT-NOT-INSTANCE-ERROR"
              "OBJECT-NOT-INTEGER-ERROR"
-             "OBJECT-NOT-LIST-ERROR" "OBJECT-NOT-LONG-FLOAT-ERROR"
+             "OBJECT-NOT-LIST-ERROR"
+            #!+long-float "OBJECT-NOT-LONG-FLOAT-ERROR"
              "OBJECT-NOT-NUMBER-ERROR"
              "OBJECT-NOT-RATIO-ERROR" "OBJECT-NOT-RATIONAL-ERROR"
              "OBJECT-NOT-REAL-ERROR" "OBJECT-NOT-SAP-ERROR"
              "OBJECT-NOT-SIGNED-BYTE-32-ERROR"
              "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-ERROR"
-             "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-ERROR"
+             #!+long-float "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-ERROR"
              "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-ERROR"
              "OBJECT-NOT-SIMPLE-ARRAY-DOUBLE-FLOAT-ERROR"
              "OBJECT-NOT-SIMPLE-ARRAY-ERROR"
-             "OBJECT-NOT-SIMPLE-ARRAY-LONG-FLOAT-ERROR"
+             #!+long-float "OBJECT-NOT-SIMPLE-ARRAY-LONG-FLOAT-ERROR"
+            "OBJECT-NOT-SIMPLE-ARRAY-NIL-ERROR"
              "OBJECT-NOT-SIMPLE-ARRAY-SINGLE-FLOAT-ERROR"
+            "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-15-ERROR"
              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-16-ERROR"
              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-2-ERROR"
+            "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-29-ERROR"
+            "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-31-ERROR"
              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-32-ERROR"
              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-4-ERROR"
+            "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-7-ERROR"
              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-8-ERROR"
              "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-16-ERROR"
              "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-30-ERROR"
              "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-32-ERROR"
              "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-8-ERROR"
              "OBJECT-NOT-SIMPLE-BIT-VECTOR-ERROR"
+            "OBJECT-NOT-SIMPLE-BASE-STRING-ERROR"
              "OBJECT-NOT-SIMPLE-STRING-ERROR"
              "OBJECT-NOT-SIMPLE-VECTOR-ERROR"
              "OBJECT-NOT-SINGLE-FLOAT-ERROR" "OBJECT-NOT-STRING-ERROR"
@@ -1164,53 +1244,67 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"
              "PARSE-DEFMACRO" "PARSE-UNKNOWN-TYPE"
              "PARSE-UNKNOWN-TYPE-SPECIFIER" "PATHNAME-DESIGNATOR"
-             #+x86 "*PSEUDO-ATOMIC-ATOMIC*"
-             #+x86 "*PSEUDO-ATOMIC-INTERRUPTED*"
+             #!+x86 "*PSEUDO-ATOMIC-ATOMIC*"
+             #!+x86 "*PSEUDO-ATOMIC-INTERRUPTED*"
              "PUNT-PRINT-IF-TOO-LONG"
              "READER-IMPOSSIBLE-NUMBER-ERROR" "READER-PACKAGE-ERROR"
-             "SCALE-DOUBLE-FLOAT" "SCALE-LONG-FLOAT"
+             "READER-EOF-ERROR"
+             "RESTART-DESIGNATOR"
+             "SCALE-DOUBLE-FLOAT"
+            #!+long-float "SCALE-LONG-FLOAT"
              "SCALE-SINGLE-FLOAT"
+             "SEQUENCE-COUNT"
              "SEQUENCE-END" "SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE"
              "SET-ARRAY-HEADER" "SET-HEADER-DATA" "SHIFT-TOWARDS-END"
              "SHIFT-TOWARDS-START" "SHRINK-VECTOR" "SIGNED-BYTE-32-P"
              "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-P"
-             "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-P"
+             #!+long-float "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-P"
              "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-P"
-             "SIMPLE-ARRAY-DOUBLE-FLOAT-P" "SIMPLE-ARRAY-LONG-FLOAT-P"
+             "SIMPLE-ARRAY-DOUBLE-FLOAT-P"
+            #!+long-float "SIMPLE-ARRAY-LONG-FLOAT-P"
+            "SIMPLE-ARRAY-NIL-P"
              "SIMPLE-ARRAY-P"
              "SIMPLE-ARRAY-SINGLE-FLOAT-P"
+            "SIMPLE-ARRAY-UNSIGNED-BYTE-15-P"
              "SIMPLE-ARRAY-UNSIGNED-BYTE-16-P"
              "SIMPLE-ARRAY-UNSIGNED-BYTE-2-P"
+            "SIMPLE-ARRAY-UNSIGNED-BYTE-29-P"
+            "SIMPLE-ARRAY-UNSIGNED-BYTE-31-P"
              "SIMPLE-ARRAY-UNSIGNED-BYTE-32-P"
              "SIMPLE-ARRAY-UNSIGNED-BYTE-4-P"
+            "SIMPLE-ARRAY-UNSIGNED-BYTE-7-P"
              "SIMPLE-ARRAY-UNSIGNED-BYTE-8-P"
              "SIMPLE-ARRAY-SIGNED-BYTE-16-P"
              "SIMPLE-ARRAY-SIGNED-BYTE-30-P"
              "SIMPLE-ARRAY-SIGNED-BYTE-32-P"
              "SIMPLE-ARRAY-SIGNED-BYTE-8-P"
+            "SIMPLE-BASE-STRING-P"
              "SIMPLE-PACKAGE-ERROR"
              "SIMPLE-UNBOXED-ARRAY"
              "SINGLE-FLOAT-BITS" "SINGLE-FLOAT-EXPONENT"
-             "SINGLE-FLOAT-INT-EXPONENT" "SINGLE-FLOAT-P"
+             "SINGLE-FLOAT-INT-EXPONENT"
              "SINGLE-FLOAT-SIGNIFICAND"
-             "SINGLE-VALUE-TYPE" "SPECIALIZABLE" "SPECIALIZABLE-VECTOR"
+             "SINGLE-VALUE-TYPE" "SINGLE-VALUE-SPECIFIER-TYPE"
+             "SPECIALIZABLE" "SPECIALIZABLE-VECTOR"
              "SPECIFIER-TYPE" "STACK-REF"
              "STREAMLIKE" "STRINGABLE"
              "STRUCTURE-RAW-SLOT-TYPE-AND-SIZE"
+            "SUB-GC"
              "%INSTANCE-LENGTH"
              "%INSTANCE-REF" "%INSTANCE-SET"
-             "STRING-TO-SIMPLE-STRING"
              "SYSTEM-AREA-CLEAR"
-             "SYSTEM-AREA-COPY" "TWO-ARG-*"
+             "SYSTEM-AREA-COPY"
+             "TWO-ARG-*"
              "TWO-ARG-+" "TWO-ARG--"
              "TWO-ARG-/" "TWO-ARG-/=" "TWO-ARG-<"
              "TWO-ARG-<=" "TWO-ARG-="
              "TWO-ARG->" "TWO-ARG->=" "TWO-ARG-AND"
-             "TWO-ARG-GCD" "TWO-ARG-IOR"
+             "TWO-ARG-EQV" "TWO-ARG-GCD" "TWO-ARG-IOR"
              "TWO-ARG-LCM" "TWO-ARG-XOR"
              "TYPE-DIFFERENCE" "TYPE-EXPAND"
              "TYPE-INTERSECTION" "TYPE-INTERSECTION2"
              "TYPE-APPROX-INTERSECTION2"
+             "TYPE-SINGLE-VALUE-P"
              "TYPE-SPECIFIER" "TYPE-UNION" "TYPE/=" "TYPE="
              "TYPES-EQUAL-OR-INTERSECT"
              "UNBOUND-SYMBOL-ERROR" "UNBOXED-ARRAY"
@@ -1224,11 +1318,16 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
             "VALUES-SPECIFIER-TYPE"
              "VALUES-SPECIFIER-TYPE-CACHE-CLEAR" "VALUES-SUBTYPEP"
              "VALUES-TYPE"
-             "VALUES-TYPE-INTERSECTION" "VALUES-TYPE-KEYP"
-             "VALUES-TYPE-KEYWORDS" "VALUES-TYPE-OPTIONAL"
+             "VALUES-TYPE-ERROR"
+             "VALUES-TYPE-IN"
+             "VALUES-TYPE-INTERSECTION"
+             "VALUES-TYPE-OPTIONAL"
+             "VALUES-TYPE-OUT"
              "VALUES-TYPE-P" "VALUES-TYPE-REQUIRED"
              "VALUES-TYPE-REST" "VALUES-TYPE-UNION"
-             "VALUES-TYPES" "VALUES-TYPES-EQUAL-OR-INTERSECT" "VECTOR-T-P"
+             "VALUES-TYPE-TYPES" "VALUES-TYPES"
+             "VALUES-TYPES-EQUAL-OR-INTERSECT" "VECTOR-T-P"
+            "VECTOR-NIL-P"
              "VECTOR-TO-VECTOR*"
              "VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH"
              "WITH-ARRAY-DATA"
@@ -1250,68 +1349,89 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "LAYOUT-PURE" "DSD-RAW-TYPE"
              "DEFSTRUCT-DESCRIPTION" "UNDEFINE-STRUCTURE"
              "DD-COPIER" "UNDEFINE-FUN-NAME" "DD-TYPE"
-             "CLASS-STATE" "INSTANCE"
+             "CLASSOID-STATE" "INSTANCE"
              "*TYPE-SYSTEM-INITIALIZED*" "FIND-LAYOUT"
              "DSD-NAME" "%TYPEP" "DD-RAW-INDEX"
-             "DD-NAME" "CLASS-SUBCLASSES"
-             "CLASS-LAYOUT" "CLASS-%NAME"
+             "DD-NAME" "CLASSOID-SUBCLASSES"
+             "CLASSOID-LAYOUT" "CLASSOID-NAME" "CLASSOID-P"
              "DD-RAW-LENGTH" "NOTE-NAME-DEFINED"
              "%CODE-CODE-SIZE" "DD-SLOTS"
+            "DD-INCLUDE" "SLOT-SETTER-LAMBDA-FORM"
              "%IMAGPART" "DSD-ACCESSOR-NAME"
-             "%CODE-DEBUG-INFO" "DSD-%NAME"
-             "LAYOUT-CLASS" "LAYOUT-INVALID"
+             "%CODE-DEBUG-INFO"
+             "LAYOUT-CLASSOID" "LAYOUT-INVALID"
              "%SIMPLE-FUN-NAME" "DSD-TYPE" "%INSTANCEP"
              "DEFSTRUCT-SLOT-DESCRIPTION" "%SIMPLE-FUN-ARGLIST"
              "%SIMPLE-FUN-NEXT" "LAYOUT-CLOS-HASH-LENGTH" "DD-PREDICATE-NAME"
-             "CLASS-PROPER-NAME" "%NOTE-TYPE-DEFINED" "LAYOUT-INFO"
+             "CLASSOID-PROPER-NAME" "%NOTE-TYPE-DEFINED" "LAYOUT-INFO"
              "%SET-INSTANCE-LAYOUT" "DD-DEFAULT-CONSTRUCTOR"
              "LAYOUT-OF" "%SIMPLE-FUN-SELF" "%REALPART"
-             "STRUCTURE-CLASS-P" "DSD-INDEX"
+             "STRUCTURE-CLASSOID-P" "DSD-INDEX"
+            "STRUCTURE-CLASSOID"
              "%INSTANCE-LAYOUT" "LAYOUT-CLOS-HASH"
              "%SIMPLE-FUN-TYPE" "PROCLAIM-AS-FUN-NAME"
              "BECOME-DEFINED-FUN-NAME"
-             "%NUMERATOR" "CLASS-TYPEP"
+             "%NUMERATOR" "CLASSOID-TYPEP"
              "DSD-READ-ONLY"
+            "DSD-DEFAULT"
              "LAYOUT-INHERITS" "DD-LENGTH" "%CODE-ENTRY-POINTS"
              "%DENOMINATOR"
-             "MAKE-STANDARD-CLASS"
-             "CLASS-CELL-TYPEP" 
-             "FIND-CLASS-CELL" "EXTRACT-FUN-TYPE"
-             "FUNCALLABLE-STRUCTURE-CLASS"
-             "%RANDOM-DOUBLE-FLOAT" "%RANDOM-LONG-FLOAT"
+
+            "STANDARD-CLASSOID"
+            "CLASSOID-OF"
+             "MAKE-STANDARD-CLASSOID"
+             "CLASSOID-CELL-TYPEP" 
+             "FIND-CLASSOID-CELL" "EXTRACT-FUN-TYPE"
+             "FUNCALLABLE-STRUCTURE-CLASSOID"
+             "%RANDOM-DOUBLE-FLOAT"
+            #!+long-float "%RANDOM-LONG-FLOAT"
              "%RANDOM-SINGLE-FLOAT"
-             "RANDOM-PCL-CLASS" 
+             "RANDOM-PCL-CLASSOID" 
              "%FUNCALLABLE-INSTANCE-INFO" "RANDOM-CHUNK"
-             "MAKE-FUNCALLABLE-STRUCTURE-CLASS" "LAYOUT-CLOS-HASH-MAX"
-             "CLASS-CELL-NAME" "BUILT-IN-CLASS-DIRECT-SUPERCLASSES"
+             "MAKE-FUNCALLABLE-STRUCTURE-CLASSOID" "LAYOUT-CLOS-HASH-MAX"
+             "CLASSOID-CELL-NAME" "BUILT-IN-CLASSOID-DIRECT-SUPERCLASSES"
+            "BUILT-IN-CLASSOID-TRANSLATION"
              "RANDOM-LAYOUT-CLOS-HASH"
-             "CLASS-PCL-CLASS" "FUNCALLABLE-STRUCTURE"
+             "CLASSOID-PCL-CLASS" "FUNCALLABLE-STRUCTURE"
              "FUNCALLABLE-INSTANCE-FUN"
              "%FUNCALLABLE-INSTANCE-LAYOUT"
-             "BASIC-STRUCTURE-CLASS" 
-             "CLASS-CELL-CLASS"
-             "FUNCALLABLE-STRUCTURE-CLASS-P" "REGISTER-LAYOUT"
+             "BASIC-STRUCTURE-CLASSOID" 
+             "CLASSOID-CELL-CLASSOID"
+             "FUNCALLABLE-STRUCTURE-CLASSOID-P" "REGISTER-LAYOUT"
              "FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX"
-             "MAKE-RANDOM-PCL-CLASS" "INSTANCE-LAMBDA"
+             "MAKE-RANDOM-PCL-CLASSOID" "INSTANCE-LAMBDA"
              "%FUNCALLABLE-INSTANCE-LEXENV" "%MAKE-SYMBOL"
              "%FUNCALLABLE-INSTANCE-FUN" "SYMBOL-HASH"
 
-             "MAKE-UNDEFINED-CLASS" "CLASS-DIRECT-SUPERCLASSES" "MAKE-LAYOUT"
-             "REDEFINE-LAYOUT-WARNING" "SLOT-CLASS"
-             "INSURED-FIND-CLASS" "ORDER-LAYOUT-INHERITS"
+            "BUILT-IN-CLASSOID"
+            "CONDITION-CLASSOID-P" "CONDITION-CLASSOID-SLOTS"
+             "MAKE-UNDEFINED-CLASSOID" "FIND-CLASSOID" "CLASSOID"
+            "CLASSOID-DIRECT-SUPERCLASSES" "MAKE-LAYOUT"
+             "REDEFINE-LAYOUT-WARNING" "SLOT-CLASSOID"
+             "INSURED-FIND-CLASSOID" "ORDER-LAYOUT-INHERITS"
              "STD-COMPUTE-CLASS-PRECEDENCE-LIST"
 
              ;; symbols from former SB!CONDITIONS
              "*HANDLER-CLUSTERS*" "*RESTART-CLUSTERS*"
+            "*CONDITION-RESTARTS*"
              "SHOW-CONDITION" "CASE-FAILURE"
              "NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET"
-             "DESCRIBE-CONDITION"
-             
+             "DESCRIBE-CONDITION" "MAKE-RESTART" "COERCE-TO-CONDITION"
+
+            "CONDITION-READER-FUNCTION" "CONDITION-WRITER-FUNCTION"
+            
+            "CONDITION-SLOT-ALLOCATION" "CONDITION-SLOT-DOCUMENTATION"
+            "CONDITION-SLOT-INITARGS" "CONDITION-SLOT-INITFORM"
+            "CONDITION-SLOT-INITFORM-P" "CONDITION-SLOT-NAME"
+            "CONDITION-SLOT-READERS" "CONDITION-SLOT-WRITERS"
+            
              "!COLD-INIT" "!UNINTERN-INIT-ONLY-STUFF"
              "!GLOBALDB-COLD-INIT" "!FDEFN-COLD-INIT"
+            "!FUNCTION-NAMES-COLD-INIT"
              "!TYPE-CLASS-COLD-INIT" "!TYPEDEFS-COLD-INIT"
              "!ALIEN-TYPE-COLD-INIT" "!CLASSES-COLD-INIT"
              "!EARLY-TYPE-COLD-INIT" "!LATE-TYPE-COLD-INIT"
+            "!FIXUP-TYPE-COLD-INIT"
              "!TARGET-TYPE-COLD-INIT" "!RANDOM-COLD-INIT"
              "!READER-COLD-INIT" "!TYPECHECKFUNS-COLD-INIT"
              "STREAM-COLD-INIT-OR-RESET" "!LOADER-COLD-INIT"
@@ -1319,6 +1439,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "!PACKAGE-COLD-INIT" "SIGNAL-COLD-INIT-OR-REINIT"
              "!POLICY-COLD-INIT-OR-RESANIFY" "!VM-TYPE-COLD-INIT"
              "!BACKQ-COLD-INIT" "!SHARPM-COLD-INIT"
+            "!EARLY-PROCLAIM-COLD-INIT" "!LATE-PROCLAIM-COLD-INIT"
              "!CLASS-FINALIZE" "GC-REINIT"
 
              ;; Note: These are out of lexicographical order because in CMU CL
@@ -1333,40 +1454,139 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              ;; in this package. -- WHN 19990911
              "STRING>=*" "STRING>*" "STRING=*"
              "STRING<=*" "STRING<*" "STRING/=*"
-             "SHORT-FLOAT-P" "%SVSET" "%SP-STRING-COMPARE" "%SETNTH"
+             "%SVSET" "%SP-STRING-COMPARE" "%SETNTH"
              "%SETELT" "%SET-ROW-MAJOR-AREF" "%SET-FILL-POINTER"
              "%SET-FDEFINITION" "%SCHARSET" "%SBITSET" "%RPLACD"
              "%RPLACA" "%PUT" "%CHARSET" "%BITSET" "%ASET"
              "%ARRAY-TYPEP" "%SET-SAP-REF-DESCRIPTOR"))
 
  #s(sb-cold:package-data
+    :name "SB!THREAD"
+    :use ("CL" "SB!ALIEN" "SB!INT")
+    :doc "public (but low-level): native thread support"
+    :export ("MAKE-THREAD"
+            "MAKE-LISTENER-THREAD" "DESTROY-THREAD" "TERMINATE-THREAD"
+            "INTERRUPT-THREAD" "WITH-RECURSIVE-LOCK"
+            "MUTEX" "MAKE-MUTEX" "GET-MUTEX" "RELEASE-MUTEX" "WITH-MUTEX"
+            "WAITQUEUE" "MAKE-WAITQUEUE" "CONDITION-WAIT" "CONDITION-NOTIFY"
+            "WITH-RECURSIVE-LOCK" "RELEASE-FOREGROUND" "CURRENT-THREAD-ID"))
+ #s(sb-cold:package-data
     :name "SB!LOOP"
     :doc "private: implementation details of LOOP"
     :use ("CL")
     :export ())
 
- #!+mp
  #s(sb-cold:package-data
-    :name "SB!MP"
-    :doc "public (but unstable): multiprocessing support"
-    :export ("*ALL-PROCESSES*" "*CURRENT-PROCESS*"
-             "*CURRENT-STACK-GROUP*" "*INITIAL-STACK-GROUP*"
-             "*MULTI-PROCESSING*" "ALL-PROCESSES"
-             "ATOMIC-DECF" "ATOMIC-INCF" "ATOMIC-POP"
-             "ATOMIC-PUSH" "CURRENT-PROCESS"
-             "DESTROY-PROCESS" "DISABLE-PROCESS"
-             "ENABLE-PROCESS" "INIT-STACK-GROUPS"
-             "LOCK" "MAKE-STACK-GROUP" "MAKE-LOCK"
-             "MAKE-PROCESS" "PROCESS-ACTIVE-P" "PROCESS-ALIVE-P"
-             "PROCESS-IDLE-TIME" "PROCESS-INTERRUPT"
-             "PROCESS-NAME" "PROCESS-PRESET"
-             "PROCESS-REAL-TIME" "PROCESS-RUN-TIME"
-             "PROCESS-STATE" "PROCESS-WAIT-UNTIL-FD-USABLE"
-             "PROCESS-WAIT" "PROCESS-WAIT-WITH-TIMEOUT"
-             "PROCESS-WHOSTATE" "PROCESS-YIELD" "PROCESSP"
-             "RESTART-PROCESS" "SHOW-PROCESSES"
-             "STACK-GROUP-RESUME" "WITHOUT-SCHEDULING"
-             "WITH-LOCK-HELD"))
+    :name "SB!MOP"
+    :doc
+    "public: the MetaObject Protocol interface, as defined by
+The Art of the Metaobject Protocol, by Kiczales, des Rivieres and Bobrow:
+ISBN 0-262-61074-4, with exceptions as noted in the User Manual."
+    :use ("CL" "SB!PCL")
+    :reexport ("ADD-DEPENDENT"
+              "ADD-DIRECT-METHOD"
+              "ADD-DIRECT-SUBCLASS"
+              "ADD-METHOD"
+              "ALLOCATE-INSTANCE"
+              "BUILT-IN-CLASS"
+              "CLASS"
+              "CLASS-DEFAULT-INITARGS"
+              "CLASS-DIRECT-DEFAULT-INITARGS"
+              "CLASS-DIRECT-SLOTS"
+              "CLASS-DIRECT-SUBCLASSES"
+              "CLASS-DIRECT-SUPERCLASSES"
+              "CLASS-FINALIZED-P"
+              "CLASS-NAME"
+              "CLASS-PRECEDENCE-LIST"
+              "CLASS-PROTOTYPE"
+              "CLASS-SLOTS"
+              "COMPUTE-APPLICABLE-METHODS"
+              "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
+              "COMPUTE-CLASS-PRECEDENCE-LIST"
+              "COMPUTE-DEFAULT-INITARGS"
+              "COMPUTE-DISCRIMINATING-FUNCTION"
+              "COMPUTE-EFFECTIVE-METHOD"
+              "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
+              "COMPUTE-SLOTS"
+              "DIRECT-SLOT-DEFINITION"
+              "DIRECT-SLOT-DEFINITION-CLASS"
+              "EFFECTIVE-SLOT-DEFINITION"
+              "EFFECTIVE-SLOT-DEFINITION-CLASS"
+              "ENSURE-CLASS"
+              "ENSURE-CLASS-USING-CLASS"
+              "ENSURE-GENERIC-FUNCTION"
+              "ENSURE-GENERIC-FUNCTION-USING-CLASS"
+              "EQL-SPECIALIZER"
+              "EQL-SPECIALIZER-OBJECT"
+              "EXTRACT-LAMBDA-LIST"
+              "EXTRACT-SPECIALIZER-NAMES"
+              "FINALIZE-INHERITANCE"
+              "FIND-METHOD-COMBINATION"
+              "FORWARD-REFERENCED-CLASS"
+              "FUNCALLABLE-STANDARD-CLASS"
+              "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
+              "FUNCALLABLE-STANDARD-OBJECT"
+              "FUNCTION"
+              "GENERIC-FUNCTION"
+              "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
+              "GENERIC-FUNCTION-DECLARATIONS"
+              "GENERIC-FUNCTION-LAMBDA-LIST"
+              "GENERIC-FUNCTION-METHOD-CLASS"
+              "GENERIC-FUNCTION-METHOD-COMBINATION"
+              "GENERIC-FUNCTION-METHODS"
+              "GENERIC-FUNCTION-NAME"
+              "INTERN-EQL-SPECIALIZER"
+              "MAKE-METHOD-LAMBDA"
+              "MAKE-INSTANCE"
+              "MAP-DEPENDENTS"
+              ;; KLUDGE: See the User Manual
+              ;; "METAOBJECT"
+              "METHOD"
+              "METHOD-COMBINATION"
+              "METHOD-FUNCTION"
+              "METHOD-GENERIC-FUNCTION"
+              "METHOD-LAMBDA-LIST"
+              "METHOD-QUALIFIERS"
+              "METHOD-SPECIALIZERS"
+              "ACCESSOR-METHOD-SLOT-DEFINITION"
+              "READER-METHOD-CLASS"
+              "REMOVE-DEPENDENT"
+              "REMOVE-DIRECT-METHOD"
+              "REMOVE-DIRECT-SUBCLASS"
+              "REMOVE-METHOD"
+              "SET-FUNCALLABLE-INSTANCE-FUNCTION"
+              "SLOT-BOUNDP-USING-CLASS"
+              "SLOT-DEFINITION"
+              "SLOT-DEFINITION-ALLOCATION"
+              "SLOT-DEFINITION-INITARGS"
+              "SLOT-DEFINITION-INITFORM"
+              "SLOT-DEFINITION-INITFUNCTION"
+              "SLOT-DEFINITION-LOCATION"
+              "SLOT-DEFINITION-NAME"
+              "SLOT-DEFINITION-READERS"
+              "SLOT-DEFINITION-WRITERS"
+              "SLOT-DEFINITION-TYPE"
+              "SLOT-MAKUNBOUND-USING-CLASS"
+              "SLOT-VALUE-USING-CLASS"
+              "SPECIALIZER"
+              "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
+              "SPECIALIZER-DIRECT-METHODS"
+              "STANDARD-ACCESSOR-METHOD"
+              "STANDARD-CLASS"
+              "STANDARD-DIRECT-SLOT-DEFINITION"
+              "STANDARD-EFFECTIVE-SLOT-DEFINITION"
+              "STANDARD-GENERIC-FUNCTION"
+              "STANDARD-INSTANCE-ACCESS"
+              "STANDARD-METHOD"
+              "STANDARD-OBJECT"
+              "STANDARD-READER-METHOD"
+              "STANDARD-SLOT-DEFINITION"
+              "STANDARD-WRITER-METHOD"
+              "T"
+              "UPDATE-DEPENDENT"
+              "VALIDATE-SUPERCLASS"
+              "WRITER-METHOD-CLASS"))
 
  #s(sb-cold:package-data
     :name "SB!PCL"
@@ -1375,23 +1595,14 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
 extensions, but even they are not guaranteed to be present in
 later versions of SBCL, and the other stuff in here is
 definitely not guaranteed to be present in later versions of SBCL."
-    ;; FIXME: SB-PCL should probably USE-PACKAGE SB-KERNEL, since SB-PCL
-    ;; is built on SB-KERNEL, and in the absence of USE-PACKAGE, it ends
-    ;; up using a thundering herd of explicit prefixes to get to
-    ;; SB-KERNEL symbols. However, it'll probably be too messy to do
-    ;; this until the duplicate SB-PCL:CLASS/CL:CLASS hierarchy kludge
-    ;; is unscrewed, since until it is there are too many things which
-    ;; conflict between the two packages.
-    :use ("CL" "SB!INT" "SB!EXT" "SB!WALKER")
-    :import-from (("SB!KERNEL" "FUNCALLABLE-INSTANCE-P" "%FUN-DOC"
-                   "PACKAGE-DOC-STRING"
-                   "PACKAGE-HASHTABLE-SIZE" "PACKAGE-HASHTABLE-FREE"
-                   "PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"))
+    :use ("CL" "SB!INT" "SB!EXT" "SB!WALKER" "SB!KERNEL")
+    ;; FIXME: After a little while, these reexports can probably go
+    ;; away, as they're superseded by the use of SB-MOP as the
+    ;; publically-accessible package.
     :reexport ("ADD-METHOD" "ALLOCATE-INSTANCE"
-               "COMPUTE-APPLICABLE-METHODS"
-               "ENSURE-GENERIC-FUNCTION"
-               "MAKE-INSTANCE" "METHOD-QUALIFIERS"
-               "REMOVE-METHOD")
+              "CLASS-NAME" "COMPUTE-APPLICABLE-METHODS"
+               "ENSURE-GENERIC-FUNCTION" "MAKE-INSTANCE"
+              "METHOD-QUALIFIERS" "REMOVE-METHOD")
     :export ("ADD-DEPENDENT"
              "ADD-DIRECT-METHOD"
              "ADD-DIRECT-SUBCLASS"
@@ -1406,21 +1617,28 @@ definitely not guaranteed to be present in later versions of SBCL."
              "CLASS-SLOTS"
              "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
              "COMPUTE-CLASS-PRECEDENCE-LIST"
+            "COMPUTE-DEFAULT-INITARGS"
              "COMPUTE-DISCRIMINATING-FUNCTION"
              "COMPUTE-EFFECTIVE-METHOD"
              "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
              "COMPUTE-SLOTS"
+            "DIRECT-SLOT-DEFINITION"
              "DIRECT-SLOT-DEFINITION-CLASS"
+            "EFFECTIVE-SLOT-DEFINITION"
              "EFFECTIVE-SLOT-DEFINITION-CLASS"
              "ENSURE-CLASS"
              "ENSURE-CLASS-USING-CLASS"
              "ENSURE-GENERIC-FUNCTION-USING-CLASS"
-             "EQL-SPECIALIZER-INSTANCE"
+            "EQL-SPECIALIZER"
+             "EQL-SPECIALIZER-OBJECT"
              "EXTRACT-LAMBDA-LIST"
              "EXTRACT-SPECIALIZER-NAMES"
              "FINALIZE-INHERITANCE"
              "FIND-METHOD-COMBINATION"
+            "FORWARD-REFERENCED-CLASS"
+            "FUNCALLABLE-STANDARD-CLASS"
              "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
+            "FUNCALLABLE-STANDARD-OBJECT"
              "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
              "GENERIC-FUNCTION-DECLARATIONS"
              "GENERIC-FUNCTION-LAMBDA-LIST"
@@ -1440,8 +1658,9 @@ definitely not guaranteed to be present in later versions of SBCL."
              "REMOVE-DEPENDENT"
              "REMOVE-DIRECT-METHOD"
              "REMOVE-DIRECT-SUBCLASS"
-             "SET-FUNCALLABLE-INSTANCE-FUN"
+             "SET-FUNCALLABLE-INSTANCE-FUNCTION"
              "SLOT-BOUNDP-USING-CLASS"
+            "SLOT-DEFINITION"
              "SLOT-DEFINITION-ALLOCATION"
              "SLOT-DEFINITION-INITARGS"
              "SLOT-DEFINITION-INITFORM"
@@ -1453,9 +1672,16 @@ definitely not guaranteed to be present in later versions of SBCL."
              "SLOT-DEFINITION-TYPE"
              "SLOT-MAKUNBOUND-USING-CLASS"
              "SLOT-VALUE-USING-CLASS"
-             "SPECIALIZER-DIRECT-GENERIC-FUNCTION"
+            "SPECIALIZER"
+             "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
              "SPECIALIZER-DIRECT-METHODS"
+            "STANDARD-ACCESSOR-METHOD"
+            "STANDARD-DIRECT-SLOT-DEFINITION"
+            "STANDARD-EFFECTIVE-SLOT-DEFINITION"
              "STANDARD-INSTANCE-ACCESS"
+            "STANDARD-READER-METHOD"
+            "STANDARD-SLOT-DEFINITION"
+            "STANDARD-WRITER-METHOD"
              "UPDATE-DEPENDENT"
              "VALIDATE-SUPERCLASS"
              "WRITER-METHOD-CLASS"))
@@ -1495,19 +1721,17 @@ SB-KERNEL) have been undone, but probably more remain."
              "*STDERR*" "*STDIN*"
              "*STDOUT*" "*TASK-DATA*"
              "*TASK-NOTIFY*" "*TASK-SELF*" "*TTY*" "*TYPESCRIPTPORT*"
-             "ADD-FD-HANDLER" "ADD-PORT-DEATH-HANDLER"
-             "ADD-PORT-OBJECT"
+             "ADD-FD-HANDLER"
              "ALLOCATE-SYSTEM-MEMORY"
              "BEEP" "BITS" 
-             "BYTES" "C-PROCEDURE" "CHECK<=" "CHECK="
+             "BYTES" "C-PROCEDURE"
              "COMPILER-VERSION"
              "DEALLOCATE-SYSTEM-MEMORY"
              "DEFAULT-INTERRUPT"
              "DEPORT-BOOLEAN" "DEPORT-INTEGER"
-             "FROB-DO-BODY" "DOUBLE-FLOAT-RADIX"
+             "FROB-DO-BODY"
              "ENABLE-INTERRUPT" "ENUMERATION"
-             "FD-STREAM" "FD-STREAM-FD"
-             "FD-STREAM-P" 
+             "FD-STREAM-FD" "FD-STREAM-P" 
              "FOREIGN-SYMBOL-ADDRESS" "FOREIGN-SYMBOL-ADDRESS-AS-INTEGER"
              "GET-PAGE-SIZE" "GET-SYSTEM-INFO"
              "IGNORE-INTERRUPT"
@@ -1516,10 +1740,9 @@ SB-KERNEL) have been undone, but probably more remain."
              "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER"
              "OBJECT-SET-OPERATION"
              "OS-COLD-INIT-OR-REINIT" "OS-CONTEXT-T" "OUTPUT-RAW-BYTES"
-             "POINTER" "POINTER<" "POINTER>" "PORT" 
+             "POINTER" "POINTER<" "POINTER>"
              "READ-N-BYTES" "REALLOCATE-SYSTEM-MEMORY" "RECORD-SIZE"
-             "REMOVE-FD-HANDLER" "REMOVE-PORT-DEATH-HANDLER"
-             "REMOVE-PORT-OBJECT"
+             "REMOVE-FD-HANDLER"
              "RESOLVE-LOADED-ASSEMBLER-REFERENCES"
              "SAP+" "SAP-" "SAP-INT"
              "SAP-REF-16" "SAP-REF-32" "SAP-REF-64" "SAP-REF-8"
@@ -1529,17 +1752,14 @@ SB-KERNEL) have been undone, but probably more remain."
              "SAP<" "SAP<=" "SAP=" "SAP>" "SAP>="
              "SCRUB-CONTROL-STACK" "SERVE-ALL-EVENTS"
              "SERVE-EVENT" "SERVER" "SERVER-MESSAGE"
-             "SHORT-FLOAT-RADIX"
              "SIGNED-SAP-REF-16" "SIGNED-SAP-REF-32"
              "SIGNED-SAP-REF-64" "SIGNED-SAP-REF-8"
-             "SINGLE-FLOAT-RADIX"
              ;; FIXME: STRUCTURE!OBJECT stuff probably belongs in SB!KERNEL.
              "STRUCTURE!OBJECT" "STRUCTURE!OBJECT-MAKE-LOAD-FORM"
-             "SYMBOL-MACRO-LET"
              "SYSTEM-AREA-POINTER" "SYSTEM-AREA-POINTER-P" "VECTOR-SAP"
              "WAIT-UNTIL-FD-USABLE" "WITH-ENABLED-INTERRUPTS"
              "WITH-FD-HANDLER"
-             "WITH-INTERRUPTS" "WITH-REPLY-PORT" "WITHOUT-GCING"
+             "WITH-INTERRUPTS" "WITH-PINNED-OBJECTS" "WITHOUT-GCING"
              "WITHOUT-INTERRUPTS" "WORDS"
              "ALLOCATE-SYSTEM-MEMORY-AT"
              "GET-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"))
@@ -1581,7 +1801,7 @@ no guarantees of interface stability."
              "SETUIDEXEC" "SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL"
              "SG-OSPEED" "SGTTYB" "SIZE-T" "ST-ATIME" "ST-BLKSIZE"
              "ST-BLOCKS" "ST-CTIME" "ST-DEV" "ST-GID" "ST-MODE" "ST-MTIME"
-             "ST-NLINK" "ST-RDEV" "ST-SIZE" "ST-UID" "STAT" 
+             "ST-NLINK" "ST-RDEV" "ST-SIZE" "ST-UID" "STAT"
              "TERMINAL-SPEEDS" "TIME-T" "TIMEVAL" "TIMEZONE" "TIOCFLUSH"
              "TIOCGETC" "TIOCGETP" "TIOCGLTC" "TIOCGPGRP" "TIOCGWINSZ"
              "TIOCNOTTY" "TIOCSETC" "TIOCSETP" "TIOCSLTC" "TIOCSPGRP"
@@ -1606,35 +1826,38 @@ no guarantees of interface stability."
              "WRITEGRP" "WRITEOTH" "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL"
              "WS-YPIXEL"
             "WNOHANG" "WSTOPPED" "WUNTRACED"
-            "W_OK" "X_OK" "SIGSYS" "TCSETPGRP" "FD-ZERO"
-             "SIGQUIT" "SIGCHLD" "SIGSEGV" "FD-CLR" "SIGUSR2"
-             "EALREADY" "SIGPIPE" "CHECK" "SIGXCPU" "EOPNOTSUPP"
-             "SIGFPE" "SIGHUP" "ENOTSOCK" "EINTR"
-             "SIGCONT" "UNIX-RESOLVE-LINKS" "SIGKILL" "EMSGSIZE" "ERANGE"
-             "EPROTOTYPE" "UNIX-SIGNAL-NUMBER" "EPFNOSUPPORT" "SIGILL"
-             "EDOM" "EDQUOT" "FD-SETSIZE" "SIGTSTP"
-             "EAFNOSUPPORT" "TCGETPGRP" "EMFILE" "ECONNRESET"
-             "EADDRNOTAVAIL" "SIGALRM" "ENETDOWN" "EVICEOP"
-             "UNIX-FAST-GETRUSAGE" "EPERM" "SIGINT" "EXDEV" "EDEADLK"
-             "ENOSPC" "ECONNREFUSED" "SIGWINCH" "ENOPROTOOPT" "ESRCH"
-             "EUSERS" "SIGVTALRM" "ENOTCONN" "ESUCCESS" "EPIPE"
-             "UNIX-SIMPLIFY-PATHNAME" "EISCONN" "FD-ISSET"
-             "ESHUTDOWN" "EBUSY" "SIGTERM" "ENAMETOOLONG" "EMLINK"
-             "EADDRINUSE" "SIGBUS" "ERESTART" 
-             "UNIX-SIGNAL-NAME" "ETIMEDOUT" "ECHILD" "EFBIG" "SIGTRAP"
-             "UNIX-KILLPG" "ENOTBLK" "SIGIOT" "SIGUSR1" "ECONNABORTED"
-             "EHOSTUNREACH" "EBADF" "EINVAL" "FD-SET" "EISDIR"
-             "SIGTTIN" "UNIX-KILL" "EHOSTDOWN" "E2BIG" "ESPIPE"
-             "UNIX-FAST-SELECT" "ENXIO" "ENOTTY" "ELOOP" "LTCHARS"
-             "SIGXFSZ" "EINPROGRESS" "ENOENT"
-             "EPROTONOSUPPORT" "SIGIO" "ENOMEM" "SIGEMT"
-             "EFAULT" "ENODEV" "EIO" "EVICEERR" "ETXTBSY" "EWOULDBLOCK"
-             "EAGAIN" "EDESTADDRREQ" "ENOEXEC" "ENETUNREACH" "ENOTEMPTY"
-             "ENFILE"
-             "SIGTTOU" "EEXIST" "SIGPROF" "SIGSTOP" "ENETRESET" "SIGURG"
-             "ENOBUFS" "EPROCLIM" "EROFS" "ETOOMANYREFS" "UNIX-FILE-KIND"
-             "ELOCAL" "UNIX-SIGSETMASK" "EREMOTE" "ESOCKTNOSUPPORT"
-             "TIOCSIGSEND" "SIGWAITING"
+            "W_OK" "X_OK"
+             ;; signals
+             "SIGALRM" "SIGBUS" "SIGCHLD" "SIGCONT" "SIGEMT" "SIGFPE"
+             "SIGHUP" "SIGILL" "SIGINT" "SIGIO" "SIGIOT" "SIGKILL"
+             "SIGPIPE" "SIGPROF" "SIGQUIT" "SIGSEGV" "SIGSTOP" "SIGSYS"
+             "SIGTERM" "SIGTRAP" "SIGTSTP" "SIGTTIN" "SIGTTOU" "SIGURG"
+             "SIGUSR1" "SIGUSR2" "SIGVTALRM" "SIGWAITING" "SIGWINCH"
+             "SIGXCPU" "SIGXFSZ"
+
+             ;; errors
+             "E2BIG" "EADDRINUSE" "EADDRNOTAVAIL" "EAFNOSUPPORT"
+             "EAGAIN" "EALREADY" "EBADF" "EBUSY" "ECHILD" "ECONNABORTED"
+             "ECONNREFUSED" "ECONNRESET" "EDEADLK" "EDESTADDRREQ" "EDOM"
+             "EDQUOT" "EEXIST" "EFAULT" "EFBIG" "EHOSTDOWN"
+             "EHOSTUNREACH" "EINPROGRESS" "EINTR" "EINVAL" "EIO"
+             "EISCONN" "EISDIR" "ELOCAL" "ELOOP" "EMFILE" "EMLINK"
+             "EMSGSIZE" "ENAMETOOLONG" "ENETDOWN" "ENETRESET"
+             "ENETUNREACH" "ENFILE" "ENOBUFS" "ENODEV" "ENOENT"
+             "ENOEXEC" "ENOMEM" "ENOPROTOOPT" "ENOSPC" "ENOTBLK"
+             "ENOTCONN" "ENOTEMPTY" "ENOTSOCK" "ENOTTY" "ENXIO"
+             "EOPNOTSUPP" "EPERM" "EPFNOSUPPORT" "EPIPE" "EPROCLIM"
+             "EPROTONOSUPPORT" "EPROTOTYPE" "ERANGE" "EREMOTE"
+             "ERESTART" "EROFS" "ESHUTDOWN" "ESOCKTNOSUPPORT" "ESPIPE"
+             "ESRCH" "ESUCCESS" "ETIMEDOUT" "ETOOMANYREFS" "ETXTBSY"
+             "EUSERS" "EVICEERR" "EVICEOP" "EWOULDBLOCK" "EXDEV"
+
+             "FD-ISSET" "FD-SET" "LTCHARS" "UNIX-FAST-SELECT"
+             "UNIX-FILE-KIND" "UNIX-KILL" "UNIX-SIGSETMASK"
+             "TCSETPGRP" "FD-ZERO" "FD-CLR" "CHECK" "UNIX-RESOLVE-LINKS"
+             "FD-SETSIZE" "TCGETPGRP" "UNIX-FAST-GETRUSAGE"
+             "UNIX-SIMPLIFY-PATHNAME" "UNIX-KILLPG"
+             "TIOCSIGSEND"
              "C-IFLAG" "UNIX-TCGETATTR" "C-LFLAG" "C-OFLAG"
              "C-CFLAG" "TCSAFLUSH" "C-CC" "SIOCSPGRP" "TERMIOS"
              "UNIX-TCSETATTR" "O_NDELAY" "O_NOCTTY"
@@ -1706,7 +1929,7 @@ structure representations"
              "CATCH-BLOCK-ENTRY-PC-SLOT" "CATCH-BLOCK-PREVIOUS-CATCH-SLOT"
              "CATCH-BLOCK-SC-NUMBER" "CATCH-BLOCK-SIZE" "CATCH-BLOCK-SIZE-SLOT"
              "CATCH-BLOCK-TAG-SLOT" "CERROR-TRAP"
-             "CLOSURE-FUN-HEADER-WIDETAG" "CLOSURE-FUN-SLOT"
+             "CLOSURE-FUN-SLOT"
              "CLOSURE-HEADER-WIDETAG" "CLOSURE-INFO-OFFSET"
              "CODE-CODE-SIZE-SLOT" "CODE-CONSTANTS-OFFSET"
              "CODE-DEBUG-INFO-SLOT" "CODE-ENTRY-POINTS-SLOT"
@@ -1717,20 +1940,23 @@ structure representations"
              "COMPLEX-DOUBLE-FLOAT-SIZE" "COMPLEX-DOUBLE-FLOAT-WIDETAG"
              "COMPLEX-DOUBLE-REG-SC-NUMBER" "COMPLEX-DOUBLE-STACK-SC-NUMBER"
              "COMPLEX-IMAG-SLOT" "COMPLEX-REAL-SLOT"
-             "COMPLEX-LONG-FLOAT-IMAG-SLOT" "COMPLEX-LONG-FLOAT-REAL-SLOT"
-             "COMPLEX-LONG-FLOAT-SIZE" "COMPLEX-LONG-FLOAT-WIDETAG"
-             "COMPLEX-LONG-REG-SC-NUMBER" "COMPLEX-LONG-STACK-SC-NUMBER"
+             #!+long-float "COMPLEX-LONG-FLOAT-IMAG-SLOT"
+            #!+long-float "COMPLEX-LONG-FLOAT-REAL-SLOT"
+             #!+long-float "COMPLEX-LONG-FLOAT-SIZE"
+            #!+long-float "COMPLEX-LONG-FLOAT-WIDETAG"
+             #!+long-float "COMPLEX-LONG-REG-SC-NUMBER"
+            #!+long-float "COMPLEX-LONG-STACK-SC-NUMBER"
              "COMPLEX-SINGLE-FLOAT-IMAG-SLOT" "COMPLEX-SINGLE-FLOAT-REAL-SLOT"
              "COMPLEX-SINGLE-FLOAT-SIZE" "COMPLEX-SINGLE-FLOAT-WIDETAG"
              "COMPLEX-SINGLE-REG-SC-NUMBER" "COMPLEX-SINGLE-STACK-SC-NUMBER"
-             "COMPLEX-SIZE" "COMPLEX-STRING-WIDETAG" "COMPLEX-WIDETAG"
+             "COMPLEX-SIZE" "COMPLEX-BASE-STRING-WIDETAG" "COMPLEX-WIDETAG"
+            "COMPLEX-VECTOR-NIL-WIDETAG"
              "COMPLEX-VECTOR-WIDETAG" "CONS-CAR-SLOT" "CONS-CDR-SLOT"
              "CONS-SIZE" "CONSTANT-SC-NUMBER"
              "CONTEXT-FLOATING-POINT-MODES" "CONTEXT-FLOAT-REGISTER"
              "CONTEXT-PC" "CONTEXT-REGISTER"
              "CONTROL-STACK-SC-NUMBER" "COUNT-NO-OPS"
             "*CURRENT-CATCH-BLOCK*"
-             "CURRENT-DYNAMIC-SPACE-START"
              "CURRENT-FLOAT-TRAP" "DEFINE-FOR-EACH-PRIMITIVE-OBJECT"
              "DESCRIPTOR-REG-SC-NUMBER" "DESCRIPTOR-VS-NON-DESCRIPTOR-STORAGE"
              "DOUBLE-FLOAT-EXPONENT-BYTE" "DOUBLE-FLOAT-BIAS"
@@ -1778,13 +2004,18 @@ structure representations"
              "INSTANCE-SLOTS-OFFSET" "INSTANCE-USAGE"
              "INTERIOR-REG-SC-NUMBER" "INTERNAL-ERROR-ARGS"
              "INTERRUPTED-FLAG" "LIST-ALLOCATED-OBJECTS" "LIST-POINTER-LOWTAG"
-             "LONG-FLOAT-BIAS" "LONG-FLOAT-DIGITS" "LONG-FLOAT-EXPONENT-BYTE"
+            ;; FIXME: Possibly these other parameters (see
+            ;; compiler/{x86,sparc}/parms.lisp) should be defined
+            ;; conditionally on #!+LONG-FLOAT)
+            "LONG-FLOAT-BIAS" "LONG-FLOAT-DIGITS" "LONG-FLOAT-EXPONENT-BYTE"
              "LONG-FLOAT-HIDDEN-BIT" "LONG-FLOAT-NORMAL-EXPONENT-MAX"
              "LONG-FLOAT-NORMAL-EXPONENT-MIN" "LONG-FLOAT-SIGNIFICAND-BYTE"
-             "LONG-FLOAT-SIZE" "LONG-FLOAT-TRAPPING-NAN-BIT"
-            "LONG-FLOAT-WIDETAG"
-             "LONG-FLOAT-VALUE-SLOT" "LONG-REG-SC-NUMBER"
-             "LONG-STACK-SC-NUMBER"
+             #!+long-float "LONG-FLOAT-SIZE"
+            "LONG-FLOAT-TRAPPING-NAN-BIT"
+            #!+long-float "LONG-FLOAT-WIDETAG"
+             #!+long-float "LONG-FLOAT-VALUE-SLOT"
+            #!+long-float "LONG-REG-SC-NUMBER"
+             #!+long-float "LONG-STACK-SC-NUMBER"
              "LOWTAG-LIMIT" "LOWTAG-MASK"
             "LRA-SAVE-OFFSET"
              "MEMORY-USAGE" "MOST-POSITIVE-COST"
@@ -1809,27 +2040,38 @@ structure representations"
              "*READ-ONLY-SPACE-FREE-POINTER*"
              "REGISTER-SAVE-PENALTY" "RETURN-PC-HEADER-WIDETAG"
              "RETURN-PC-RETURN-POINT-OFFSET" "RETURN-PC-SAVE-OFFSET"
+            "SAETP-CTYPE" "SAETP-INITIAL-ELEMENT-DEFAULT"
+            "SAETP-N-BITS" "SAETP-TYPECODE" "SAETP-PRIMITIVE-TYPE-NAME"
+            "SAETP-N-PAD-ELEMENTS" "SAETP-SPECIFIER"
+            "SAETP-COMPLEX-TYPECODE" "SAETP-IMPORTANCE"
+            "*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES*"
             "SANCTIFY-FOR-EXECUTION"
              "SAP-POINTER-SLOT" "SAP-REG-SC-NUMBER" "SAP-SIZE"
              "SAP-STACK-SC-NUMBER" "SAP-WIDETAG"
              "SIGFPE-HANDLER" "SIGNED-REG-SC-NUMBER" "SIGNED-STACK-SC-NUMBER"
              "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-WIDETAG"
-             "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-WIDETAG"
+             #!+long-float "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-WIDETAG"
              "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-WIDETAG"
              "SIMPLE-ARRAY-DOUBLE-FLOAT-WIDETAG"
-             "SIMPLE-ARRAY-LONG-FLOAT-WIDETAG"
+             #!+long-float "SIMPLE-ARRAY-LONG-FLOAT-WIDETAG"
+            "SIMPLE-ARRAY-NIL-WIDETAG"
              "SIMPLE-ARRAY-SINGLE-FLOAT-WIDETAG"
-             "SIMPLE-ARRAY-WIDETAG" "SIMPLE-ARRAY-UNSIGNED-BYTE-16-WIDETAG"
+             "SIMPLE-ARRAY-WIDETAG"
+            "SIMPLE-ARRAY-UNSIGNED-BYTE-15-WIDETAG"
+            "SIMPLE-ARRAY-UNSIGNED-BYTE-16-WIDETAG"
              "SIMPLE-ARRAY-UNSIGNED-BYTE-2-WIDETAG"
+            "SIMPLE-ARRAY-UNSIGNED-BYTE-29-WIDETAG"
+            "SIMPLE-ARRAY-UNSIGNED-BYTE-31-WIDETAG"
              "SIMPLE-ARRAY-UNSIGNED-BYTE-32-WIDETAG"
              "SIMPLE-ARRAY-UNSIGNED-BYTE-4-WIDETAG"
+            "SIMPLE-ARRAY-UNSIGNED-BYTE-7-WIDETAG"
              "SIMPLE-ARRAY-UNSIGNED-BYTE-8-WIDETAG"
              "SIMPLE-ARRAY-SIGNED-BYTE-16-WIDETAG"
              "SIMPLE-ARRAY-SIGNED-BYTE-30-WIDETAG"
              "SIMPLE-ARRAY-SIGNED-BYTE-32-WIDETAG"
              "SIMPLE-ARRAY-SIGNED-BYTE-8-WIDETAG"
              "SIMPLE-BIT-VECTOR-WIDETAG"
-             "SIMPLE-STRING-WIDETAG"
+             "SIMPLE-BASE-STRING-WIDETAG"
             "SIMPLE-VECTOR-WIDETAG" "SINGLE-FLOAT-BIAS"
              "SINGLE-FLOAT-DIGITS" "SINGLE-FLOAT-EXPONENT-BYTE"
              "SINGLE-FLOAT-HIDDEN-BIT" "SINGLE-FLOAT-NORMAL-EXPONENT-MAX"
@@ -1848,8 +2090,9 @@ structure representations"
              "SYMBOL-HASH-SLOT" "SYMBOL-HEADER-WIDETAG" "SYMBOL-NAME-SLOT"
              "SYMBOL-PACKAGE-SLOT" "SYMBOL-PLIST-SLOT"
              "SYMBOL-SIZE" "SYMBOL-UNUSED-SLOT" "SYMBOL-VALUE-SLOT"
-             "BINDING-STACK-START" "BINDING-STACK-END" 
-             "CONTROL-STACK-START" "CONTROL-STACK-END"
+             "*BINDING-STACK-START*"
+             "*CONTROL-STACK-START*" "*CONTROL-STACK-END*"
+            "CONTROL-STACK-POINTER-VALID-P"
              "DYNAMIC-SPACE-START" "DYNAMIC-SPACE-END"
             #!+c-stack-is-control-stack "ALTERNATE-SIGNAL-STACK-START"
             #!-gencgc "DYNAMIC-0-SPACE-START" 
@@ -1874,7 +2117,7 @@ structure representations"
              "WEAK-POINTER-BROKEN-SLOT" "WEAK-POINTER-NEXT-SLOT"
              "WEAK-POINTER-SIZE" "WEAK-POINTER-WIDETAG"
             "WEAK-POINTER-VALUE-SLOT"
-             "WORD" "N-WORD-BITS" "N-WORD-BYTES"
+             "WORD" "N-WORD-BITS" "N-WORD-BYTES" "N-MACHINE-WORD-BITS"
             "WORD-REG-SC-NUMBER" "WORD-SHIFT"
              "ZERO-SC-NUMBER"))