X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=package-data-list.lisp-expr;h=2058cdfd2a3ced2b266af6065a5a4a9ddbed9014;hb=d1e7b48b17180a417c41ed55eb382ebf6d4e7a2a;hp=083926cdf5be2cf1e6c6999c603d7ca395178752;hpb=0368c43d62d6746dd8a2cb634998b4587f28f015;p=sbcl.git diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr index 083926c..2058cdf 100644 --- a/package-data-list.lisp-expr +++ b/package-data-list.lisp-expr @@ -102,13 +102,14 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "ALIEN-VALUE" "ALIEN-VALUE-TYPE" "ALIEN-VALUE-SAP" "ALIEN-VALUE-P" "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P" - "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE" + "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "ALIEN-VOID-TYPE-P" + "COMPUTE-ALIEN-REP-TYPE" "COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA" "COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE" "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" @@ -215,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" @@ -247,6 +251,10 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "!DEF-PRIMITIVE-TYPE" "!DEF-PRIMITIVE-TYPE-ALIAS" "DEFINE-SOURCE-TRANSFORM" "!DEF-VM-SUPPORT-ROUTINE" "DEFINE-ASSEMBLY-ROUTINE" + "DEFINITION-SOURCE-LOCATION" + "DEFINITION-SOURCE-LOCATION-NAMESTRING" + "DEFINITION-SOURCE-LOCATION-TOPLEVEL-FORM-NUMBER" + "DEFINITION-SOURCE-LOCATION-PLIST" "DEFINE-MODULAR-FUN" "DEFINE-MOVE-FUN" "DEFINE-MOVE-VOP" "DEFINE-STORAGE-BASE" @@ -306,6 +314,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "SC-OFFSET-OFFSET" "SC-OFFSET-SCN" "SC-OR-LOSE" "SC-P" "SC-SB" "SET-UNWIND-PROTECT" "SET-VECTOR-SUBTYPE" "SETUP-CLOSURE-ENVIRONMENT" "SETUP-ENVIRONMENT" + "SOURCE-LOCATION" "SOURCE-TRANSFORM-LAMBDA" "SPECIFY-SAVE-TN" "TAIL-CALL" "TAIL-CALL-NAMED" @@ -363,7 +372,10 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "VM-SUPPORT-ROUTINES-GENERATE-CALL-SEQUENCE" "VM-SUPPORT-ROUTINES-GENERATE-RETURN-SEQUENCE" "VM-SUPPORT-ROUTINES-EMIT-NOP" - "VM-SUPPORT-ROUTINES-LOCATION-NUMBER")) + "VM-SUPPORT-ROUTINES-LOCATION-NUMBER" + + "WITH-SOURCE-LOCATION" + "*SOURCE-LOCATION-THUNKS*")) #s(sb-cold:package-data :name "SB!DEBUG" @@ -527,8 +539,9 @@ 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" + "OPEN-FASL-OUTPUT" "PAGE-TABLE-CORE-ENTRY-TYPE-CODE" "READ-ONLY-CORE-SPACE-ID" "*!REVERSED-COLD-TOPLEVELS*" "STATIC-CORE-SPACE-ID" @@ -553,12 +566,11 @@ 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. "*AFTER-GC-HOOKS*" - "*GC-NOTIFY-AFTER*" "*GC-NOTIFY-BEFORE*" "*GC-NOTIFY-STREAM*" "BYTES-CONSED-BETWEEN-GCS" "GC" "GC-OFF" "GC-ON" "GET-BYTES-CONSED" "*GC-RUN-TIME*" @@ -629,19 +641,12 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*." ;; a year or so it can go away completely. "DEF-SOURCE-CONTEXT" - ;; FIXME: These seem like the right thing, but are they - ;; consistent with ANSI? (And actually maybe they're not - ;; quite the right thing; it might be better to also do - ;; WITH-STANDARD-IO-SYNTAX or something.) - "*ERROR-PRINT-LENGTH*" "*ERROR-PRINT-LEVEL*" "*ERROR-PRINT-LINES*" - ;; extended declarations.. "FREEZE-TYPE" "INHIBIT-WARNINGS" "MAYBE-INLINE" ;; ..and variables to control compiler policy "*INLINE-EXPANSION-LIMIT*" - "*USE-IMPLEMENTATION-TYPES*" "*DERIVE-FUNCTION-TYPES*" ;; ..and inspector of compiler policy @@ -726,9 +731,17 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*." "PROCESS-PID" "PROCESS-PLIST" "PROCESS-PTY" "PROCESS-STATUS" "PROCESS-STATUS-HOOK" "PROCESS-WAIT" + ;; pathnames + "NATIVE-PATHNAME" + "PARSE-NATIVE-NAMESTRING" + "NATIVE-NAMESTRING" + ;; external-format support "OCTETS-TO-STRING" "STRING-TO-OCTETS" + ;; Whether to use the interpreter or the compiler for EVAL + "*EVALUATOR-MODE*" + ;; timer "TIMER" "MAKE-TIMER" "TIMER-NAME" "TIMER-SCHEDULED-P" "SCHEDULE-TIMER" "UNSCHEDULE-TIMER" "LIST-ALL-TIMERS")) @@ -772,6 +785,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*" @@ -782,6 +798,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*" @@ -798,7 +818,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" @@ -812,6 +834,8 @@ retained, possibly temporariliy, because it might be used internally." "CHARACTER-DECODING-ERROR" "CHARACTER-DECODING-ERROR-OCTETS" "CHARACTER-ENCODING-ERROR" "CHARACTER-ENCODING-ERROR-CODE" "STREAM-DECODING-ERROR" "STREAM-ENCODING-ERROR" + "C-STRING-ENCODING-ERROR" "C-STRING-ENCODING-ERROR-EXTERNAL-FORMAT" + "C-STRING-DECODING-ERROR" "C-STRING-DECODING-ERROR-EXTERNAL-FORMAT" "ATTEMPT-RESYNC" "FORCE-END-OF-FILE" ;; bootstrapping magic, to make things happen both in @@ -832,6 +856,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" @@ -849,7 +874,7 @@ retained, possibly temporariliy, because it might be used internally." "ADJUST-LIST" "%FIND-PACKAGE-OR-LOSE" "FIND-UNDELETED-PACKAGE-OR-LOSE" "SANE-PACKAGE" - "CYCLIC-LIST-P" + "MAYBE-CYCLIC-P" "COMPOUND-OBJECT-P" "SWAPPED-ARGS-FUN" "AND/TYPE" "NOT/TYPE" @@ -862,6 +887,8 @@ retained, possibly temporariliy, because it might be used internally." "NTH-BUT-WITH-SANE-ARG-ORDER" "DEPRECATION-WARNING" "BIT-VECTOR-=" + "READ-EVALUATED-FORM" + "MAKE-UNPRINTABLE-OBJECT" ;; ..and macros.. "COLLECT" @@ -1003,11 +1030,13 @@ 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" "POSITIVE-PRIMEP" "EVAL-IN-LEXENV" + "SIMPLE-EVAL-IN-LEXENV" "DEBUG-NAMIFY" "FORCE" "DELAY" "PROMISE-READY-P" "FIND-RESTART-OR-CONTROL-ERROR" @@ -1100,7 +1129,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" @@ -1144,7 +1173,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" @@ -1154,7 +1183,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" @@ -1233,6 +1262,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" @@ -1365,8 +1395,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS" "PARSE-DEFMACRO" "PARSE-UNKNOWN-TYPE" "PARSE-UNKNOWN-TYPE-SPECIFIER" "PATHNAME-DESIGNATOR" - #!+(or x86 x86-64) "*PSEUDO-ATOMIC-ATOMIC*" - #!+(or x86 x86-64) "*PSEUDO-ATOMIC-INTERRUPTED*" + #!+(or x86 x86-64) "*PSEUDO-ATOMIC-BITS*" "PUNT-PRINT-IF-TOO-LONG" "READER-IMPOSSIBLE-NUMBER-ERROR" "READER-PACKAGE-ERROR" "READER-EOF-ERROR" "RESTART-DESIGNATOR" @@ -1376,7 +1405,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "SCALE-SINGLE-FLOAT" "SEQUENCE-COUNT" "SEQUENCE-END" "SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE" "SET-ARRAY-HEADER" "SET-HEADER-DATA" "SHIFT-TOWARDS-END" - "SHIFT-TOWARDS-START" "SHRINK-VECTOR" + "SHIFT-TOWARDS-START" "SHRINK-VECTOR" "%SHRINK-VECTOR" ;; FIXME: 32/64-bit issues "SIGNED-BYTE-32-P" "SIGNED-BYTE-64-P" "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-P" @@ -1432,6 +1461,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "UNKNOWN-TYPE-SPECIFIER" "UNSEEN-THROW-TAG-ERROR" ;; FIXME: 32/64-bit issues "UNSIGNED-BYTE-32-P" "UNSIGNED-BYTE-64-P" + "UPDATE-OBJECT-LAYOUT-OR-INVALID" "VALUE-CELL-REF" "VALUE-CELL-SET" "VALUES-SPECIFIER-TYPE" "VALUES-SPECIFIER-TYPE-CACHE-CLEAR" "VALUES-SUBTYPEP" "VALUES-TYPE" "VALUES-TYPE-ERROR" "VALUES-TYPE-IN" @@ -1503,11 +1533,10 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "STANDARD-CLASSOID" "CLASSOID-OF" "MAKE-STANDARD-CLASSOID" "CLASSOID-CELL-TYPEP" "FIND-CLASSOID-CELL" "EXTRACT-FUN-TYPE" - "FUNCALLABLE-STRUCTURE-CLASSOID" "%RANDOM-DOUBLE-FLOAT" + "%RANDOM-DOUBLE-FLOAT" #!+long-float "%RANDOM-LONG-FLOAT" - "%RANDOM-SINGLE-FLOAT" "RANDOM-PCL-CLASSOID" + "%RANDOM-SINGLE-FLOAT" "STATIC-CLASSOID" "%FUNCALLABLE-INSTANCE-INFO" "RANDOM-CHUNK" "BIG-RANDOM-CHUNK" - "MAKE-FUNCALLABLE-STRUCTURE-CLASSOID" "LAYOUT-CLOS-HASH-MAX" "CLASSOID-CELL-NAME" "BUILT-IN-CLASSOID-DIRECT-SUPERCLASSES" "BUILT-IN-CLASSOID-TRANSLATION" "RANDOM-LAYOUT-CLOS-HASH" @@ -1515,9 +1544,9 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "FUNCALLABLE-INSTANCE-FUN" "%FUNCALLABLE-INSTANCE-LAYOUT" "%SET-FUNCALLABLE-INSTANCE-LAYOUT" "BASIC-STRUCTURE-CLASSOID" "CLASSOID-CELL-CLASSOID" - "FUNCALLABLE-STRUCTURE-CLASSOID-P" "REGISTER-LAYOUT" + "REGISTER-LAYOUT" "FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX" - "MAKE-RANDOM-PCL-CLASSOID" "INSTANCE-LAMBDA" + "MAKE-STATIC-CLASSOID" "INSTANCE-LAMBDA" "%FUNCALLABLE-INSTANCE-LEXENV" "%MAKE-SYMBOL" "%FUNCALLABLE-INSTANCE-FUN" "SYMBOL-HASH" @@ -1559,6 +1588,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" @@ -1591,7 +1621,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." #s(sb-cold:package-data :name "SB!THREAD" - :use ("CL" "SB!ALIEN" "SB!INT") + :use ("CL" "SB!ALIEN" "SB!INT" "SB!SYS") :doc "public (but low-level): native thread support" :export ("*CURRENT-THREAD*" "THREAD" "MAKE-THREAD" "THREAD-NAME" "THREAD-ALIVE-P" @@ -1883,7 +1913,11 @@ SB-KERNEL) have been undone, but probably more remain." "FOREIGN-SYMBOL-DATAREF-SAP" "GET-PAGE-SIZE" "GET-SYSTEM-INFO" "IGNORE-INTERRUPT" - "INT-SAP" "INVALIDATE-DESCRIPTOR" "IO-TIMEOUT" + "IN-INTERRUPTION" + "INT-SAP" + "INVALIDATE-DESCRIPTOR" + "INVOKE-INTERRUPTION" + "IO-TIMEOUT" "LIST-DYNAMIC-FOREIGN-SYMBOLS" "MACRO" "MAKE-FD-STREAM" "MAKE-OBJECT-SET" "MEMMOVE" "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER" @@ -2060,6 +2094,7 @@ structure representations" :export ("*ASSEMBLY-UNIT-LENGTH*" "*PRIMITIVE-OBJECTS*" "AFTER-BREAKPOINT-TRAP" + "*ALLOC-SIGNAL*" "ANY-REG-SC-NUMBER" "ARRAY-DATA-SLOT" "ARRAY-DIMENSIONS-OFFSET" "ARRAY-DISPLACED-P-SLOT" "ARRAY-DISPLACEMENT-SLOT" "ARRAY-ELEMENTS-SLOT" "ARRAY-FILL-POINTER-P-SLOT" @@ -2145,6 +2180,9 @@ structure representations" "SIMPLE-FUN-TYPE-SLOT" "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*" @@ -2166,6 +2204,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" @@ -2288,6 +2327,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 @@ -2304,4 +2344,40 @@ structure representations" ;; These were exported from the original PCL version of this ;; package, but aren't used in SBCL. ;;"NESTED-WALK-FORM" "MACROEXPAND-ALL" - ))) + )) + + #!+sb-eval + #s(sb-cold:package-data + :name "SB!EVAL" + :doc "internal: the evaluator implementation used to execute code without compiling it." + :use ("CL" "SB!KERNEL" "SB!EXT") + :export ("INTERPRETED-FUNCTION" + "INTERPRETED-FUNCTION-P" + "INTERPRETED-FUNCTION-NAME" + "INTERPRETED-FUNCTION-LAMBDA-LIST" + "INTERPRETED-FUNCTION-DOCUMENTATION" + "INTERPRETED-FUNCTION-BODY" + "INTERPRETED-FUNCTION-SOURCE-LOCATION" + "EVAL-IN-ENVIRONMENT" + "MAKE-NULL-ENVIRONMENT" + "EVAL-IN-NATIVE-ENVIRONMENT" + "PREPARE-FOR-COMPILE" + "COUNT-EVAL-CALLS" + "*EVAL-LEVEL*" + "*EVAL-CALLS*")) + + #!+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")))