0.8.0.1:

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

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index a151110..54a7f27 100644 (file)
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -517,7 +517,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"
     :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*"
              ;; 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*"

@@ -617,6 +617,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
              ;; miscellaneous useful supported extensions
              "QUIT"
             "*MODULE-PROVIDER-FUNCTIONS*"
              ;; 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
             
              ;; RUN-PROGRAM is not only useful for users, but also
              ;; useful to implement parts of SBCL itself, so we're

@@ -737,6 +738,7 @@ retained, possibly temporariliy, because it might be used internally."
              "CYCLIC-LIST-P"
             "COMPOUND-OBJECT-P"
              "SWAPPED-ARGS-FUN"
              "CYCLIC-LIST-P"
             "COMPOUND-OBJECT-P"
              "SWAPPED-ARGS-FUN"

+             "AND/TYPE"

              "ANY/TYPE" "EVERY/TYPE"
             "EQUAL-BUT-NO-CAR-RECURSION"
              "TYPE-BOUND-NUMBER"
              "ANY/TYPE" "EVERY/TYPE"
             "EQUAL-BUT-NO-CAR-RECURSION"
              "TYPE-BOUND-NUMBER"

@@ -745,6 +747,7 @@ retained, possibly temporariliy, because it might be used internally."
              "%BREAK"
             "NTH-BUT-WITH-SANE-ARG-ORDER"
             "DEPRECATION-WARNING"
              "%BREAK"
             "NTH-BUT-WITH-SANE-ARG-ORDER"
             "DEPRECATION-WARNING"

+            "BIT-VECTOR-="

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

@@ -857,7 +860,7 @@ retained, possibly temporariliy, because it might be used internally."
              "UNIX-NAMESTRING" ; FIXME: perhaps belongs in package SB!UNIX
              "FEATUREP"
              "FLUSH-STANDARD-OUTPUT-STREAMS"
              "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"
              "ABOUT-TO-MODIFY-SYMBOL-VALUE"
             "SYMBOL-SELF-EVALUATING-P"
              "PRINT-PRETTY-ON-STREAM-P"

@@ -1040,6 +1043,7 @@ 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"
              "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"
              #!+long-float "DECODE-LONG-FLOAT"
             "DECODE-SINGLE-FLOAT"
              "DATA-VECTOR-REF" "DATA-VECTOR-SET" "DECODE-DOUBLE-FLOAT"
              #!+long-float "DECODE-LONG-FLOAT"
             "DECODE-SINGLE-FLOAT"

@@ -1124,16 +1128,18 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "MAKE-NULL-LEXENV" "MAKE-NULL-INTERACTIVE-LEXENV"
             "MAKE-NUMERIC-TYPE"
              "MAKE-SINGLE-FLOAT" "MAKE-SPECIALIZABLE-ARRAY"
              "MAKE-NULL-LEXENV" "MAKE-NULL-INTERACTIVE-LEXENV"
             "MAKE-NUMERIC-TYPE"
              "MAKE-SINGLE-FLOAT" "MAKE-SPECIALIZABLE-ARRAY"

+            "MAKE-UNPORTABLE-FLOAT"

              "%MAKE-INSTANCE"
             "MAKE-VALUE-CELL"
              "MAKE-VALUES-TYPE"
              "%MAKE-INSTANCE"
             "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"
             "NEGATION-TYPE" "NEGATION-TYPE-TYPE"
              "MEMBER-TYPE-P" "MERGE-BITS" "MODIFIED-NUMERIC-TYPE"
              "MUTATOR-SELF"
              "NAMED-TYPE" "NAMED-TYPE-NAME" "NAMED-TYPE-P"
              "NATIVE-BYTE-ORDER" "NEGATE"
             "NEGATION-TYPE" "NEGATION-TYPE-TYPE"

-             "NEVER-SUBTYPEP" "NIL-FUN-RETURNED-ERROR"
+             "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"

@@ -1170,6 +1176,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "OBJECT-NOT-SIMPLE-ARRAY-DOUBLE-FLOAT-ERROR"
              "OBJECT-NOT-SIMPLE-ARRAY-ERROR"
              #!+long-float "OBJECT-NOT-SIMPLE-ARRAY-LONG-FLOAT-ERROR"
              "OBJECT-NOT-SIMPLE-ARRAY-DOUBLE-FLOAT-ERROR"
              "OBJECT-NOT-SIMPLE-ARRAY-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"

@@ -1211,6 +1218,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-P"
              "SIMPLE-ARRAY-DOUBLE-FLOAT-P"
             #!+long-float "SIMPLE-ARRAY-LONG-FLOAT-P"
              "SIMPLE-ARRAY-COMPLEX-SINGLE-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"

@@ -1232,6 +1240,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "SPECIFIER-TYPE" "STACK-REF"
              "STREAMLIKE" "STRINGABLE"
              "STRUCTURE-RAW-SLOT-TYPE-AND-SIZE"
              "SPECIFIER-TYPE" "STACK-REF"
              "STREAMLIKE" "STRINGABLE"
              "STRUCTURE-RAW-SLOT-TYPE-AND-SIZE"

+            "SUB-GC"

              "%INSTANCE-LENGTH"
              "%INSTANCE-REF" "%INSTANCE-SET"
              "SYSTEM-AREA-CLEAR"
              "%INSTANCE-LENGTH"
              "%INSTANCE-REF" "%INSTANCE-SET"
              "SYSTEM-AREA-CLEAR"

@@ -1284,56 +1293,66 @@ 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"
+            "STRUCTURE-CLASSOID"

              "%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"
+
+            "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-DOUBLE-FLOAT"
             #!+long-float "%RANDOM-LONG-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"
+            "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
              "STD-COMPUTE-CLASS-PRECEDENCE-LIST"
 
              ;; symbols from former SB!CONDITIONS

@@ -1342,6 +1361,13 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET"
              "DESCRIBE-CONDITION"
 
              "NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET"
              "DESCRIBE-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"
              "!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"

@@ -1375,35 +1401,147 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "%ARRAY-TYPEP" "%SET-SAP-REF-DESCRIPTOR"))
 
  #s(sb-cold:package-data
              "%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" "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 ())
 
  #s(sb-cold:package-data
     :name "SB!LOOP"
     :doc "private: implementation details of LOOP"
     :use ("CL")
     :export ())
 
  #s(sb-cold:package-data

+    :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"
     :doc
 "semi-public: This package includes useful meta-object protocol
 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."
     :name "SB!PCL"
     :doc
 "semi-public: This package includes useful meta-object protocol
 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"
     :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"
     :export ("ADD-DEPENDENT"
              "ADD-DIRECT-METHOD"
              "ADD-DIRECT-SUBCLASS"

@@ -1418,21 +1556,28 @@ definitely not guaranteed to be present in later versions of SBCL."
              "CLASS-SLOTS"
              "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
              "COMPUTE-CLASS-PRECEDENCE-LIST"
              "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"
              "COMPUTE-DISCRIMINATING-FUNCTION"
              "COMPUTE-EFFECTIVE-METHOD"
              "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
              "COMPUTE-SLOTS"

+            "DIRECT-SLOT-DEFINITION"

              "DIRECT-SLOT-DEFINITION-CLASS"
              "DIRECT-SLOT-DEFINITION-CLASS"

+            "EFFECTIVE-SLOT-DEFINITION"

              "EFFECTIVE-SLOT-DEFINITION-CLASS"
              "ENSURE-CLASS"
              "ENSURE-CLASS-USING-CLASS"
              "ENSURE-GENERIC-FUNCTION-USING-CLASS"
              "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"
              "EXTRACT-LAMBDA-LIST"
              "EXTRACT-SPECIALIZER-NAMES"
              "FINALIZE-INHERITANCE"
              "FIND-METHOD-COMBINATION"

+            "FORWARD-REFERENCED-CLASS"
+            "FUNCALLABLE-STANDARD-CLASS"

              "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
              "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"

+            "FUNCALLABLE-STANDARD-OBJECT"

              "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
              "GENERIC-FUNCTION-DECLARATIONS"
              "GENERIC-FUNCTION-LAMBDA-LIST"
              "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
              "GENERIC-FUNCTION-DECLARATIONS"
              "GENERIC-FUNCTION-LAMBDA-LIST"

@@ -1452,8 +1597,9 @@ definitely not guaranteed to be present in later versions of SBCL."
              "REMOVE-DEPENDENT"
              "REMOVE-DIRECT-METHOD"
              "REMOVE-DIRECT-SUBCLASS"
              "REMOVE-DEPENDENT"
              "REMOVE-DIRECT-METHOD"
              "REMOVE-DIRECT-SUBCLASS"

-             "SET-FUNCALLABLE-INSTANCE-FUN"
+             "SET-FUNCALLABLE-INSTANCE-FUNCTION"

              "SLOT-BOUNDP-USING-CLASS"
              "SLOT-BOUNDP-USING-CLASS"

+            "SLOT-DEFINITION"

              "SLOT-DEFINITION-ALLOCATION"
              "SLOT-DEFINITION-INITARGS"
              "SLOT-DEFINITION-INITFORM"
              "SLOT-DEFINITION-ALLOCATION"
              "SLOT-DEFINITION-INITARGS"
              "SLOT-DEFINITION-INITFORM"

@@ -1465,9 +1611,16 @@ definitely not guaranteed to be present in later versions of SBCL."
              "SLOT-DEFINITION-TYPE"
              "SLOT-MAKUNBOUND-USING-CLASS"
              "SLOT-VALUE-USING-CLASS"
              "SLOT-DEFINITION-TYPE"
              "SLOT-MAKUNBOUND-USING-CLASS"
              "SLOT-VALUE-USING-CLASS"

-             "SPECIALIZER-DIRECT-GENERIC-FUNCTION"
+            "SPECIALIZER"
+             "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"

              "SPECIALIZER-DIRECT-METHODS"
              "SPECIALIZER-DIRECT-METHODS"

+            "STANDARD-ACCESSOR-METHOD"
+            "STANDARD-DIRECT-SLOT-DEFINITION"
+            "STANDARD-EFFECTIVE-SLOT-DEFINITION"

              "STANDARD-INSTANCE-ACCESS"
              "STANDARD-INSTANCE-ACCESS"

+            "STANDARD-READER-METHOD"
+            "STANDARD-SLOT-DEFINITION"
+            "STANDARD-WRITER-METHOD"

              "UPDATE-DEPENDENT"
              "VALIDATE-SUPERCLASS"
              "WRITER-METHOD-CLASS"))
              "UPDATE-DEPENDENT"
              "VALIDATE-SUPERCLASS"
              "WRITER-METHOD-CLASS"))

@@ -1739,7 +1892,6 @@ structure representations"
              "CONTEXT-PC" "CONTEXT-REGISTER"
              "CONTROL-STACK-SC-NUMBER" "COUNT-NO-OPS"
             "*CURRENT-CATCH-BLOCK*"
              "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"
              "CURRENT-FLOAT-TRAP" "DEFINE-FOR-EACH-PRIMITIVE-OBJECT"
              "DESCRIPTOR-REG-SC-NUMBER" "DESCRIPTOR-VS-NON-DESCRIPTOR-STORAGE"
              "DOUBLE-FLOAT-EXPONENT-BYTE" "DOUBLE-FLOAT-BIAS"

@@ -1832,6 +1984,7 @@ structure representations"
              "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-WIDETAG"
              "SIMPLE-ARRAY-DOUBLE-FLOAT-WIDETAG"
              #!+long-float "SIMPLE-ARRAY-LONG-FLOAT-WIDETAG"
              "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-WIDETAG"
              "SIMPLE-ARRAY-DOUBLE-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"

@@ -1862,8 +2015,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"
              "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" 
              "DYNAMIC-SPACE-START" "DYNAMIC-SPACE-END"
             #!+c-stack-is-control-stack "ALTERNATE-SIGNAL-STACK-START"
             #!-gencgc "DYNAMIC-0-SPACE-START"