0.7.13.pcl-class.2

[sbcl.git] / package-data-list.lisp-expr

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 2d3f93d..250739f 100644 (file)
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -2,10 +2,9 @@
 
 ;;;; the specifications of target packages, except for a few things
 ;;;; which are handled elsewhere by other mechanisms:
 
 ;;;; 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,
 ;;;;   * 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
 ;;;;
 ;;;; The packages are named SB!FOO here and elsewhere in
 ;;;; cross-compilation, in order to avoid collision with possible

@@ -192,8 +191,9 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
               "*BACKEND-SUBFEATURES*"
               "*BACKEND-T-PRIMITIVE-TYPE*"
 
               "*BACKEND-SUBFEATURES*"
               "*BACKEND-T-PRIMITIVE-TYPE*"
 

-              "*CODE-SEGMENT*" 
+              "*CODE-SEGMENT*"

               "*COUNT-VOP-USAGES*" "*ELSEWHERE*" "*FREE-FUNS*"
               "*COUNT-VOP-USAGES*" "*ELSEWHERE*" "*FREE-FUNS*"

+              "*LEXENV*"

               "*SETF-ASSUMED-FBOUNDP*"
               "*SUPPRESS-VALUES-DECLARATION*"
 
               "*SETF-ASSUMED-FBOUNDP*"
               "*SUPPRESS-VALUES-DECLARATION*"
 

@@ -209,15 +209,16 @@ 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"
               "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"
               "COMPONENT" "COMPONENT-HEADER-LENGTH"
               "COMPONENT-INFO" "COMPONENT-LIVE-TN" "COMPUTE-FUN"
              "COMPILE-LAMBDA-FOR-DEFUN"
               "%COMPILER-DEFUN" "COMPILER-ERROR"
               "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"
               "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"
               "DEF-IR1-TRANSLATOR"
               "!DEF-PRIMITIVE-TYPE" "!DEF-PRIMITIVE-TYPE-ALIAS"
               "DEFINE-SOURCE-TRANSFORM" "!DEF-VM-SUPPORT-ROUTINE"

@@ -230,6 +231,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"
               "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"
              "GET-VECTOR-SUBTYPE"
               "HALT"
              "IF-EQ" "INLINE-SYNTACTIC-CLOSURE-LAMBDA"

@@ -237,8 +240,8 @@ 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"
               "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-ALIAS-TN" "MAKE-CATCH-BLOCK"
               "MAKE-CLOSURE" "MAKE-CONSTANT-TN" "MAKE-FIXNUM"
               "MAKE-LOAD-TIME-CONSTANT-TN" "MAKE-N-TNS" "MAKE-NORMAL-TN"

@@ -246,6 +249,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
               "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-REPRESENTATION-TN" "MAKE-RESTRICTED-TN" "MAKE-SC-OFFSET"
               "MAKE-STACK-POINTER-TN" "MAKE-TN-REF" "MAKE-UNWIND-BLOCK"
              "MAKE-WIRED-TN" "MAYBE-COMPILER-NOTE"

+             "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"
               "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"

@@ -339,7 +343,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
              "*FLUSH-DEBUG-ERRORS*" "*IN-THE-DEBUGGER*"
              "*TRACE-INDENTATION-STEP*" "*MAX-TRACE-INDENTATION*"
              "*TRACE-FRAME*" "*TRACED-FUN-LIST*"
              "*FLUSH-DEBUG-ERRORS*" "*IN-THE-DEBUGGER*"
              "*TRACE-INDENTATION-STEP*" "*MAX-TRACE-INDENTATION*"
              "*TRACE-FRAME*" "*TRACED-FUN-LIST*"

-             "ARG" "BACKTRACE" "INTERNAL-DEBUG" "VAR"
+             "ARG" "BACKTRACE" "BACKTRACE-AS-LIST" "INTERNAL-DEBUG" "VAR"

              "*PRINT-LOCATION-KIND*"
              "*ONLY-BLOCK-START-LOCATIONS*" "*STACK-TOP-HINT*"
              "*TRACE-VALUES*" "DO-DEBUG-COMMAND"
              "*PRINT-LOCATION-KIND*"
              "*ONLY-BLOCK-START-LOCATIONS*" "*STACK-TOP-HINT*"
              "*TRACE-VALUES*" "DO-DEBUG-COMMAND"

@@ -462,10 +466,13 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
           "SB!EXT" "SB!INT" "SB!KERNEL" "SB!SYS")
     :export ("*ASSEMBLER-ROUTINES*"
              "+BACKEND-FASL-FILE-IMPLEMENTATION+"
           "SB!EXT" "SB!INT" "SB!KERNEL" "SB!SYS")
     :export ("*ASSEMBLER-ROUTINES*"
              "+BACKEND-FASL-FILE-IMPLEMENTATION+"

+            "BUILD-ID-CORE-ENTRY-TYPE-CODE"

              "*FASL-FILE-TYPE*"
              "CLOSE-FASL-OUTPUT"
              "DUMP-ASSEMBLER-ROUTINES"
              "DUMP-OBJECT"
              "*FASL-FILE-TYPE*"
              "CLOSE-FASL-OUTPUT"
              "DUMP-ASSEMBLER-ROUTINES"
              "DUMP-OBJECT"

+            "DYNAMIC-CORE-SPACE-ID"
+            "END-CORE-ENTRY-TYPE-CODE"

              "FASL-CONSTANT-ALREADY-DUMPED-P"
              "+FASL-FILE-VERSION+"
              "FASL-DUMP-COLD-LOAD-FORM" "FASL-DUMP-COMPONENT"
              "FASL-CONSTANT-ALREADY-DUMPED-P"
              "+FASL-FILE-VERSION+"
              "FASL-DUMP-COLD-LOAD-FORM" "FASL-DUMP-COMPONENT"

@@ -476,11 +483,16 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
              "FASL-OUTPUT" "FASL-OUTPUT-P"
             "FASL-OUTPUT-ENTRY-TABLE" "FASL-OUTPUT-STREAM"
              "FASL-VALIDATE-STRUCTURE"
              "FASL-OUTPUT" "FASL-OUTPUT-P"
             "FASL-OUTPUT-ENTRY-TABLE" "FASL-OUTPUT-STREAM"
              "FASL-VALIDATE-STRUCTURE"

+            "INITIAL-FUN-CORE-ENTRY-TYPE-CODE"

              "*!LOAD-TIME-VALUES*"
              "LOAD-TYPE-PREDICATE"
              "*!LOAD-TIME-VALUES*"
              "LOAD-TYPE-PREDICATE"

+            "NEW-DIRECTORY-CORE-ENTRY-TYPE-CODE"

              "OPEN-FASL-OUTPUT"
              "OPEN-FASL-OUTPUT"

+            "READ-ONLY-CORE-SPACE-ID"

              "*!REVERSED-COLD-TOPLEVELS*"
              "*!REVERSED-COLD-TOPLEVELS*"

-             "*STATIC-FOREIGN-SYMBOLS*"))
+            "STATIC-CORE-SPACE-ID"
+             "*STATIC-FOREIGN-SYMBOLS*"
+            "VERSION-CORE-ENTRY-TYPE-CODE"))

 
  ;; This package is a grab bag for things which used to be internal
  ;; symbols in package COMMON-LISP. Lots of these symbols are accessed
 
  ;; This package is a grab bag for things which used to be internal
  ;; symbols in package COMMON-LISP. Lots of these symbols are accessed

@@ -490,8 +502,8 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
  ;; an existing package (e.g. KERNEL or SYS or EXT or FASL), I
  ;; (WHN 19990223) encourage maintainers to move them there..
  ;;
  ;; 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.
+ ;; ..except that it's getting so big and crowded that maybe it should
+ ;; be split up, too.

  #s(sb-cold:package-data
     :name "SB!IMPL"
     :doc "private: a grab bag of implementation details"
  #s(sb-cold:package-data
     :name "SB!IMPL"
     :doc "private: a grab bag of implementation details"

@@ -518,9 +530,6 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
              ;; hairy compiles.
              "*COMPILE-PROGRESS*"
 
              ;; hairy compiles.
              "*COMPILE-PROGRESS*"
 

-             ;; There is no one right way to do DESCRIBE.
-             "*DESCRIBE-INDENTATION-STEP*"
-

              ;; It can be handy to be able to evaluate expressions involving
              ;; the thing under examination by CL:INSPECT.
              "*INSPECTED*"
              ;; It can be handy to be able to evaluate expressions involving
              ;; the thing under examination by CL:INSPECT.
              "*INSPECTED*"

@@ -548,11 +557,6 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
              ;; WITH-STANDARD-IO-SYNTAX or something.)
              "*ERROR-PRINT-LENGTH*" "*ERROR-PRINT-LEVEL*" "*ERROR-PRINT-LINES*"
 
              ;; WITH-STANDARD-IO-SYNTAX or something.)
              "*ERROR-PRINT-LENGTH*" "*ERROR-PRINT-LEVEL*" "*ERROR-PRINT-LINES*"
 

-             ;; KLUDGE: CMU CL had
-             ;; "*IGNORE-FLOATING-POINT-UNDERFLOW*", which seemed
-             ;; like a reasonable idea but doesn't seem to be supported
-             ;; now? -- WHN 19991206
-

              ;; extended declarations..
              "FREEZE-TYPE" "INHIBIT-WARNINGS"
              "MAYBE-INLINE"
              ;; extended declarations..
              "FREEZE-TYPE" "INHIBIT-WARNINGS"
              "MAYBE-INLINE"

@@ -562,6 +566,9 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
              "*USE-IMPLEMENTATION-TYPES*"
              "*DERIVE-FUNCTION-TYPES*"
 
              "*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"
              ;; a special form for breaking out of our "declarations
              ;; are assertions" default
              "TRULY-THE"

@@ -574,7 +581,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
 
              ;; weak pointers and finalization
              "CANCEL-FINALIZATION"
 
              ;; weak pointers and finalization
              "CANCEL-FINALIZATION"

-             "FINALIZE"             
+             "FINALIZE"

              "HASH-TABLE-WEAK-P" "MAKE-WEAK-POINTER"
              "WEAK-POINTER" "WEAK-POINTER-P" "WEAK-POINTER-VALUE"
 
              "HASH-TABLE-WEAK-P" "MAKE-WEAK-POINTER"
              "WEAK-POINTER" "WEAK-POINTER-P" "WEAK-POINTER-VALUE"
 

@@ -582,7 +589,6 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
              ;; want to do this stuff.
              "FLOAT-DENORMALIZED-P"
              "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P"
              ;; want to do this stuff.
              "FLOAT-DENORMALIZED-P"
              "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P"

-             "FLOATING-POINT-INVALID"

              "FLOAT-INFINITY-P"
              "SHORT-FLOAT-NEGATIVE-INFINITY"
              "SHORT-FLOAT-POSITIVE-INFINITY"
              "FLOAT-INFINITY-P"
              "SHORT-FLOAT-NEGATIVE-INFINITY"
              "SHORT-FLOAT-POSITIVE-INFINITY"

@@ -600,9 +606,18 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
              ;; saving Lisp images
              "SAVE-LISP-AND-DIE"
 
              ;; saving Lisp images
              "SAVE-LISP-AND-DIE"
 

+            ;; provided for completeness to make it more convenient
+            ;; to use command-line --disable-debugger functionality
+            ;; in oddball situations (like building core files using
+            ;; scripts which run unattended, when the core files are
+            ;; intended for interactive use)
+            "DISABLE-DEBUGGER"
+            "ENABLE-DEBUGGER"
+

              ;; miscellaneous useful supported extensions
              "QUIT"
              ;; miscellaneous useful supported extensions
              "QUIT"

-
+            "*MODULE-PROVIDER-FUNCTIONS*"
+            

              ;; 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
              ;; 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

@@ -671,7 +686,7 @@ retained, possibly temporariliy, because it might be used internally."
 
              ;; hash mixing operations
              "MIX" "MIXF"
 
              ;; 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
              ;; 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

@@ -680,18 +695,20 @@ retained, possibly temporariliy, because it might be used internally."
 
              ;; error-reporting facilities
              "SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"
 
              ;; error-reporting facilities
              "SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"

+             "SIMPLE-PARSE-ERROR"

              "SIMPLE-PROGRAM-ERROR" "SIMPLE-STREAM-ERROR"
              "SIMPLE-STYLE-WARNING"
              "SIMPLE-PROGRAM-ERROR" "SIMPLE-STREAM-ERROR"
              "SIMPLE-STYLE-WARNING"

+            "SPECIAL-FORM-FUNCTION"

              "STYLE-WARN"
 
              ;; bootstrapping magic, to make things happen both in
              ;; the cross-compilation host compiler's environment and
              ;; in the cross-compiler's environment
              "STYLE-WARN"
 
              ;; bootstrapping magic, to make things happen both in
              ;; the cross-compilation host compiler's environment and
              ;; in the cross-compiler's environment

-             "DEF!MACRO" "DEF!METHOD" "DEF!STRUCT" "DEF!TYPE"
+             "DEF!CONSTANT" "DEF!MACRO" "DEF!METHOD" "DEF!STRUCT" "DEF!TYPE"

 
             ;; stuff for hinting to the compiler
             "NAMED-LAMBDA"
 
             ;; stuff for hinting to the compiler
             "NAMED-LAMBDA"

-            
+

              ;; other variations on DEFFOO stuff useful for bootstrapping
              ;; and cross-compiling
              "DEFMACRO-MUNDANELY"
              ;; other variations on DEFFOO stuff useful for bootstrapping
              ;; and cross-compiling
              "DEFMACRO-MUNDANELY"

@@ -706,7 +723,7 @@ retained, possibly temporariliy, because it might be used internally."
              "FASTBIG-INCF-PCOUNTER-OR-FIXNUM"
              "INCF-PCOUNTER"
              "INCF-PCOUNTER-OR-FIXNUM"
              "FASTBIG-INCF-PCOUNTER-OR-FIXNUM"
              "INCF-PCOUNTER"
              "INCF-PCOUNTER-OR-FIXNUM"

-             "MAKE-PCOUNTER"             
+             "MAKE-PCOUNTER"

              "PCOUNTER"
              "PCOUNTER->INTEGER"
              "PCOUNTER-OR-FIXNUM->INTEGER"
              "PCOUNTER"
              "PCOUNTER->INTEGER"
              "PCOUNTER-OR-FIXNUM->INTEGER"

@@ -716,17 +733,19 @@ retained, possibly temporariliy, because it might be used internally."
              ;; miscellaneous non-standard but handy user-level functions..
              "ASSQ" "DELQ" "MEMQ" "POSQ" "NEQ"
              "%FIND-PACKAGE-OR-LOSE" "FIND-UNDELETED-PACKAGE-OR-LOSE"
              ;; miscellaneous non-standard but handy user-level functions..
              "ASSQ" "DELQ" "MEMQ" "POSQ" "NEQ"
              "%FIND-PACKAGE-OR-LOSE" "FIND-UNDELETED-PACKAGE-OR-LOSE"

-             "SANE-PACKAGE" 
+             "SANE-PACKAGE"

              "CYCLIC-LIST-P"
             "COMPOUND-OBJECT-P"
              "SWAPPED-ARGS-FUN"
              "ANY/TYPE" "EVERY/TYPE"
              "CYCLIC-LIST-P"
             "COMPOUND-OBJECT-P"
              "SWAPPED-ARGS-FUN"
              "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"
              "TYPE-BOUND-NUMBER"
              "CONSTANTLY-T" "CONSTANTLY-NIL" "CONSTANTLY-0"
              "PSXHASH"
              "%BREAK"
             "NTH-BUT-WITH-SANE-ARG-ORDER"
             "DEPRECATION-WARNING"

+            "BIT-VECTOR-="

 
              ;; ..and macros..
              "COLLECT"
 
              ;; ..and macros..
              "COLLECT"

@@ -736,24 +755,27 @@ retained, possibly temporariliy, because it might be used internally."
              "DEFENUM"
              "DEFPRINTER"
              "AVER" "ENFORCE-TYPE"
              "DEFENUM"
              "DEFPRINTER"
              "AVER" "ENFORCE-TYPE"

+             "AWHEN" "ACOND" "IT"
+            "!DEF-BOOLEAN-ATTRIBUTE"

 
             ;; ..and CONDITIONs..
             "BUG"
             "UNSUPPORTED-OPERATOR"
 
             ;; ..and CONDITIONs..
             "BUG"
             "UNSUPPORTED-OPERATOR"

-            
-             ;; ..and DEFTYPEs..
-             "INDEX" 

 
 

+             ;; ..and DEFTYPEs..
+             "INDEX" "LOAD/STORE-INDEX"
+            "SIGNED-BYTE-WITH-A-BITE-OUT"
+            "UNSIGNED-BYTE-WITH-A-BITE-OUT"

              ;; ..and type predicates
              "INSTANCEP"
              ;; ..and type predicates
              "INSTANCEP"

-             "DOUBLE-FLOATP"
+             "DOUBLE-FLOAT-P"

              "LOGICAL-PATHNAME-P"
              "LOGICAL-PATHNAME-P"

-             "LONG-FLOATP"
-             "SHORT-FLOATP"
-             "SINGLE-FLOATP"
+             "LONG-FLOAT-P"
+             "SHORT-FLOAT-P"
+             "SINGLE-FLOAT-P"

              "FIXNUMP"
              "BIGNUMP"
              "FIXNUMP"
              "BIGNUMP"

-             "RATIOP" 
+             "RATIOP"

 
              ;; encapsulation
              "ARG-LIST"
 
              ;; encapsulation
              "ARG-LIST"

@@ -780,6 +802,7 @@ retained, possibly temporariliy, because it might be used internally."
              ;; hash caches
              "DEFINE-HASH-CACHE"
              "DEFUN-CACHED"
              ;; hash caches
              "DEFINE-HASH-CACHE"
              "DEFUN-CACHED"

+             "DEFINE-CACHED-SYNONYM"

 
              ;; time
              "FORMAT-DECODED-TIME"
 
              ;; time
              "FORMAT-DECODED-TIME"

@@ -809,7 +832,7 @@ retained, possibly temporariliy, because it might be used internally."
 
              ;; cross-compilation bootstrap hacks which turn into
              ;; placeholders in a target system
 
              ;; 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:
 
              ;; might as well be shared among the various files which
              ;; need it:

@@ -819,12 +842,13 @@ retained, possibly temporariliy, because it might be used internally."
              "C-STRINGS->STRING-LIST"
 
              ;; misc. utilities used internally
              "C-STRINGS->STRING-LIST"
 
              ;; misc. utilities used internally

-             "LEGAL-FUN-NAME-P"
+             "LEGAL-FUN-NAME-P" "LEGAL-FUN-NAME-OR-TYPE-ERROR"

              "FUN-NAME-BLOCK-NAME"
             "FUN-NAME-INLINE-EXPANSION"
              "WHITESPACE-CHAR-P"
              "LISTEN-SKIP-WHITESPACE"
              "PACKAGE-INTERNAL-SYMBOL-COUNT" "PACKAGE-EXTERNAL-SYMBOL-COUNT"
              "FUN-NAME-BLOCK-NAME"
             "FUN-NAME-INLINE-EXPANSION"
              "WHITESPACE-CHAR-P"
              "LISTEN-SKIP-WHITESPACE"
              "PACKAGE-INTERNAL-SYMBOL-COUNT" "PACKAGE-EXTERNAL-SYMBOL-COUNT"

+             "PARSE-BODY" "PARSE-LAMBDA-LIST" "PARSE-LAMBDA-LIST-LIKE-THING"

              "PROPER-LIST-OF-LENGTH-P"
              "LIST-OF-LENGTH-AT-LEAST-P"
              "LIST-WITH-LENGTH-P"
              "PROPER-LIST-OF-LENGTH-P"
              "LIST-OF-LENGTH-AT-LEAST-P"
              "LIST-WITH-LENGTH-P"

@@ -838,8 +862,11 @@ retained, possibly temporariliy, because it might be used internally."
              "ABOUT-TO-MODIFY-SYMBOL-VALUE"
             "SYMBOL-SELF-EVALUATING-P"
              "PRINT-PRETTY-ON-STREAM-P"
              "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"
              "LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P"

-             "POSITIVE-PRIMEP" 
+             "POSITIVE-PRIMEP"
+             "EVAL-IN-LEXENV"
+            "DEBUG-NAMIFY"

 
              ;; These could be moved back into SB!EXT if someone has
              ;; compelling reasons, but hopefully we can get by
 
              ;; These could be moved back into SB!EXT if someone has
              ;; compelling reasons, but hopefully we can get by

@@ -874,9 +901,14 @@ retained, possibly temporariliy, because it might be used internally."
 
             ;; hackery to help set up for cold init
              "!BEGIN-COLLECTING-COLD-INIT-FORMS"
 
             ;; hackery to help set up for cold init
              "!BEGIN-COLLECTING-COLD-INIT-FORMS"

-            "!COLD-INIT-FORMS" 
+            "!COLD-INIT-FORMS"

             "COLD-FSET"
             "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
 
  ;; 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

@@ -915,16 +947,19 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "%ARRAY-FILL-POINTER-P"
              "%ASIN" "%ASINH"
              "%ATAN" "%ATAN2" "%ATANH"
              "%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"
              "%CLOSURE-INDEX-REF" "%COS" "%COS-QUICK"

-             "%COSH" "%DEPOSIT-FIELD" "%DETECT-STACK-EXHAUSTION"
+             "%COSH" "%DATA-VECTOR-AND-INDEX"
+            "%DEPOSIT-FIELD"

              "%DOUBLE-FLOAT" "%DPB" "%EXP" "%EXPM1"
              "%FIND-POSITION" "%FIND-POSITION-VECTOR-MACRO"
              "%FIND-POSITION-IF" "%FIND-POSITION-IF-VECTOR-MACRO"
              "%FIND-POSITION-IF-NOT" "%FIND-POSITION-IF-NOT-VECTOR-MACRO"
              "%FUN-DOC" "%FUN-NAME"
              "%HYPOT" "%LDB"
              "%DOUBLE-FLOAT" "%DPB" "%EXP" "%EXPM1"
              "%FIND-POSITION" "%FIND-POSITION-VECTOR-MACRO"
              "%FIND-POSITION-IF" "%FIND-POSITION-IF-VECTOR-MACRO"
              "%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"
              "%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"

@@ -953,7 +988,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "*CURRENT-LEVEL-IN-PRINT*" "*EMPTY-TYPE*"
              "*GC-INHIBIT*"
              "*NEED-TO-COLLECT-GARBAGE*"
              "*CURRENT-LEVEL-IN-PRINT*" "*EMPTY-TYPE*"
              "*GC-INHIBIT*"
              "*NEED-TO-COLLECT-GARBAGE*"

-             "*PRETTY-PRINTER*" "*CONTROL-STACK-EXHAUSTION-SAP*"
+             "*CONTROL-STACK-EXHAUSTION-SAP*"

             "*UNIVERSAL-TYPE*" "*UNIVERSAL-FUN-TYPE*"
              "*UNPARSE-FUN-TYPE-SIMPLIFY*" "*WILD-TYPE*"
              "32BIT-LOGICAL-AND" "32BIT-LOGICAL-ANDC1"
             "*UNIVERSAL-TYPE*" "*UNIVERSAL-FUN-TYPE*"
              "*UNPARSE-FUN-TYPE-SIMPLIFY*" "*WILD-TYPE*"
              "32BIT-LOGICAL-AND" "32BIT-LOGICAL-ANDC1"

@@ -975,16 +1010,10 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "ARRAY-TYPE-P"
              "ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE" "ASH-INDEX"
              "ASSERT-ERROR" "BASE-CHAR-P"
              "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"
+             "BINDING-STACK-POINTER-SAP" "BIT-BASH-COPY"

              "BIT-INDEX" "BOGUS-ARG-TO-VALUES-LIST-ERROR"
              "BOOLE-CODE"
              "BIT-INDEX" "BOGUS-ARG-TO-VALUES-LIST-ERROR"
              "BOOLE-CODE"

+            "BOUNDING-INDICES-BAD-ERROR"

              "BYTE-SPECIFIER"
              "%BYTE-BLT"
              "CALLABLE" "CASE-BODY-ERROR"
              "BYTE-SPECIFIER"
              "%BYTE-BLT"
              "CALLABLE" "CASE-BODY-ERROR"

@@ -994,12 +1023,12 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "CODE-COMPONENT" "CODE-COMPONENT-P"
              "CODE-DEBUG-INFO" "CODE-HEADER-REF" "CODE-HEADER-SET"
              "CODE-INSTRUCTIONS"
              "CODE-COMPONENT" "CODE-COMPONENT-P"
              "CODE-DEBUG-INFO" "CODE-HEADER-REF" "CODE-HEADER-SET"
              "CODE-INSTRUCTIONS"

-             "COERCE-TO-BIT-VECTOR" "COERCE-TO-FUN" "COERCE-TO-LEXENV"
-             "COERCE-TO-LIST" "COERCE-TO-SIMPLE-STRING"
-             "COERCE-TO-SIMPLE-VECTOR" "COERCE-TO-VECTOR"
+             "COERCE-TO-FUN" "COERCE-TO-LEXENV"
+             "COERCE-TO-LIST" "COERCE-TO-VECTOR"

              "*COLD-INIT-COMPLETE-P*"
              "COMPLEX-DOUBLE-FLOAT-P"
              "*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"
              "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"

@@ -1013,7 +1042,8 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "CSUBTYPEP" "CTYPE" "TYPE-HASH-VALUE"
              "CTYPE-OF" "CTYPE-P" "CTYPEP" "CURRENT-FP" "CURRENT-SP"
              "DATA-VECTOR-REF" "DATA-VECTOR-SET" "DECODE-DOUBLE-FLOAT"
              "CSUBTYPEP" "CTYPE" "TYPE-HASH-VALUE"
              "CTYPE-OF" "CTYPE-P" "CTYPEP" "CURRENT-FP" "CURRENT-SP"
              "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"
              "DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P"
             "!DEFSTRUCT-WITH-ALTERNATE-METACLASS"
              "DESCEND-INTO"

@@ -1021,8 +1051,9 @@ 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-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"
              "DYNAMIC-SPACE-FREE-POINTER" "DYNAMIC-USAGE"

+            "EFFECTIVE-FIND-POSITION-TEST" "EFFECTIVE-FIND-POSITION-KEY"

              "ERROR-NUMBER-OR-LOSE"
              "FAILED-%WITH-ARRAY-DATA"
              "FDEFINITION-OBJECT"
              "ERROR-NUMBER-OR-LOSE"
              "FAILED-%WITH-ARRAY-DATA"
              "FDEFINITION-OBJECT"

@@ -1044,7 +1075,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "WIDETAG-OF"
              "HAIRY-DATA-VECTOR-REF" "HAIRY-DATA-VECTOR-SET" "HAIRY-TYPE"
              "HAIRY-TYPE-CHECK-TEMPLATE-NAME" "HAIRY-TYPE-SPECIFIER"
              "WIDETAG-OF"
              "HAIRY-DATA-VECTOR-REF" "HAIRY-DATA-VECTOR-SET" "HAIRY-TYPE"
              "HAIRY-TYPE-CHECK-TEMPLATE-NAME" "HAIRY-TYPE-SPECIFIER"

-             "HANDLE-CIRCULARITY" "IGNORE-IT"
+             "HANDLE-CIRCULARITY" "HOST" "IGNORE-IT"

              "ILL-BIN" "ILL-BOUT" "ILL-IN" "ILL-OUT"
              "INDEX-OR-MINUS-1"
              "INDEX-TOO-LARGE-ERROR"
              "ILL-BIN" "ILL-BOUT" "ILL-IN" "ILL-OUT"
              "INDEX-OR-MINUS-1"
              "INDEX-TOO-LARGE-ERROR"

@@ -1052,7 +1083,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"
              "*!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"
              "INTERNAL-ERROR" "INTERNAL-TIME"
              "INTERSECTION-TYPE" "INTERSECTION-TYPE-P"
              "INTERSECTION-TYPE-TYPES"

@@ -1061,28 +1093,37 @@ 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"
              "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"
+            "LEXENV" "LEXENV-DESIGNATOR"

              "LINE-LENGTH"
              "ANSI-STREAM"
              "ANSI-STREAM-BIN" "ANSI-STREAM-BOUT"
              "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-IN" "ANSI-STREAM-IN-BUFFER"
              "ANSI-STREAM-IN-INDEX"

+            "ANSI-STREAM-INPUT-STREAM-P"

              "ANSI-STREAM-MISC" "ANSI-STREAM-N-BIN"
              "ANSI-STREAM-MISC" "ANSI-STREAM-N-BIN"

+            "ANSI-STREAM-OPEN-STREAM-P"

              "ANSI-STREAM-OUT" "ANSI-STREAM-SOUT"
              "ANSI-STREAM-OUT" "ANSI-STREAM-SOUT"

-             "LIST-TO-SIMPLE-STRING*" "LIST-TO-BIT-VECTOR*"
+            "ANSI-STREAM-OUTPUT-STREAM-P"

              "LIST-TO-VECTOR*" 
              "LIST-TO-VECTOR*" 

-             "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"
+            "LOGICAL-HOST" "LOGICAL-HOST-DESIGNATOR"
+             #!+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"
              "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-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-INSTANCE"
             "MAKE-VALUE-CELL"
              "MAKE-SINGLE-FLOAT" "MAKE-SPECIALIZABLE-ARRAY"
              "%MAKE-INSTANCE"
             "MAKE-VALUE-CELL"

@@ -1092,7 +1133,9 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "MUTATOR-SELF"
              "NAMED-TYPE" "NAMED-TYPE-NAME" "NAMED-TYPE-P"
              "NATIVE-BYTE-ORDER" "NEGATE"
              "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"
              "NOT-<=-ERROR" "NOT-=-ERROR"
              "NOT-DUMPED-AT-ALL"
              "NUMERIC-CONTAGION" "NUMERIC-TYPE"

@@ -1104,7 +1147,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "OBJECT-NOT-COMPLEX-ERROR"
              "OBJECT-NOT-COMPLEX-FLOAT-ERROR"
              "OBJECT-NOT-COMPLEX-SINGLE-FLOAT-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
              "OBJECT-NOT-COMPLEX-DOUBLE-FLOAT-ERROR"
              "OBJECT-NOT-COMPLEX-RATIONAL-ERROR"
              ;; FIXME: It's confusing using "complex" to mean

@@ -1117,17 +1160,19 @@ 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-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-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-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-16-ERROR"
              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-2-ERROR"
              "OBJECT-NOT-SIMPLE-ARRAY-SINGLE-FLOAT-ERROR"
              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-16-ERROR"
              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-2-ERROR"

@@ -1151,21 +1196,25 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "PACKAGE-DOC-STRING"
              "PACKAGE-HASHTABLE-SIZE" "PACKAGE-HASHTABLE-FREE"
              "PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"
              "PACKAGE-DOC-STRING"
              "PACKAGE-HASHTABLE-SIZE" "PACKAGE-HASHTABLE-FREE"
              "PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"

-             "PARSE-DEFMACRO" "PARSE-LAMBDA-LIST" "PARSE-UNKNOWN-TYPE"
+             "PARSE-DEFMACRO" "PARSE-UNKNOWN-TYPE"

              "PARSE-UNKNOWN-TYPE-SPECIFIER" "PATHNAME-DESIGNATOR"
              "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"
              "PUNT-PRINT-IF-TOO-LONG"

-             "READER-PACKAGE-ERROR"
-             "SCALE-DOUBLE-FLOAT" "SCALE-LONG-FLOAT"
+             "READER-IMPOSSIBLE-NUMBER-ERROR" "READER-PACKAGE-ERROR"
+             "SCALE-DOUBLE-FLOAT"
+            #!+long-float "SCALE-LONG-FLOAT"

              "SCALE-SINGLE-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"
              "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-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-16-P"
              "SIMPLE-ARRAY-P"
              "SIMPLE-ARRAY-SINGLE-FLOAT-P"
              "SIMPLE-ARRAY-UNSIGNED-BYTE-16-P"

@@ -1180,15 +1229,15 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "SIMPLE-PACKAGE-ERROR"
              "SIMPLE-UNBOXED-ARRAY"
              "SINGLE-FLOAT-BITS" "SINGLE-FLOAT-EXPONENT"
              "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-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"
              "%INSTANCE-LENGTH"
              "%INSTANCE-REF" "%INSTANCE-SET"
              "SPECIFIER-TYPE" "STACK-REF"
              "STREAMLIKE" "STRINGABLE"
              "STRUCTURE-RAW-SLOT-TYPE-AND-SIZE"
              "%INSTANCE-LENGTH"
              "%INSTANCE-REF" "%INSTANCE-SET"

-             "STRING-TO-SIMPLE-STRING"

              "SYSTEM-AREA-CLEAR"
              "SYSTEM-AREA-COPY" "TWO-ARG-*"
              "TWO-ARG-+" "TWO-ARG--"
              "SYSTEM-AREA-CLEAR"
              "SYSTEM-AREA-COPY" "TWO-ARG-*"
              "TWO-ARG-+" "TWO-ARG--"

@@ -1218,8 +1267,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "VALUES-TYPE-P" "VALUES-TYPE-REQUIRED"
              "VALUES-TYPE-REST" "VALUES-TYPE-UNION"
              "VALUES-TYPES" "VALUES-TYPES-EQUAL-OR-INTERSECT" "VECTOR-T-P"
              "VALUES-TYPE-P" "VALUES-TYPE-REQUIRED"
              "VALUES-TYPE-REST" "VALUES-TYPE-UNION"
              "VALUES-TYPES" "VALUES-TYPES-EQUAL-OR-INTERSECT" "VECTOR-T-P"

-             "VECTOR-TO-VECTOR*" "VECTOR-TO-SIMPLE-STRING*"
-             "VECTOR-TO-BIT-VECTOR*" "VECTOR-TO-SIMPLE-BIT-VECTOR*"
+             "VECTOR-TO-VECTOR*"

              "VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH"
              "WITH-ARRAY-DATA"
              "WRONG-NUMBER-OF-INDICES-ERROR"
              "VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH"
              "WITH-ARRAY-DATA"
              "WRONG-NUMBER-OF-INDICES-ERROR"

@@ -1240,55 +1288,64 @@ 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"
              "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"
              "*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"

              "DD-RAW-LENGTH" "NOTE-NAME-DEFINED"
              "%CODE-CODE-SIZE" "DD-SLOTS"
              "DD-RAW-LENGTH" "NOTE-NAME-DEFINED"
              "%CODE-CODE-SIZE" "DD-SLOTS"

+            "DD-INCLUDE"

              "%IMAGPART" "DSD-ACCESSOR-NAME"
              "%CODE-DEBUG-INFO" "DSD-%NAME"
              "%IMAGPART" "DSD-ACCESSOR-NAME"
              "%CODE-DEBUG-INFO" "DSD-%NAME"

-             "LAYOUT-CLASS" "LAYOUT-INVALID"
+             "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"
              "%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"
              "%SET-INSTANCE-LAYOUT" "DD-DEFAULT-CONSTRUCTOR"
              "LAYOUT-OF" "%SIMPLE-FUN-SELF" "%REALPART"

-             "STRUCTURE-CLASS-P" "DSD-INDEX"
+             "STRUCTURE-CLASSOID-P" "DSD-INDEX"

              "%INSTANCE-LAYOUT" "LAYOUT-CLOS-HASH"
              "%SIMPLE-FUN-TYPE" "PROCLAIM-AS-FUN-NAME"
              "BECOME-DEFINED-FUN-NAME"
              "%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-READ-ONLY"

+            "DSD-DEFAULT"

              "LAYOUT-INHERITS" "DD-LENGTH" "%CODE-ENTRY-POINTS"
              "%DENOMINATOR"
              "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-SINGLE-FLOAT"

-             "RANDOM-PCL-CLASS" 
+             "RANDOM-PCL-CLASSOID" 

              "%FUNCALLABLE-INSTANCE-INFO" "RANDOM-CHUNK"
              "%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"
              "RANDOM-LAYOUT-CLOS-HASH"

-             "CLASS-PCL-CLASS" "FUNCALLABLE-STRUCTURE"
+             "CLASSOID-PCL-CLASS" "FUNCALLABLE-STRUCTURE"

              "FUNCALLABLE-INSTANCE-FUN"
              "%FUNCALLABLE-INSTANCE-LAYOUT"
              "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"
              "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"
 
              "%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"
+             "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
              "STD-COMPUTE-CLASS-PRECEDENCE-LIST"
 
              ;; symbols from former SB!CONDITIONS

@@ -1296,7 +1353,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "SHOW-CONDITION" "CASE-FAILURE"
              "NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET"
              "DESCRIBE-CONDITION"
              "SHOW-CONDITION" "CASE-FAILURE"
              "NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET"
              "DESCRIBE-CONDITION"

-             
+

              "!COLD-INIT" "!UNINTERN-INIT-ONLY-STUFF"
              "!GLOBALDB-COLD-INIT" "!FDEFN-COLD-INIT"
              "!TYPE-CLASS-COLD-INIT" "!TYPEDEFS-COLD-INIT"
              "!COLD-INIT" "!UNINTERN-INIT-ONLY-STUFF"
              "!GLOBALDB-COLD-INIT" "!FDEFN-COLD-INIT"
              "!TYPE-CLASS-COLD-INIT" "!TYPEDEFS-COLD-INIT"

@@ -1323,7 +1380,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              ;; in this package. -- WHN 19990911
              "STRING>=*" "STRING>*" "STRING=*"
              "STRING<=*" "STRING<*" "STRING/=*"
              ;; 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"
              "%SETELT" "%SET-ROW-MAJOR-AREF" "%SET-FILL-POINTER"
              "%SET-FDEFINITION" "%SCHARSET" "%SBITSET" "%RPLACD"
              "%RPLACA" "%PUT" "%CHARSET" "%BITSET" "%ASET"

@@ -1335,29 +1392,6 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
     :use ("CL")
     :export ())
 
     :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"))
-

  #s(sb-cold:package-data
     :name "SB!PCL"
     :doc
  #s(sb-cold:package-data
     :name "SB!PCL"
     :doc

@@ -1365,18 +1399,13 @@ 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."
 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")
+    :use ("CL" "SB!INT" "SB!EXT" "SB!WALKER" "SB!KERNEL")

     :import-from (("SB!KERNEL" "FUNCALLABLE-INSTANCE-P" "%FUN-DOC"
                    "PACKAGE-DOC-STRING"
                    "PACKAGE-HASHTABLE-SIZE" "PACKAGE-HASHTABLE-FREE"
                    "PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"))
     :import-from (("SB!KERNEL" "FUNCALLABLE-INSTANCE-P" "%FUN-DOC"
                    "PACKAGE-DOC-STRING"
                    "PACKAGE-HASHTABLE-SIZE" "PACKAGE-HASHTABLE-FREE"
                    "PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"))

+    ;; FIXME: should we now reexport CLASS and friends, too?
+    ;; Probably.  See if AMOP has a list of exported symbols.

     :reexport ("ADD-METHOD" "ALLOCATE-INSTANCE"
                "COMPUTE-APPLICABLE-METHODS"
                "ENSURE-GENERIC-FUNCTION"
     :reexport ("ADD-METHOD" "ALLOCATE-INSTANCE"
                "COMPUTE-APPLICABLE-METHODS"
                "ENSURE-GENERIC-FUNCTION"

@@ -1454,7 +1483,9 @@ definitely not guaranteed to be present in later versions of SBCL."
     :name "SB!PRETTY"
     :doc "private: implementation of pretty-printing"
     :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL")
     :name "SB!PRETTY"
     :doc "private: implementation of pretty-printing"
     :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL")

-    :export ("PRETTY-STREAM" "PRETTY-STREAM-P" "!PPRINT-COLD-INIT"))
+    :export ("OUTPUT-PRETTY-OBJECT"
+            "PRETTY-STREAM" "PRETTY-STREAM-P"
+            "!PPRINT-COLD-INIT"))

 
  #s(sb-cold:package-data
     :name "SB!PROFILE"
 
  #s(sb-cold:package-data
     :name "SB!PROFILE"

@@ -1483,19 +1514,17 @@ SB-KERNEL) have been undone, but probably more remain."
              "*STDERR*" "*STDIN*"
              "*STDOUT*" "*TASK-DATA*"
              "*TASK-NOTIFY*" "*TASK-SELF*" "*TTY*" "*TYPESCRIPTPORT*"
              "*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" 
              "ALLOCATE-SYSTEM-MEMORY"
              "BEEP" "BITS" 

-             "BYTES" "C-PROCEDURE" "CHECK<=" "CHECK="
+             "BYTES" "C-PROCEDURE"

              "COMPILER-VERSION"
              "DEALLOCATE-SYSTEM-MEMORY"
              "DEFAULT-INTERRUPT"
              "DEPORT-BOOLEAN" "DEPORT-INTEGER"
              "COMPILER-VERSION"
              "DEALLOCATE-SYSTEM-MEMORY"
              "DEFAULT-INTERRUPT"
              "DEPORT-BOOLEAN" "DEPORT-INTEGER"

-             "FROB-DO-BODY" "DOUBLE-FLOAT-RADIX"
+             "FROB-DO-BODY"

              "ENABLE-INTERRUPT" "ENUMERATION"
              "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"
              "FOREIGN-SYMBOL-ADDRESS" "FOREIGN-SYMBOL-ADDRESS-AS-INTEGER"
              "GET-PAGE-SIZE" "GET-SYSTEM-INFO"
              "IGNORE-INTERRUPT"

@@ -1504,11 +1533,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"
              "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER"
              "OBJECT-SET-OPERATION"
              "OS-COLD-INIT-OR-REINIT" "OS-CONTEXT-T" "OUTPUT-RAW-BYTES"

-             "PARSE-BODY" "POINTER"
-             "POINTER<" "POINTER>" "PORT" 
+             "POINTER" "POINTER<" "POINTER>"

              "READ-N-BYTES" "REALLOCATE-SYSTEM-MEMORY" "RECORD-SIZE"
              "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"
              "RESOLVE-LOADED-ASSEMBLER-REFERENCES"
              "SAP+" "SAP-" "SAP-INT"
              "SAP-REF-16" "SAP-REF-32" "SAP-REF-64" "SAP-REF-8"

@@ -1518,17 +1545,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"
              "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"
              "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"
              ;; 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"
              "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" "WITHOUT-GCING"

              "WITHOUT-INTERRUPTS" "WORDS"
              "ALLOCATE-SYSTEM-MEMORY-AT"
              "GET-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"))
              "WITHOUT-INTERRUPTS" "WORDS"
              "ALLOCATE-SYSTEM-MEMORY-AT"
              "GET-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"))

@@ -1546,7 +1570,7 @@ needed by the current implementation of SBCL, and makes
 no guarantees of interface stability."
     :use ("CL" "SB!ALIEN" "SB!EXT" "SB!INT" "SB!SYS")
     :export (;; wrappers around Unix stuff to give just what Lisp needs
 no guarantees of interface stability."
     :use ("CL" "SB!ALIEN" "SB!EXT" "SB!INT" "SB!SYS")
     :export (;; wrappers around Unix stuff to give just what Lisp needs

-            "UID-USERNAME"
+            "UID-USERNAME" "UID-HOMEDIR"

 
             ;; stuff with a one-to-one mapping to Unix constructs
             "D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN"
 
             ;; stuff with a one-to-one mapping to Unix constructs
             "D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN"

@@ -1706,9 +1730,12 @@ 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-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-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"

@@ -1767,13 +1794,18 @@ structure representations"
              "INSTANCE-SLOTS-OFFSET" "INSTANCE-USAGE"
              "INTERIOR-REG-SC-NUMBER" "INTERNAL-ERROR-ARGS"
              "INTERRUPTED-FLAG" "LIST-ALLOCATED-OBJECTS" "LIST-POINTER-LOWTAG"
              "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-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"
              "LOWTAG-LIMIT" "LOWTAG-MASK"
             "LRA-SAVE-OFFSET"
              "MEMORY-USAGE" "MOST-POSITIVE-COST"

@@ -1792,7 +1824,7 @@ structure representations"
              "PRIMITIVE-OBJECT-LOWTAG" "PRIMITIVE-OBJECT-NAME"
              "PRIMITIVE-OBJECT-OPTIONS" "PRIMITIVE-OBJECT-P"
              "PRIMITIVE-OBJECT-SIZE" "PRIMITIVE-OBJECT-SLOTS"
              "PRIMITIVE-OBJECT-LOWTAG" "PRIMITIVE-OBJECT-NAME"
              "PRIMITIVE-OBJECT-OPTIONS" "PRIMITIVE-OBJECT-P"
              "PRIMITIVE-OBJECT-SIZE" "PRIMITIVE-OBJECT-SLOTS"

-             "PRIMITIVE-OBJECT-VARIABLE-LENGTH" "PRINT-ALLOCATED-OBJECTS"
+             "PRIMITIVE-OBJECT-VARIABLE-LENGTH-P" "PRINT-ALLOCATED-OBJECTS"

              "RANDOM-IMMEDIATE-SC-NUMBER" "RATIO-DENOMINATOR-SLOT"
              "RATIO-NUMERATOR-SLOT" "RATIO-SIZE" "RATIO-WIDETAG"
              "*READ-ONLY-SPACE-FREE-POINTER*"
              "RANDOM-IMMEDIATE-SC-NUMBER" "RATIO-DENOMINATOR-SLOT"
              "RATIO-NUMERATOR-SLOT" "RATIO-SIZE" "RATIO-WIDETAG"
              "*READ-ONLY-SPACE-FREE-POINTER*"

@@ -1803,10 +1835,11 @@ structure representations"
              "SAP-STACK-SC-NUMBER" "SAP-WIDETAG"
              "SIGFPE-HANDLER" "SIGNED-REG-SC-NUMBER" "SIGNED-STACK-SC-NUMBER"
              "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-WIDETAG"
              "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-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-UNSIGNED-BYTE-2-WIDETAG"
              "SIMPLE-ARRAY-SINGLE-FLOAT-WIDETAG"
              "SIMPLE-ARRAY-WIDETAG" "SIMPLE-ARRAY-UNSIGNED-BYTE-16-WIDETAG"
              "SIMPLE-ARRAY-UNSIGNED-BYTE-2-WIDETAG"

@@ -1840,6 +1873,7 @@ structure representations"
              "BINDING-STACK-START" "BINDING-STACK-END" 
              "CONTROL-STACK-START" "CONTROL-STACK-END"
              "DYNAMIC-SPACE-START" "DYNAMIC-SPACE-END"
              "BINDING-STACK-START" "BINDING-STACK-END" 
              "CONTROL-STACK-START" "CONTROL-STACK-END"
              "DYNAMIC-SPACE-START" "DYNAMIC-SPACE-END"

+            #!+c-stack-is-control-stack "ALTERNATE-SIGNAL-STACK-START"

             #!-gencgc "DYNAMIC-0-SPACE-START" 
             #!-gencgc "DYNAMIC-0-SPACE-END" 
             #!-gencgc "DYNAMIC-1-SPACE-START" 
             #!-gencgc "DYNAMIC-0-SPACE-START" 
             #!-gencgc "DYNAMIC-0-SPACE-END" 
             #!-gencgc "DYNAMIC-1-SPACE-START"