"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"
"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"
"*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"
: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.
: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*"
"INFO"
"MAKE-INFO-ENVIRONMENT"
+ ;; Constant form evaluation
+ "CONSTANT-FORM-VALUE"
+ "CONSTANT-TYPEP"
+
;; stepping control
"*STEPPING*" "*STEP*"
"*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"
"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"
"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"
"!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"
"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*"
;; 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")))