0.9.9.30:

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

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 80006e6..c266fa7 100644 (file)
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -109,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"
@@ -216,6 +216,8 @@ 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"
@@ -1114,7 +1116,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%CHECK-BOUND" "%CHECK-VECTOR-SEQUENCE-BOUNDS"
                "%CLOSURE-FUN" "%CLOSURE-INDEX-REF" "%COS" "%COS-QUICK"
                "%COSH" "%DATA-VECTOR-AND-INDEX" "%DEPOSIT-FIELD"
-               "%DOUBLE-FLOAT" "%DPB" "%EXP" "%EXPM1" "%FIND-POSITION"
+               "%DOUBLE-FLOAT" "%DPB" "%EQL" "%EXP" "%EXPM1" "%FIND-POSITION"
                "%FIND-POSITION-VECTOR-MACRO" "%FIND-POSITION-IF"
                "%FIND-POSITION-IF-VECTOR-MACRO" "%FIND-POSITION-IF-NOT"
                "%FIND-POSITION-IF-NOT-VECTOR-MACRO" "%FUN-DOC"
@@ -1247,6 +1249,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "INTEGER-DECODE-DOUBLE-FLOAT"
                #!+long-float "INTEGER-DECODE-LONG-FLOAT"
                "INTEGER-DECODE-SINGLE-FLOAT" "INTERNAL-ERROR"
+               #!+win32 "HANDLE-WIN32-EXCEPTION"
                "INTERNAL-TIME" "INTERSECTION-TYPE" "INTERSECTION-TYPE-P"
                "INTERSECTION-TYPE-TYPES" "INVALID-ARG-COUNT-ERROR"
                "INVALID-ARRAY-INDEX-ERROR" "INVALID-UNWIND-ERROR"
@@ -2307,6 +2310,7 @@ structure representations"
                "WEAK-POINTER-VALUE-SLOT"
                "WORD" "N-WORD-BITS" "N-WORD-BYTES" "N-MACHINE-WORD-BITS"
                "WORD-REG-SC-NUMBER" "WORD-SHIFT"
+               #!+win32 "CONTEXT-RESTORE-TRAP"
                "ZERO-SC-NUMBER"))
 
    #s(sb-cold:package-data
@@ -2323,4 +2327,18 @@ 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")))