X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=package-data-list.lisp-expr;h=c27b7b92b07edcafcfe6997f812b2191e8b660e0;hb=96bb2dc76dddb1a21b3886fa7522796879e9ed9d;hp=f577d1177d15d718800fee00d6c4bff78032d600;hpb=4cb16425e2ffce3f70ad6ca10f0cde4f1545fa9d;p=sbcl.git

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index f577d11..c27b7b9 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"
@@ -1159,12 +1160,23 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                  "SB!EXT" "SB!FASL" "SB!INT" "SB!SYS" "SB!GRAY")
       :reexport ("DEF!STRUCT" "DEF!MACRO")
       :export ("%ACOS"
-               "%ACOSH" "%ARRAY-AVAILABLE-ELEMENTS" "%ARRAY-DATA-VECTOR"
+               "%ACOSH"
+               "%ADJOIN"
+               "%ADJOIN-EQ"
+               "%ADJOIN-KEY"
+               "%ADJOIN-KEY-EQ"
+               "%ADJOIN-KEY-TEST"
+               "%ADJOIN-KEY-TEST-NOT"
+               "%ADJOIN-TEST"
+               "%ADJOIN-TEST-NOT"
+               "%ARRAY-AVAILABLE-ELEMENTS" "%ARRAY-DATA-VECTOR"
                "%ARRAY-DIMENSION" "%ARRAY-DISPLACED-P"
                "%ARRAY-DISPLACEMENT" "%ARRAY-FILL-POINTER"
                "%ARRAY-FILL-POINTER-P" "%ARRAY-RANK"
                "%ASSOC"
+               "%ASSOC-EQ"
                "%ASSOC-KEY"
+               "%ASSOC-KEY-EQ"
                "%ASSOC-KEY-TEST"
                "%ASSOC-KEY-TEST-NOT"
                "%ASSOC-TEST"
@@ -1191,16 +1203,25 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%FUN-FUN"
                "%FUN-NAME"
                "%HYPOT" "%LDB" "%LOG" "%LOGB" "%LOG10"
+               "%LAST0"
+               "%LAST1"
+               "%LASTN/FIXNUM"
+               "%LASTN/BIGNUM"
                "%LOG1P"
                #!+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"
                "%MASK-FIELD"
                "%MEMBER"
+               "%MEMBER-EQ"
                "%MEMBER-KEY"
+               "%MEMBER-KEY-EQ"
                "%MEMBER-KEY-TEST"
                "%MEMBER-KEY-TEST-NOT"
                "%MEMBER-TEST"
@@ -1239,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*"
@@ -1373,7 +1396,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"
@@ -1537,6 +1560,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%INSTANCE-REF"
                "%INSTANCE-SET"
                "SYSTEM-AREA-CLEAR"
+               "TLS-EXHAUSTED-ERROR"
                "TWO-ARG-*" "TWO-ARG-+" "TWO-ARG--" "TWO-ARG-/"
                "TWO-ARG-/=" "TWO-ARG-<" "TWO-ARG-<=" "TWO-ARG-="
                "TWO-ARG->" "TWO-ARG->=" "TWO-ARG-AND" "TWO-ARG-EQV"
@@ -1628,19 +1652,24 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%OTHER-POINTER-P"
 
                "STANDARD-CLASSOID" "CLASSOID-OF"
-               "MAKE-STANDARD-CLASSOID" "CLASSOID-CELL-TYPEP"
+               "MAKE-STANDARD-CLASSOID"
+               "CLASSOID-CELL-CLASSOID"
+               "CLASSOID-CELL-NAME"
+               "CLASSOID-CELL-PCL-CLASS"
+               "CLASSOID-CELL-TYPEP"
+               "CLEAR-CLASSOID"
                "FIND-CLASSOID-CELL" "EXTRACT-FUN-TYPE"
                "%RANDOM-DOUBLE-FLOAT"
                #!+long-float "%RANDOM-LONG-FLOAT"
                "%RANDOM-SINGLE-FLOAT" "STATIC-CLASSOID"
                "%FUNCALLABLE-INSTANCE-INFO" "RANDOM-CHUNK" "BIG-RANDOM-CHUNK"
-               "LAYOUT-CLOS-HASH-LIMIT" "CLASSOID-CELL-NAME"
+               "LAYOUT-CLOS-HASH-LIMIT"
                "BUILT-IN-CLASSOID-DIRECT-SUPERCLASSES"
                "BUILT-IN-CLASSOID-TRANSLATION" "RANDOM-LAYOUT-CLOS-HASH"
                "CLASSOID-PCL-CLASS" "FUNCALLABLE-STRUCTURE"
                "FUNCALLABLE-INSTANCE-FUN" "%FUNCALLABLE-INSTANCE-LAYOUT"
                "%SET-FUNCALLABLE-INSTANCE-LAYOUT"
-               "BASIC-STRUCTURE-CLASSOID" "CLASSOID-CELL-CLASSOID"
+               "BASIC-STRUCTURE-CLASSOID"
                "REGISTER-LAYOUT"
                "FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX"
                "MAKE-STATIC-CLASSOID" "INSTANCE-LAMBDA"
@@ -2483,6 +2512,7 @@ structure representations"
                #!+linkage-table "LINKAGE-TABLE-SPACE-START"
                #!+linkage-table "LINKAGE-TABLE-SPACE-END"
                #!+linkage-table "LINKAGE-TABLE-ENTRY-SIZE"
+               "TLS-SIZE"
                "TRACE-TABLE-CALL-SITE"
                "TRACE-TABLE-FUN-EPILOGUE" "TRACE-TABLE-FUN-PROLOGUE"
                "TRACE-TABLE-NORMAL" "N-WIDETAG-BITS" "WIDETAG-MASK"
@@ -2525,6 +2555,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"
@@ -2537,8 +2568,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