X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=package-data-list.lisp-expr;h=3db5059c2d7aaa409a02a6cb653c1dc2140b572d;hb=aa8c8cd473f1d487fa2c1a7490c78a59b9955bbe;hp=80006e6629b63a698ee0e7371ca0c37e14b34d0d;hpb=fec3614baf361523a4fb154ed80d9b73e1452b2d;p=sbcl.git diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr index 80006e6..3db5059 100644 --- 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" @@ -562,7 +564,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. @@ -786,6 +788,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*" @@ -796,6 +801,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*" @@ -812,7 +821,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" @@ -1114,7 +1125,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" @@ -1168,7 +1179,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" @@ -1247,6 +1258,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" @@ -1573,6 +1585,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" @@ -2164,6 +2177,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*" @@ -2307,6 +2322,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 +2339,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")))