X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=package-data-list.lisp-expr;h=3746b0b79ee6aa781a8c1f334a2efa2c68e8387c;hb=d147d512602d761a2dcdfded506dd1a8f9a140dc;hp=9b6e890a6e882ff16cd9cf431fba5d18d3d2dc77;hpb=ce02ab2ecd9c6ae2e570abd8c93ebf3be55bbdad;p=sbcl.git

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 9b6e890..3746b0b 100644
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -632,14 +632,6 @@ Lisp extension proposal by David N. Gray"
 the stuff in here originated in CMU CL's EXTENSIONS package and is
 retained, possibly temporariliy, because it might be used internally."
     :use ("CL" "SB!ALIEN" "SB!C-CALL" "SB!SYS" "SB!GRAY")
-    ;; FIXME: RATIOP should probably not go through this package but be
-    ;; called directly from SB!KERNEL, unless it's implemented as
-    ;; TYPEP X 'RATIO in which case it doesn't need to be in SB!KERNEL.
-    ;; And BIGNUMP and FIXNUMP should probably just be in this package,
-    ;; even if they have low-level-optimized implementations. (Their
-    ;; *meanings* aren't low-level, even if their implementations are.)
-    :import-from (("SB!KERNEL" "BIGNUMP" "FIXNUMP" "RATIOP"))
-    :reexport ("BIGNUMP" "FIXNUMP" "RATIOP")
     :export ("*AFTER-SAVE-INITIALIZATIONS*" "*BEFORE-SAVE-INITIALIZATIONS*"
 
              "*ALL-MODIFIER-NAMES*"
@@ -678,22 +670,27 @@ retained, possibly temporariliy, because it might be used internally."
              "SIMPLE-PROGRAM-ERROR" "SIMPLE-STYLE-WARNING"
              "STYLE-WARN"
 
-             ;; miscellaneous non-standard but widely useful user-level
-             ;; functions..
+             ;; 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"
+
+             ;; miscellaneous non-standard but handy user-level functions..
              "ASSQ" "DELQ" "MEMQ" "POSQ" "NEQ"
 	     "%FIND-PACKAGE-OR-LOSE" "FIND-UNDELETED-PACKAGE-OR-LOSE"
              "SANE-PACKAGE"
              "CIRCULAR-LIST-P"
+             "SWAPPED-ARGS-FUN"
+             "ANY/TYPE" "EVERY/TYPE"
 
 	     ;; ..and macros..
              "COLLECT"
              "DO-ANONYMOUS" "DOHASH" "DOVECTOR"
              "NAMED-LET"
-             "LETF" "LETF*"
              "ONCE-ONLY"
              "DEFENUM"
              "DEFPRINTER"
-             "DEF!MACRO" "DEF!METHOD" "DEF!STRUCT" "DEF!TYPE"
+             "AVER"
 
              ;; ..and DEFTYPEs..
              "INDEX" 
@@ -705,6 +702,9 @@ retained, possibly temporariliy, because it might be used internally."
              "LONG-FLOATP"
              "SHORT-FLOATP"
              "SINGLE-FLOATP"
+             "FIXNUMP"
+             "BIGNUMP"
+             "RATIOP" 
 
              ;; encapsulation
              "ARGUMENT-LIST"
@@ -925,7 +925,8 @@ is a good idea, but see SB-SYS for blurring of boundaries."
              "CLOSED-FLAME"
              "CODE-COMPONENT" "CODE-COMPONENT-P"
              "CODE-DEBUG-INFO" "CODE-HEADER-REF" "CODE-HEADER-SET"
-             "CODE-INSTRUCTIONS" "COERCE-TO-BIT-VECTOR" "COERCE-TO-FUNCTION"
+             "CODE-INSTRUCTIONS"
+             "COERCE-TO-BIT-VECTOR" "COERCE-TO-FUNCTION"
              "COERCE-TO-LIST" "COERCE-TO-SIMPLE-STRING"
              "COERCE-TO-SIMPLE-VECTOR" "COERCE-TO-VECTOR"
              "*COLD-INIT-COMPLETE-P*"
@@ -1007,7 +1008,6 @@ is a good idea, but see SB-SYS for blurring of boundaries."
              "MAKE-NULL-LEXENV" "MAKE-NUMERIC-TYPE"
              "MAKE-SINGLE-FLOAT" "MAKE-SPECIALIZABLE-ARRAY"
              "%MAKE-INSTANCE"
-             "MAKE-UNION-TYPE-OR-SOMETHING" 
              "MAKE-VALUES-TYPE"
              "MAYBE-GC" "MEMBER-TYPE" "MEMBER-TYPE-MEMBERS"
              "MEMBER-TYPE-P" "MERGE-BITS"
@@ -1158,12 +1158,12 @@ is a good idea, but see SB-SYS for blurring of boundaries."
              "FSET" "RAW-DEFINITION"
              "INVOKE-MACROEXPAND-HOOK"
              "DEFAULT-STRUCTURE-PRINT"
-             "LAYOUT" "LAYOUT-LENGTH" "RATIOP" "FIXNUMP" "TARGET-FIXNUMP"
+             "LAYOUT" "LAYOUT-LENGTH"
              "LAMBDA-WITH-ENVIRONMENT" "LAYOUT-PURE" "DSD-RAW-TYPE"
              "%COMPILER-DEFSTRUCT"
              "%COMPILER-ONLY-DEFSTRUCT" "FUNCTION-%COMPILER-ONLY-DEFSTRUCT"
              "DEFSTRUCT-DESCRIPTION" "UNDEFINE-STRUCTURE"
-             "BIGNUMP" "DD-COPIER" "UNDEFINE-FUNCTION-NAME" "DD-TYPE"
+             "DD-COPIER" "UNDEFINE-FUNCTION-NAME" "DD-TYPE"
              "CLASS-STATE" "INSTANCE"
              "*TYPE-SYSTEM-INITIALIZED*" "WEAK-POINTER-P" "FIND-LAYOUT"
              "DSD-NAME" "%TYPEP" "DD-RAW-INDEX"