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

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index e025c0d..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*"
@@ -524,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*"
@@ -673,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"
@@ -698,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"
 
@@ -724,7 +725,7 @@ 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
@@ -1088,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"
@@ -1183,13 +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"
 
-             ;; newly exported from former SB!CONDITIONS
+             ;; symbols from former SB!CONDITIONS
              "*HANDLER-CLUSTERS*" "*RESTART-CLUSTERS*"
              "SHOW-CONDITION" "CASE-FAILURE"
-             "NAMESTRING-PARSE-ERROR"
+             "NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET"
              "DESCRIBE-CONDITION"
              
-	     "!COLD-INIT"
+	     "!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"
@@ -1198,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"