X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=package-data-list.lisp-expr;h=2058cdfd2a3ced2b266af6065a5a4a9ddbed9014;hb=d1e7b48b17180a417c41ed55eb382ebf6d4e7a2a;hp=9739983c74580ea771a4a5378bcfded638a6a1be;hpb=93be0089fe7b2a9e34bf1cb6da9fe6e902769f5e;p=sbcl.git diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr index 9739983..2058cdf 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" @@ -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,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*" @@ -640,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 @@ -745,6 +739,9 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*." ;; 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")) @@ -788,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*" @@ -798,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*" @@ -814,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" @@ -828,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 @@ -848,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" @@ -865,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" @@ -878,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" @@ -1019,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" @@ -1160,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" @@ -1170,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" @@ -1382,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" @@ -1449,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" @@ -1520,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" @@ -1532,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" @@ -1576,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" @@ -2081,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" @@ -2167,6 +2181,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 +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" @@ -2327,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")))