X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=package-data-list.lisp-expr;h=9174aca084ce1e03d0b2868425e5861041f45ab6;hb=f22ad70037030c07074327cf239bd84dc17b44b6;hp=e8b95e7f70e2a8af87134cccc389a35190cfa038;hpb=0bb093a109ec94a021e413bd0ae6ae7fdf54d774;p=sbcl.git

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index e8b95e7..9174aca 100644
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -334,6 +334,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "NOTE-FIXUP"
                "DEF-CASSER"
                "DEF-REFFER"
+               "EMIT-CONSTANT"
                "EMIT-NOP"
                "DEF-SETTER"
                "FIXED-ALLOC"
@@ -407,12 +408,12 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
       :doc "private: primitives used to write debuggers"
       :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!VM")
       :import-from (("SB!C"
-                     "DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME"
+                     "DEBUG-SOURCE-FORM" "DEBUG-SOURCE-NAMESTRING"
                      "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED"
                      "DEBUG-SOURCE-START-POSITIONS" "MAKE-DEBUG-SOURCE"
                      "DEBUG-SOURCE" "DEBUG-SOURCE-P"))
-      :reexport ("DEBUG-SOURCE-FROM"
-                 "DEBUG-SOURCE-NAME"
+      :reexport ("DEBUG-SOURCE-FORM"
+                 "DEBUG-SOURCE-NAMESTRING"
                  "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED"
                  "DEBUG-SOURCE-START-POSITIONS" "DEBUG-SOURCE"
                  "DEBUG-SOURCE-P")
@@ -929,6 +930,7 @@ possibly temporariliy, because it might be used internally."
                "BIT-VECTOR-="
                "READ-EVALUATED-FORM"
                "MAKE-UNPRINTABLE-OBJECT"
+               "POWER-OF-TWO-CEILING"
 
                ;; ..and macros..
                "COLLECT"
@@ -1067,7 +1069,6 @@ possibly temporariliy, because it might be used internally."
                "FLUSH-STANDARD-OUTPUT-STREAMS"
                "WITH-UNIQUE-NAMES" "MAKE-GENSYM-LIST"
                "ABOUT-TO-MODIFY-SYMBOL-VALUE"
-               "SYMBOL-SELF-EVALUATING-P"
                "SELF-EVALUATING-P"
                "PRINT-PRETTY-ON-STREAM-P"
                "ARRAY-READABLY-PRINTABLE-P"
@@ -1210,6 +1211,9 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                #!+long-float "%LONG-FLOAT"
                "%MAKE-COMPLEX" "%MAKE-FUNCALLABLE-INSTANCE"
                "%MAKE-RATIO" "%MAKE-LISP-OBJ"
+               "%MAKE-INSTANCE"
+               "%MAKE-STRUCTURE-INSTANCE"
+               "%MAKE-STRUCTURE-INSTANCE-ALLOCATOR"
                "%MAP" "%MAP-TO-SIMPLE-VECTOR-ARITY-1"
                "%MAP-TO-LIST-ARITY-1" "%MAP-TO-NIL-ON-SEQUENCE"
                "%MAP-TO-NIL-ON-SIMPLE-VECTOR" "%MAP-TO-NIL-ON-VECTOR"
@@ -1256,7 +1260,9 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%WITH-ARRAY-DATA/FP"
                "%WITH-ARRAY-DATA-MACRO"
                "*CURRENT-LEVEL-IN-PRINT*"
-               "*EMPTY-TYPE*" "*GC-INHIBIT*" "*GC-PENDING*"
+               "*EMPTY-TYPE*"
+               "*EVAL-CALLS*"
+               "*GC-INHIBIT*" "*GC-PENDING*"
                #!+sb-thread "*STOP-FOR-GC-PENDING*"
                "*UNIVERSAL-TYPE*"
                "*UNIVERSAL-FUN-TYPE*" "*UNPARSE-FUN-TYPE-SIMPLIFY*"
@@ -1369,7 +1375,9 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "LIST-SUBSEQ*"
                "ANSI-STREAM"
                "ANSI-STREAM-BIN" "ANSI-STREAM-BOUT" "ANSI-STREAM-CLOSE"
-               "ANSI-STREAM-ELEMENT-TYPE" "ANSI-STREAM-IN"
+               "ANSI-STREAM-ELEMENT-TYPE"
+               "ANSI-STREAM-FILE-POSITION"
+               "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-OPEN-STREAM-P"
@@ -1390,13 +1398,18 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "MAKE-MEMBER-TYPE" "MAKE-NAMED-TYPE" "MAKE-NULL-LEXENV"
                "MAKE-NUMERIC-TYPE"
                "MAKE-SINGLE-FLOAT" "MAKE-SPECIALIZABLE-ARRAY"
-               "MAKE-UNPORTABLE-FLOAT" "%MAKE-INSTANCE"
+               "MAKE-UNPORTABLE-FLOAT"
                "MAKE-SHORT-VALUES-TYPE" "MAKE-SINGLE-VALUE-TYPE"
                "MAKE-VALUE-CELL" "MAKE-VALUES-TYPE"
                "MAPC-MEMBER-TYPE-MEMBERS" "MAPCAR-MEMBER-TYPE-MEMBERS"
                "MEMBER-TYPE" "MEMBER-TYPE-MEMBERS" "MEMBER-TYPE-P"
                "MEMBER-TYPE-SIZE" "MERGE-BITS"
-               "MODIFIED-NUMERIC-TYPE" "MUTATOR-SELF" "NAMED-TYPE"
+               "MODIFIED-NUMERIC-TYPE"
+               "MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM"
+               "MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM"
+               "MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM"
+               "MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM"
+               "MUTATOR-SELF" "NAMED-TYPE"
                "NAMED-TYPE-NAME" "NAMED-TYPE-P" "NATIVE-BYTE-ORDER"
                "NEGATE" "NEGATION-TYPE" "NEGATION-TYPE-TYPE"
                "NEVER-SUBTYPEP" "NIL-ARRAY-ACCESSED-ERROR"
@@ -2549,6 +2562,7 @@ structure representations"
       :name "SB!EVAL"
       :doc "internal: the evaluator implementation used to execute code without compiling it."
       :use ("CL" "SB!KERNEL" "SB!EXT")
+      :reexport ("*EVAL-CALLS*")
       :export ("INTERPRETED-FUNCTION"
                "INTERPRETED-FUNCTION-P"
                "INTERPRETED-FUNCTION-NAME"
@@ -2561,8 +2575,7 @@ structure representations"
                "EVAL-IN-NATIVE-ENVIRONMENT"
                "PREPARE-FOR-COMPILE"
                "COUNT-EVAL-CALLS"
-               "*EVAL-LEVEL*"
-               "*EVAL-CALLS*"))
+               "*EVAL-LEVEL*"))
 
    #!+win32
    #s(sb-cold:package-data