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

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index e8b95e7..65fd2e2 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"
@@ -1067,7 +1068,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 +1210,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 +1259,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*"
@@ -1390,7 +1395,7 @@ 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"
@@ -2549,6 +2554,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 +2567,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