X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=package-data-list.lisp-expr;h=40132733d5c4e14facf8a8135856221c0ec8409b;hb=b66385e2031fc2cac17dd129df0af400beb48a22;hp=c266fa761127e726da58a34b564b5a51f88ecd5d;hpb=0d48b1acdac8ebca4d3afd02e651c89ef676d922;p=sbcl.git diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr index c266fa7..4013273 100644 --- a/package-data-list.lisp-expr +++ b/package-data-list.lisp-expr @@ -221,6 +221,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "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 @@ -671,7 +665,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*." ;; weak pointers and finalization "CANCEL-FINALIZATION" "FINALIZE" - "HASH-TABLE-WEAK-P" "MAKE-WEAK-POINTER" + "HASH-TABLE-WEAKNESS" "MAKE-WEAK-POINTER" "WEAK-POINTER" "WEAK-POINTER-P" "WEAK-POINTER-VALUE" ;; If the user knows we're doing IEEE, he might reasonably @@ -717,10 +711,9 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*." ;; stepping interface "STEP-CONDITION" "STEP-FORM-CONDITION" "STEP-VALUES-CONDITION" "STEP-VARIABLE-CONDITION" - "STEP-CONDITION-FORM" "STEP-CONDITION-SOURCE-PATH" - "STEP-CONDITION-PATHNAME" "STEP-CONDITION-RESULT" + "STEP-CONDITION-FORM" "STEP-CONDITION-RESULT" "STEP-CONTINUE" "STEP-NEXT" "STEP-INTO" - "*STEPPER-HOOK*" + "STEP-CONDITION-ARGS" "*STEPPER-HOOK*" "STEP-OUT" ;; RUN-PROGRAM is not only useful for users, but also ;; useful to implement parts of SBCL itself, so we're @@ -745,6 +738,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 +784,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 +797,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 +817,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 +833,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 +855,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 +873,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 +886,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 +1029,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 +1172,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 +1182,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 +1394,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 +1460,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 +1532,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 +1543,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 +1587,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 +2093,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 +2180,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 +2203,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" @@ -2267,7 +2283,8 @@ structure representations" "SINGLE-FLOAT-WIDETAG" "SINGLE-FLOAT-VALUE-SLOT" "SINGLE-INT-CARG-REG-SC-NUMBER" "SINGLE-REG-SC-NUMBER" "SINGLE-STACK-SC-NUMBER" - "SINGLE-STEP-BREAKPOINT-TRAP" + "SINGLE-STEP-AROUND-TRAP" + "SINGLE-STEP-BEFORE-TRAP" "SINGLE-VALUE-RETURN-BYTE-OFFSET" "SLOT-DOCS" "SLOT-LENGTH" "SLOT-NAME" "SLOT-OFFSET" "SLOT-OPTIONS" "SLOT-REST-P" "*STATIC-FUNS*" "STATIC-FUN-OFFSET" @@ -2329,6 +2346,26 @@ structure representations" ;;"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" @@ -2341,4 +2378,6 @@ SBCL itself" "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"))) + "PEEK-NAMED-PIPE" "READ-FILE" "WRITE-FILE" + + "GET-PROCESS-TIMES" "GET-VERSION-EX")))