X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=package-data-list.lisp-expr;h=40132733d5c4e14facf8a8135856221c0ec8409b;hb=b66385e2031fc2cac17dd129df0af400beb48a22;hp=eca3957da6e42a613cc0bf6a4dc1e8ca31f65060;hpb=54b330585ed41edeb93a289f0e59aec67fa9ded9;p=sbcl.git

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index eca3957..4013273 100644
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -665,7 +665,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                ;; weak pointers and finalization
                "CANCEL-FINALIZATION"
                "FINALIZE"
-               "HASH-TABLE-WEAK-P" "MAKE-WEAK-POINTER"
+               "HASH-TABLE-WEAKNESS" "MAKE-WEAK-POINTER"
                "WEAK-POINTER" "WEAK-POINTER-P" "WEAK-POINTER-VALUE"
 
                ;; If the user knows we're doing IEEE, he might reasonably
@@ -711,10 +711,9 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                ;; stepping interface
                "STEP-CONDITION" "STEP-FORM-CONDITION"
                "STEP-VALUES-CONDITION" "STEP-VARIABLE-CONDITION"
-               "STEP-CONDITION-FORM" "STEP-CONDITION-SOURCE-PATH"
-               "STEP-CONDITION-PATHNAME" "STEP-CONDITION-RESULT"
+               "STEP-CONDITION-FORM" "STEP-CONDITION-RESULT"
                "STEP-CONTINUE" "STEP-NEXT" "STEP-INTO"
-               "*STEPPER-HOOK*"
+               "STEP-CONDITION-ARGS" "*STEPPER-HOOK*" "STEP-OUT"
 
                ;; RUN-PROGRAM is not only useful for users, but also
                ;; useful to implement parts of SBCL itself, so we're
@@ -739,6 +738,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"))
@@ -1033,6 +1035,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"
@@ -1391,8 +1394,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,11 +1532,10 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "STANDARD-CLASSOID" "CLASSOID-OF"
                "MAKE-STANDARD-CLASSOID" "CLASSOID-CELL-TYPEP"
                "FIND-CLASSOID-CELL" "EXTRACT-FUN-TYPE"
-               "FUNCALLABLE-STRUCTURE-CLASSOID" "%RANDOM-DOUBLE-FLOAT"
+               "%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"
                "BUILT-IN-CLASSOID-DIRECT-SUPERCLASSES"
                "BUILT-IN-CLASSOID-TRANSLATION" "RANDOM-LAYOUT-CLOS-HASH"
@@ -1542,9 +1543,9 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "FUNCALLABLE-INSTANCE-FUN" "%FUNCALLABLE-INSTANCE-LAYOUT"
                "%SET-FUNCALLABLE-INSTANCE-LAYOUT"
                "BASIC-STRUCTURE-CLASSOID" "CLASSOID-CELL-CLASSOID"
-               "FUNCALLABLE-STRUCTURE-CLASSOID-P" "REGISTER-LAYOUT"
+               "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"
 
@@ -2282,7 +2283,8 @@ structure representations"
                "SINGLE-FLOAT-WIDETAG" "SINGLE-FLOAT-VALUE-SLOT"
                "SINGLE-INT-CARG-REG-SC-NUMBER"
                "SINGLE-REG-SC-NUMBER" "SINGLE-STACK-SC-NUMBER"
-               "SINGLE-STEP-BREAKPOINT-TRAP"
+               "SINGLE-STEP-AROUND-TRAP"
+               "SINGLE-STEP-BEFORE-TRAP"
                "SINGLE-VALUE-RETURN-BYTE-OFFSET" "SLOT-DOCS"
                "SLOT-LENGTH" "SLOT-NAME" "SLOT-OFFSET" "SLOT-OPTIONS"
                "SLOT-REST-P" "*STATIC-FUNS*" "STATIC-FUN-OFFSET"
@@ -2344,6 +2346,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"
@@ -2358,4 +2380,4 @@ SBCL itself"
                "INVALID-HANDLE" "MILLISLEEP" "PEEK-CONSOLE-INPUT"
                "PEEK-NAMED-PIPE" "READ-FILE" "WRITE-FILE"
 
-               "GET-PROCESS-TIMES")))
+               "GET-PROCESS-TIMES" "GET-VERSION-EX")))