0.9.14.8:

[sbcl.git] / package-data-list.lisp-expr

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index c87ae89..ac421d6 100644 (file)
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -43,7 +43,6 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "UNION"  "VALUES" "*")
     :export ("ADDR"
              "ALIEN"
-             #!+win32 "ALIEN-FUNCALL-STDCALL"
              "ALIEN-FUNCALL" "ALIEN-SAP" "ALIEN-SIZE"
              "CAST" "C-STRING"
              "DEFINE-ALIEN-ROUTINE" "DEFINE-ALIEN-TYPE" "DEFINE-ALIEN-VARIABLE"
@@ -110,7 +109,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "COMPUTE-NATURALIZE-LAMBDA" "DEFINE-ALIEN-TYPE-CLASS"
                "DEFINE-ALIEN-TYPE-METHOD" "DEFINE-ALIEN-TYPE-TRANSLATOR" "DEPORT"
                "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN"
-               "ENTER-ALIEN-CALLBACK"
+               "*ENTER-ALIEN-CALLBACK*" "ENTER-ALIEN-CALLBACK"
                "EXTRACT-ALIEN-VALUE"
                "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM"
                "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN"
@@ -197,7 +196,6 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                  "SB!KERNEL" "SB!SYS")
       :reexport ("SLOT" "CODE-INSTRUCTIONS" "FLUSHABLE")
       :export ("%ALIEN-FUNCALL"
-               #!+win32 "%ALIEN-FUNCALL-STDCALL"
                "%CATCH-BREAKUP" "%CONTINUE-UNWIND"
                "%LISTIFY-REST-ARGS" "%MORE-ARG" "%MORE-ARG-VALUES"
                "%UNWIND-PROTECT-BREAKUP"
@@ -218,9 +216,12 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "*SETF-ASSUMED-FBOUNDP*"
                "*SUPPRESS-VALUES-DECLARATION*"
 
+               #!+x86 "SET-FPU-WORD-FOR-C"
+               #!+x86 "SET-FPU-WORD-FOR-LISP"
                "ALLOC-ALIEN-STACK-SPACE" "ALLOC-NUMBER-STACK-SPACE"
                "ALLOCATE-CODE-OBJECT" "ALLOCATE-FRAME"
                "ALLOCATE-DYNAMIC-CODE-OBJECT" "ALLOCATE-FULL-CALL-FRAME"
+               "ALWAYS-TRANSLATABLE"
                "ANY" "ARG-COUNT-ERROR" "ASSEMBLE-FILE"
                "ATTRIBUTES" "ATTRIBUTES-INTERSECTION" "ATTRIBUTES-UNION"
                "ATTRIBUTES=" "BIND"
@@ -538,6 +539,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                "INITIAL-FUN-CORE-ENTRY-TYPE-CODE"
                "*!LOAD-TIME-VALUES*"
                "LOAD-TYPE-PREDICATE"
+               #!+(and sb-thread sb-lutex) "LUTEX-TABLE-CORE-ENTRY-TYPE-CODE"
                "NEW-DIRECTORY-CORE-ENTRY-TYPE-CODE"
                "OPEN-FASL-OUTPUT" "PAGE-TABLE-CORE-ENTRY-TYPE-CODE"
                "READ-ONLY-CORE-SPACE-ID"
@@ -564,7 +566,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
       :use ("CL" "SB!ALIEN" "SB!INT" "SB!SYS" "SB!GRAY")
       :export ( ;; Information about how the program was invoked is
                ;; nonstandard but very useful.
-               "*POSIX-ARGV*"
+               "*POSIX-ARGV*" "*CORE-PATHNAME*"
                "POSIX-GETENV" "POSIX-ENVIRON"
 
                ;; People have various good reasons to mess with the GC.
@@ -788,6 +790,9 @@ retained, possibly temporariliy, because it might be used internally."
       :export (;; lambda list keyword extensions
                "&MORE"
 
+               ;; communication between the runtime and Lisp
+               "*CORE-STRING*"
+
                ;; INFO stuff doesn't belong in a user-visible package, we
                ;; should be able to change it without apology.
                "*INFO-ENVIRONMENT*"
@@ -798,6 +803,10 @@ retained, possibly temporariliy, because it might be used internally."
                "INFO"
                "MAKE-INFO-ENVIRONMENT"
 
+               ;; Constant form evaluation
+               "CONSTANT-FORM-VALUE"
+               "CONSTANT-TYPEP"
+
                ;; stepping control
                "*STEPPING*" "*STEP*"
 
@@ -814,7 +823,9 @@ retained, possibly temporariliy, because it might be used internally."
                "*SETF-FDEFINITION-HOOK*"
 
                ;; error-reporting facilities
-               "ENCAPSULATED-CONDITION" "COMPILED-PROGRAM-ERROR"
+               "COMPILED-PROGRAM-ERROR"
+               "ENCAPSULATED-CONDITION"
+               "INTERPRETED-PROGRAM-ERROR"
                "SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"
                "SIMPLE-PARSE-ERROR" "SIMPLE-PROGRAM-ERROR"
                "SIMPLE-STREAM-ERROR" "SIMPLE-STORAGE-CONDITION"
@@ -848,6 +859,7 @@ retained, possibly temporariliy, because it might be used internally."
                "MAKE-TRIVIAL-DEFAULT-PATHNAME"
                "PHYSICALIZE-PATHNAME"
                "SANE-DEFAULT-PATHNAME-DEFAULTS"
+               "SBCL-HOMEDIR-PATHNAME"
 
                ;; PCOUNTERs
                "FASTBIG-INCF-PCOUNTER-OR-FIXNUM"
@@ -878,6 +890,7 @@ retained, possibly temporariliy, because it might be used internally."
                "NTH-BUT-WITH-SANE-ARG-ORDER"
                "DEPRECATION-WARNING"
                "BIT-VECTOR-="
+               "READ-EVALUATED-FORM"
 
                ;; ..and macros..
                "COLLECT"
@@ -1019,6 +1032,7 @@ retained, possibly temporariliy, because it might be used internally."
                "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"
                "LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P"
@@ -1160,7 +1174,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "*CURRENT-LEVEL-IN-PRINT*"
                "*EMPTY-TYPE*" "*GC-INHIBIT*" "*GC-PENDING*"
                #!+sb-thread "*STOP-FOR-GC-PENDING*"
-               "*CONTROL-STACK-EXHAUSTION-SAP*" "*UNIVERSAL-TYPE*"
+               "*UNIVERSAL-TYPE*"
                "*UNIVERSAL-FUN-TYPE*" "*UNPARSE-FUN-TYPE-SIMPLIFY*"
                "*WILD-TYPE*" "WORD-LOGICAL-AND" "WORD-LOGICAL-ANDC1"
                "WORD-LOGICAL-ANDC2" "WORD-LOGICAL-EQV"
@@ -1170,7 +1184,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "ALIEN-TYPE-TYPE-ALIEN-TYPE" "ALIEN-TYPE-TYPE-P"
                "ALLOCATE-VECTOR" "ALLOCATE-STATIC-VECTOR"
                "ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
-               "COMPILER-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
+               "PROGRAM-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
                "DISABLED-PACKAGE-LOCKS"
                "WITH-SINGLE-PACKAGE-LOCKED-ERROR"
                "PACKAGE-ERROR-FORMAT-ARGUMENTS"
@@ -1576,6 +1590,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "!VM-TYPE-COLD-INIT" "!BACKQ-COLD-INIT"
                "!SHARPM-COLD-INIT" "!EARLY-PROCLAIM-COLD-INIT"
                "!LATE-PROCLAIM-COLD-INIT" "!CLASS-FINALIZE"
+               "!CONSTANTP-COLD-INIT"
 
                "GC-REINIT"
                "SIGNAL-COLD-INIT-OR-REINIT"
@@ -2167,6 +2182,8 @@ structure representations"
                "FUNCALLABLE-INSTANCE-LAYOUT-SLOT"
                "FUNCALLABLE-INSTANCE-LEXENV-SLOT"
                "GENCGC-PAGE-SIZE"
+               #!+ppc "PSEUDO-ATOMIC-INTERRUPTED-FLAG"
+               #!+ppc "PSEUDO-ATOMIC-FLAG"
                "GENESIS" "HALT-TRAP" "IGNORE-ME-SC-NUMBER"
                "IMMEDIATE-CHARACTER-SC-NUMBER" "IMMEDIATE-SAP-SC-NUMBER"
                "IMMEDIATE-SC-NUMBER" "*INITIAL-DYNAMIC-SPACE-FREE-POINTER*"
@@ -2188,6 +2205,7 @@ structure representations"
                #!+long-float "LONG-STACK-SC-NUMBER"
                "LOWTAG-LIMIT" "LOWTAG-MASK"
                "LRA-SAVE-OFFSET"
+               #!+(and sb-thread sb-lutex) "LUTEX-WIDETAG"
                "MEMORY-USAGE" "MOST-POSITIVE-COST"
                "N-LOWTAG-BITS"
                "N-FIXNUM-TAG-BITS"
@@ -2327,4 +2345,20 @@ structure representations"
                ;; These were exported from the original PCL version of this
                ;; package, but aren't used in SBCL.
                ;;"NESTED-WALK-FORM" "MACROEXPAND-ALL"
-               )))
+               ))
+
+   #!+win32
+   #s(sb-cold:package-data
+      :name "SB!WIN32"
+      :doc "private: a wrapper layer for Win32 functions needed by
+SBCL itself"
+      :use ("CL" "SB!ALIEN" "SB!EXT" "SB!INT" "SB!SYS")
+      :export ("BOOL"
+               "DWORD" "FD-CLEAR-INPUT" "FD-LISTEN"
+               "FLUSH-CONSOLE-INPUT-BUFFER" "FORMAT-MESSAGE"
+               "GET-LAST-ERROR" "GET-OSFHANDLE" "HANDLE"
+               "HANDLE-CLEAR-INPUT" "HANDLE-LISTEN" "INT-PTR"
+               "INVALID-HANDLE" "MILLISLEEP" "PEEK-CONSOLE-INPUT"
+               "PEEK-NAMED-PIPE" "READ-FILE" "WRITE-FILE"
+
+               "GET-PROCESS-TIMES")))