X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=package-data-list.lisp-expr;h=ac421d6b522c7a971f3367b77347119d928c1cf4;hb=01e9e8c568777d6480699e6cb3947f38c3bed350;hp=c87ae89786a1407dcafe7291df11e1d1722cc7fb;hpb=7fb597b585fc715537ea644f7d84440eca217ca1;p=sbcl.git diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr index c87ae89..ac421d6 100644 --- 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")))