X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=package-data-list.lisp-expr;h=7888052ba64e671432b10d50453681bf6b8f3395;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=e291d4b8238656512c22fa2ddf7922b6f9a54c7b;hpb=e8c27392f426b5ebe180fa07b220a9b650a49061;p=sbcl.git

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index e291d4b..7888052 100644
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -35,6 +35,7 @@
     :doc "private: stuff for implementing ALIENs and friends"
     :use ("CL")
     :export ("%CAST" "%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR"
+
              "%LOCAL-ALIEN-ADDR" "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN"
              "%SET-DEREF" "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT"
              "%SLOT-ADDR" "*VALUES-TYPE-OKAY*" "ALIEN-ARRAY-TYPE"
@@ -155,7 +156,7 @@
               "*BACKEND-T-PRIMITIVE-TYPE*"
 
               "*CODE-SEGMENT*" 
-              "*COMPILING-FOR-INTERPRETER*" "*CONVERTING-FOR-INTERPRETER*"
+              "*CONVERTING-FOR-INTERPRETER*"
               "*COUNT-VOP-USAGES*" "*ELSEWHERE*"
               "*FASL-HEADER-STRING-START-STRING*"
               "*FASL-HEADER-STRING-STOP-CHAR-CODE*"
@@ -256,7 +257,6 @@
               "BLOCK-NUMBER"
               "BACKEND"
               "BACKEND-BYTE-FASL-FILE-IMPLEMENTATION"
-              "BACKEND-BYTE-FASL-FILE-TYPE"
               "IR2-BLOCK-BLOCK"
               "DISASSEM-BYTE-COMPONENT"
               "FUNCALLABLE-INSTANCE-LEXENV"
@@ -330,10 +330,10 @@
 
  ;; FIXME: It seems to me that this could go away, with its contents moved
  ;; into SB!KERNEL, like the implementation of the rest of the class system.
- #s(sb-cold:package-data
-    :name "SB!CONDITIONS"
-    :doc "private: the implementation of the condition system"
-    :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL"))
+;; #s(sb-cold:package-data
+;;    :name "SB!CONDITIONS"
+;;    :doc "private: the implementation of the condition system"
+;;    :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL"))
 
  #s(sb-cold:package-data
     :name "SB!DEBUG"
@@ -525,9 +525,8 @@ like *STACK-TOP-HINT*"
              ;; now? -- WHN 19991206
 
              ;; extended declarations..
-             "CONSTANT-FUNCTION" "END-BLOCK" "FREEZE-TYPE"
-             "INHIBIT-WARNINGS"
-             "MAYBE-INLINE" "OPTIMIZE-INTERFACE" "START-BLOCK"
+             "FREEZE-TYPE" "INHIBIT-WARNINGS"
+             "MAYBE-INLINE" "OPTIMIZE-INTERFACE"
 
              ;; ..and variables to control compiler policy
              "*INLINE-EXPANSION-LIMIT*"
@@ -674,21 +673,33 @@ retained, possibly temporariliy, because it might be used internally."
              ;; rid of FDEFINITIONs entirely later.
              "*SETF-FDEFINITION-HOOK*"
 
-             ;; useful but non-standard user-level functions..
+             ;; non-standard but widely useful user-level functions..
              "ASSQ" "DELQ" "MEMQ"
 	     "%FIND-PACKAGE-OR-LOSE" "FIND-UNDELETED-PACKAGE-OR-LOSE"
              "SANE-PACKAGE"
              "CIRCULAR-LIST-P"
 
-	     ;; ..and macros
+	     ;; ..and macros..
              "COLLECT"
              "DO-ANONYMOUS" "DOHASH" "DOVECTOR"
              "ITERATE"
              "LETF" "LETF*"
              "ONCE-ONLY"
              "DEFENUM"
+             "DEFPRINTER"
              "DEF!MACRO" "DEF!METHOD" "DEF!STRUCT" "DEF!TYPE"
 
+             ;; ..and DEFTYPEs..
+             "INDEX" 
+
+             ;; ..and type predicates
+             "INSTANCEP"
+             "DOUBLE-FLOATP"
+             "LOGICAL-PATHNAME-P"
+             "LONG-FLOATP"
+             "SHORT-FLOATP"
+             "SINGLE-FLOATP"
+
              ;; encapsulation
              "ARGUMENT-LIST"
              "BASIC-DEFINITION"
@@ -699,17 +710,6 @@ retained, possibly temporariliy, because it might be used internally."
              "BELL-CHAR-CODE" "ESCAPE-CHAR-CODE" "FORM-FEED-CHAR-CODE"
              "RETURN-CHAR-CODE" "RUBOUT-CHAR-CODE" "TAB-CHAR-CODE"
 
-             ;; handy user-level/basically-portable DEFTYPEs
-             "INDEX" 
-
-             ;; nonstandard type predicates
-             "INSTANCEP"
-             "DOUBLE-FLOATP"
-             "LOGICAL-PATHNAME-P"
-             "LONG-FLOATP"
-             "SHORT-FLOATP"
-             "SINGLE-FLOATP"
-
              ;; symbol-hacking idioms
              "CONCAT-PNAMES" "KEYWORDICATE" "SYMBOLICATE"
 
@@ -725,13 +725,13 @@ retained, possibly temporariliy, because it might be used internally."
 
              ;; FIXME: Maybe this isn't used any more? And if it is,
              ;; it probably needs a better name, since SPECIAL things
-             ;; are so obnoxious in Common Lisp.
+             ;; are such a nice source of sneaky bugs.
              "E"
 
              ;; various internal defaults
              "*DEFAULT-PACKAGE-USE-LIST*"
              "DEFAULT-INIT-CHAR"
-             "*LOAD-SOURCE-TYPES*" "*LOAD-OBJECT-TYPES*"
+             "*LOAD-SOURCE-DEFAULT-TYPE*"
 
              ;; hash caches
              "DEFINE-HASH-CACHE"
@@ -1089,7 +1089,7 @@ is a good idea, but see SB-SYS for blurring of boundaries."
              "TYPE-DIFFERENCE" "TYPE-EXPAND"
              "TYPE-INTERSECT"
              "TYPE-INTERSECTION" "TYPE-SPECIFIER"
-             "*STANDARD-TYPE-NAMES*" "TYPE-UNION" "TYPE/=" "TYPE="
+             "TYPE-UNION" "TYPE/=" "TYPE="
              "TYPES-INTERSECT" "UNBOUND-SYMBOL-ERROR" "UNBOXED-ARRAY"
              "UNDEFINED-SYMBOL-ERROR" "UNION-TYPE" "UNION-TYPE-P"
              "UNION-TYPE-TYPES" "UNKNOWN-ERROR"
@@ -1184,7 +1184,13 @@ is a good idea, but see SB-SYS for blurring of boundaries."
              "SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"
              "SIMPLE-PROGRAM-ERROR" "SIMPLE-STYLE-WARNING" "STYLE-WARN"
 
-	     "!COLD-INIT"
+             ;; symbols from former SB!CONDITIONS
+             "*HANDLER-CLUSTERS*" "*RESTART-CLUSTERS*"
+             "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"
              "!ALIEN-TYPE-COLD-INIT" "!CLASSES-COLD-INIT"
@@ -1193,7 +1199,7 @@ is a good idea, but see SB-SYS for blurring of boundaries."
              "!READER-COLD-INIT"
              "STREAM-COLD-INIT-OR-RESET" "!LOADER-COLD-INIT"
              "!PACKAGE-COLD-INIT" "SIGNAL-COLD-INIT-OR-REINIT"
-             "!SET-SANE-COOKIE-DEFAULTS" "!VM-TYPE-COLD-INIT"
+   	     "!POLICY-COLD-INIT-OR-RESANIFY" "!VM-TYPE-COLD-INIT"
              "!BACKQ-COLD-INIT" "!SHARPM-COLD-INIT"
 	     "!CLASS-FINALIZE" "GC-COLD-INIT-OR-REINIT"