X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=package-data-list.lisp-expr;h=9a00ffafa4ae13045a3414c64366b42c7220cdde;hb=1600081cf1b71b3d0e2e40de1c1c124a3a4fd40c;hp=833033a8a41b521f5c9c84fa881727db5f8472dc;hpb=23c0c48f562d7dc5d1615bf13cb831b46c91d106;p=sbcl.git

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 833033a..9a00ffa 100644
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -739,6 +739,9 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                ;; external-format support
                "OCTETS-TO-STRING" "STRING-TO-OCTETS"
 
+               ;; Whether to use the interpreter or the compiler for EVAL
+               "*EVALUATOR-MODE*"
+
                ;; timer
                "TIMER" "MAKE-TIMER" "TIMER-NAME" "TIMER-SCHEDULED-P"
                "SCHEDULE-TIMER" "UNSCHEDULE-TIMER" "LIST-ALL-TIMERS"))
@@ -831,6 +834,8 @@ retained, possibly temporariliy, because it might be used internally."
                "CHARACTER-DECODING-ERROR" "CHARACTER-DECODING-ERROR-OCTETS"
                "CHARACTER-ENCODING-ERROR" "CHARACTER-ENCODING-ERROR-CODE"
                "STREAM-DECODING-ERROR" "STREAM-ENCODING-ERROR"
+               "C-STRING-ENCODING-ERROR" "C-STRING-ENCODING-ERROR-EXTERNAL-FORMAT"
+               "C-STRING-DECODING-ERROR" "C-STRING-DECODING-ERROR-EXTERNAL-FORMAT"
                "ATTEMPT-RESYNC" "FORCE-END-OF-FILE"
 
                ;; bootstrapping magic, to make things happen both in
@@ -1031,6 +1036,7 @@ retained, possibly temporariliy, because it might be used internally."
                "LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P"
                "POSITIVE-PRIMEP"
                "EVAL-IN-LEXENV"
+               "SIMPLE-EVAL-IN-LEXENV"
                "DEBUG-NAMIFY"
                "FORCE" "DELAY" "PROMISE-READY-P"
                "FIND-RESTART-OR-CONTROL-ERROR"
@@ -1389,8 +1395,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"
                "PARSE-DEFMACRO" "PARSE-UNKNOWN-TYPE"
                "PARSE-UNKNOWN-TYPE-SPECIFIER" "PATHNAME-DESIGNATOR"
-               #!+(or x86 x86-64) "*PSEUDO-ATOMIC-ATOMIC*"
-               #!+(or x86 x86-64) "*PSEUDO-ATOMIC-INTERRUPTED*"
+               #!+(or x86 x86-64) "*PSEUDO-ATOMIC-BITS*"
                "PUNT-PRINT-IF-TOO-LONG" "READER-IMPOSSIBLE-NUMBER-ERROR"
                "READER-PACKAGE-ERROR" "READER-EOF-ERROR"
                "RESTART-DESIGNATOR"
@@ -1530,7 +1535,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "FIND-CLASSOID-CELL" "EXTRACT-FUN-TYPE"
                "FUNCALLABLE-STRUCTURE-CLASSOID" "%RANDOM-DOUBLE-FLOAT"
                #!+long-float "%RANDOM-LONG-FLOAT"
-               "%RANDOM-SINGLE-FLOAT" "RANDOM-PCL-CLASSOID"
+               "%RANDOM-SINGLE-FLOAT" "STATIC-CLASSOID"
                "%FUNCALLABLE-INSTANCE-INFO" "RANDOM-CHUNK" "BIG-RANDOM-CHUNK"
                "MAKE-FUNCALLABLE-STRUCTURE-CLASSOID"
                "LAYOUT-CLOS-HASH-MAX" "CLASSOID-CELL-NAME"
@@ -1542,7 +1547,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "BASIC-STRUCTURE-CLASSOID" "CLASSOID-CELL-CLASSOID"
                "FUNCALLABLE-STRUCTURE-CLASSOID-P" "REGISTER-LAYOUT"
                "FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX"
-               "MAKE-RANDOM-PCL-CLASSOID" "INSTANCE-LAMBDA"
+               "MAKE-STATIC-CLASSOID" "INSTANCE-LAMBDA"
                "%FUNCALLABLE-INSTANCE-LEXENV" "%MAKE-SYMBOL"
                "%FUNCALLABLE-INSTANCE-FUN" "SYMBOL-HASH"
 
@@ -2090,6 +2095,7 @@ structure representations"
       :export ("*ASSEMBLY-UNIT-LENGTH*"
                "*PRIMITIVE-OBJECTS*"
                "AFTER-BREAKPOINT-TRAP"
+               "*ALLOC-SIGNAL*"
                "ANY-REG-SC-NUMBER" "ARRAY-DATA-SLOT" "ARRAY-DIMENSIONS-OFFSET"
                "ARRAY-DISPLACED-P-SLOT" "ARRAY-DISPLACEMENT-SLOT"
                "ARRAY-ELEMENTS-SLOT" "ARRAY-FILL-POINTER-P-SLOT"
@@ -2341,6 +2347,26 @@ structure representations"
                ;;"NESTED-WALK-FORM" "MACROEXPAND-ALL"
                ))
 
+   #!+sb-eval
+   #s(sb-cold:package-data
+      :name "SB!EVAL"
+      :doc "internal: the evaluator implementation used to execute code without compiling it."
+      :use ("CL" "SB!KERNEL" "SB!EXT")
+      :export ("INTERPRETED-FUNCTION"
+               "INTERPRETED-FUNCTION-P"
+               "INTERPRETED-FUNCTION-NAME"
+               "INTERPRETED-FUNCTION-LAMBDA-LIST"
+               "INTERPRETED-FUNCTION-DOCUMENTATION"
+               "INTERPRETED-FUNCTION-BODY"
+               "INTERPRETED-FUNCTION-SOURCE-LOCATION"
+               "EVAL-IN-ENVIRONMENT"
+               "MAKE-NULL-ENVIRONMENT"
+               "EVAL-IN-NATIVE-ENVIRONMENT"
+               "PREPARE-FOR-COMPILE"
+               "COUNT-EVAL-CALLS"
+               "*EVAL-LEVEL*"
+               "*EVAL-CALLS*"))
+
    #!+win32
    #s(sb-cold:package-data
       :name "SB!WIN32"