"COMPILE-IN-LEXENV"
"COMPILE-LAMBDA-FOR-DEFUN"
"%COMPILER-DEFUN" "COMPILER-ERROR"
+ "COMPILER-NOTIFY"
+ "COMPILER-STYLE-WARN" "COMPILER-WARN"
"COMPONENT" "COMPONENT-HEADER-LENGTH"
"COMPONENT-INFO" "COMPONENT-LIVE-TN" "COMPUTE-FUN"
"COMPUTE-OLD-NFP" "COPY-MORE-ARG"
"MAKE-OTHER-IMMEDIATE-TYPE" "MAKE-RANDOM-TN"
"MAKE-REPRESENTATION-TN" "MAKE-RESTRICTED-TN" "MAKE-SC-OFFSET"
"MAKE-STACK-POINTER-TN" "MAKE-TN-REF" "MAKE-UNWIND-BLOCK"
- "MAKE-WIRED-TN" "MAYBE-COMPILER-NOTE"
+ "MAKE-WIRED-TN" "MAYBE-COMPILER-NOTIFY"
"MAYBE-INLINE-SYNTACTIC-CLOSURE"
"META-PRIMITIVE-TYPE-OR-LOSE"
"META-SB-OR-LOSE" "META-SC-NUMBER-OR-LOSE" "META-SC-OR-LOSE"
"SC-OFFSET-OFFSET" "SC-OFFSET-SCN" "SC-OR-LOSE" "SC-P" "SC-SB"
"SET-UNWIND-PROTECT" "SET-VECTOR-SUBTYPE"
"SETUP-CLOSURE-ENVIRONMENT" "SETUP-ENVIRONMENT"
- "SPECIFY-SAVE-TN" "INSTANCE-REF"
- "INSTANCE-SET" "TAIL-CALL" "TAIL-CALL-NAMED"
+ "SOURCE-TRANSFORM-LAMBDA"
+ "SPECIFY-SAVE-TN"
+ "TAIL-CALL" "TAIL-CALL-NAMED"
"TAIL-CALL-VARIABLE" "TEMPLATE-OR-LOSE"
"TN" "TN-OFFSET" "TN-P" "TN-REF" "TN-REF-ACROSS" "TN-REF-LOAD-TN"
"TN-REF-NEXT" "TN-REF-NEXT-REF" "TN-REF-P" "TN-REF-TARGET"
;; symbols in package COMMON-LISP. Lots of these symbols are accessed
;; with explicit SB!IMPL:: prefixes in the code. It would be nice to
;; reduce the use of this practice, so if symbols from here which are
- ;; accessed that way are found to belong more appropriately in
- ;; an existing package (e.g. KERNEL or SYS or EXT or FASL), I
- ;; (WHN 19990223) encourage maintainers to move them there..
- ;;
- ;; ..except that it's getting so big and crowded that maybe it should
- ;; be split up, too.
+ ;; accessed that way are found to belong more appropriately in an
+ ;; existing package (e.g. SB!KERNEL or SB!SYS or SB!EXT or SB!FASL),
+ ;; I (WHN 19990223) encourage maintainers to move them there..
#s(sb-cold:package-data
:name "SB!IMPL"
:doc "private: a grab bag of implementation details"
:export (;; Information about how the program was invoked is
;; nonstandard but very useful.
"*POSIX-ARGV*" "POSIX-GETENV" "POSIX-ENVIRON"
-
+
;; People have various good reasons to mess with the GC.
"*AFTER-GC-HOOKS*" "*BEFORE-GC-HOOKS*"
"*GC-NOTIFY-AFTER*" "*GC-NOTIFY-BEFORE*" "*GC-NOTIFY-STREAM*"
;; error reporting, we have
"DEFINE-SOURCE-CONTEXT"
+ ;; and given how many users dislike strict treatment of
+ ;; DEFCONSTANT, let's give them enough rope to escape by
+ "DEFCONSTANT-UNEQL" "DEFCONSTANT-UNEQL-NAME"
+ "DEFCONSTANT-UNEQL-NEW-VALUE" "DEFCONSTANT-UNEQL-OLD-VALUE"
+
+ ;; conditions that can be handled to reduce compiler
+ ;; verbosity
+ "COMPILER-NOTE"
+
;; FIXME: This name doesn't match the DEFFOO - vs. -
;; DEFINE-FOO convention used in the ANSI spec, and so
;; was deprecated in sbcl-0.pre7, ca. 2001-12-12. After
;; miscellaneous useful supported extensions
"QUIT"
"*MODULE-PROVIDER-FUNCTIONS*"
+ "WITH-TIMEOUT" "TIMEOUT"
;; RUN-PROGRAM is not only useful for users, but also
;; useful to implement parts of SBCL itself, so we're
;; return a PROCESS object with operations defined on
;; that object.
"RUN-PROGRAM"
+ "FIND-EXECUTABLE-IN-SEARCH-PATH"
"PROCESS-ALIVE-P" "PROCESS-CLOSE"
"PROCESS-CORE-DUMPED" "PROCESS-ERROR" "PROCESS-EXIT-CODE"
"PROCESS-INPUT" "PROCESS-KILL" "PROCESS-OUTPUT" "PROCESS-P"
"SIMPLE-PROGRAM-ERROR" "SIMPLE-STREAM-ERROR"
"SIMPLE-STYLE-WARNING"
"SPECIAL-FORM-FUNCTION"
- "STYLE-WARN"
-
+ "STYLE-WARN" "SIMPLE-COMPILER-NOTE"
+
;; bootstrapping magic, to make things happen both in
;; the cross-compilation host compiler's environment and
;; in the cross-compiler's environment
;; miscellaneous non-standard but handy user-level functions..
"ASSQ" "DELQ" "MEMQ" "POSQ" "NEQ"
+ "ADJUST-LIST"
"%FIND-PACKAGE-OR-LOSE" "FIND-UNDELETED-PACKAGE-OR-LOSE"
"SANE-PACKAGE"
"CYCLIC-LIST-P"
"COMPOUND-OBJECT-P"
"SWAPPED-ARGS-FUN"
- "AND/TYPE"
+ "AND/TYPE" "NOT/TYPE"
"ANY/TYPE" "EVERY/TYPE"
"EQUAL-BUT-NO-CAR-RECURSION"
"TYPE-BOUND-NUMBER"
"INDEX" "LOAD/STORE-INDEX"
"SIGNED-BYTE-WITH-A-BITE-OUT"
"UNSIGNED-BYTE-WITH-A-BITE-OUT"
+ "SFUNCTION"
;; ..and type predicates
"INSTANCEP"
"DOUBLE-FLOAT-P"
"C-STRINGS->STRING-LIST"
;; misc. utilities used internally
+ "DEFINE-FUNCTION-NAME-SYNTAX" "VALID-FUNCTION-NAME-P" ; should be SB!EXT?
"LEGAL-FUN-NAME-P" "LEGAL-FUN-NAME-OR-TYPE-ERROR"
"FUN-NAME-BLOCK-NAME"
"FUN-NAME-INLINE-EXPANSION"
"PROPER-LIST-OF-LENGTH-P"
"LIST-OF-LENGTH-AT-LEAST-P"
"LIST-WITH-LENGTH-P"
+ "SINGLETON-P"
"READ-SEQUENCE-OR-DIE"
"RENAME-KEY-ARGS"
"MISSING-ARG"
"UNIX-NAMESTRING" ; FIXME: perhaps belongs in package SB!UNIX
"FEATUREP"
"FLUSH-STANDARD-OUTPUT-STREAMS"
- "MAKE-GENSYM-LIST"
+ "WITH-UNIQUE-NAMES" "MAKE-GENSYM-LIST"
"ABOUT-TO-MODIFY-SYMBOL-VALUE"
"SYMBOL-SELF-EVALUATING-P"
"PRINT-PRETTY-ON-STREAM-P"
"POSITIVE-PRIMEP"
"EVAL-IN-LEXENV"
"DEBUG-NAMIFY"
+ "FORCE" "DELAY" "PROMISE-READY-P"
;; These could be moved back into SB!EXT if someone has
;; compelling reasons, but hopefully we can get by
"CODE-DEBUG-INFO" "CODE-HEADER-REF" "CODE-HEADER-SET"
"CODE-INSTRUCTIONS"
"COERCE-TO-FUN" "COERCE-TO-LEXENV"
- "COERCE-TO-LIST" "COERCE-TO-VECTOR"
+ "COERCE-TO-LIST" "COERCE-TO-VALUES"
+ "COERCE-TO-VECTOR"
"*COLD-INIT-COMPLETE-P*"
"COMPLEX-DOUBLE-FLOAT-P"
"COMPLEX-FLOAT-P"
"COPY-BYTE-VECTOR-TO-SYSTEM-AREA"
"CSUBTYPEP" "CTYPE" "TYPE-HASH-VALUE"
"CTYPE-OF" "CTYPE-P" "CTYPEP" "CURRENT-FP" "CURRENT-SP"
+ "CURRENT-DYNAMIC-SPACE-START"
"DATA-VECTOR-REF" "DATA-VECTOR-SET" "DECODE-DOUBLE-FLOAT"
#!+long-float "DECODE-LONG-FLOAT"
"DECODE-SINGLE-FLOAT"
"FLOAT-EXPONENT" "FLOAT-FORMAT-DIGITS" "FLOAT-FORMAT-NAME"
"FLOAT-FORMAT-MAX" "FLOATING-POINT-EXCEPTION"
"FORM" "*FREE-INTERRUPT-CONTEXT-INDEX*" "FUNCALLABLE-INSTANCE-P"
- "FUN-CODE-HEADER"
+ "FUN-CODE-HEADER"
"FUN-TYPE" "FUN-TYPE-ALLOWP"
"FUN-TYPE-KEYP" "FUN-TYPE-KEYWORDS"
"FUN-TYPE-NARGS" "FUN-TYPE-OPTIONAL"
"FUN-TYPE-P"
"FUN-TYPE-REQUIRED" "FUN-TYPE-REST"
"FUN-TYPE-RETURNS" "FUN-TYPE-WILD-ARGS"
- "FUN-WORD-OFFSET" "GET-CLOSURE-LENGTH"
+ "FUN-WORD-OFFSET"
+ "GENERALIZED-BOOLEAN"
+ "GET-CLOSURE-LENGTH"
"GET-HEADER-DATA"
"GET-LISP-OBJ-ADDRESS" "LOWTAG-OF"
"WIDETAG-OF"
"MAKE-NULL-LEXENV" "MAKE-NULL-INTERACTIVE-LEXENV"
"MAKE-NUMERIC-TYPE"
"MAKE-SINGLE-FLOAT" "MAKE-SPECIALIZABLE-ARRAY"
+ "MAKE-UNPORTABLE-FLOAT"
"%MAKE-INSTANCE"
+ "MAKE-SHORT-VALUES-TYPE"
+ "MAKE-SINGLE-VALUE-TYPE"
"MAKE-VALUE-CELL"
"MAKE-VALUES-TYPE"
- "MAYBE-GC" "MEMBER-TYPE" "MEMBER-TYPE-MEMBERS"
+ "MEMBER-TYPE" "MEMBER-TYPE-MEMBERS"
"MEMBER-TYPE-P" "MERGE-BITS" "MODIFIED-NUMERIC-TYPE"
"MUTATOR-SELF"
"NAMED-TYPE" "NAMED-TYPE-NAME" "NAMED-TYPE-P"
"SPECIFIER-TYPE" "STACK-REF"
"STREAMLIKE" "STRINGABLE"
"STRUCTURE-RAW-SLOT-TYPE-AND-SIZE"
+ "SUB-GC"
"%INSTANCE-LENGTH"
"%INSTANCE-REF" "%INSTANCE-SET"
"SYSTEM-AREA-CLEAR"
- "SYSTEM-AREA-COPY" "TWO-ARG-*"
+ "SYSTEM-AREA-COPY"
+ "TWO-ARG-*"
"TWO-ARG-+" "TWO-ARG--"
"TWO-ARG-/" "TWO-ARG-/=" "TWO-ARG-<"
"TWO-ARG-<=" "TWO-ARG-="
"TYPE-DIFFERENCE" "TYPE-EXPAND"
"TYPE-INTERSECTION" "TYPE-INTERSECTION2"
"TYPE-APPROX-INTERSECTION2"
+ "TYPE-SINGLE-VALUE-P"
"TYPE-SPECIFIER" "TYPE-UNION" "TYPE/=" "TYPE="
"TYPES-EQUAL-OR-INTERSECT"
"UNBOUND-SYMBOL-ERROR" "UNBOXED-ARRAY"
"VALUES-SPECIFIER-TYPE"
"VALUES-SPECIFIER-TYPE-CACHE-CLEAR" "VALUES-SUBTYPEP"
"VALUES-TYPE"
- "VALUES-TYPE-INTERSECTION" "VALUES-TYPE-KEYP"
- "VALUES-TYPE-KEYWORDS" "VALUES-TYPE-OPTIONAL"
+ "VALUES-TYPE-ERROR"
+ "VALUES-TYPE-INTERSECTION"
+ "VALUES-TYPE-OPTIONAL"
"VALUES-TYPE-P" "VALUES-TYPE-REQUIRED"
"VALUES-TYPE-REST" "VALUES-TYPE-UNION"
- "VALUES-TYPES" "VALUES-TYPES-EQUAL-OR-INTERSECT" "VECTOR-T-P"
+ "VALUES-TYPE-TYPES" "VALUES-TYPES"
+ "VALUES-TYPE-START"
+ "VALUES-TYPES-EQUAL-OR-INTERSECT" "VECTOR-T-P"
"VECTOR-TO-VECTOR*"
"VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH"
"WITH-ARRAY-DATA"
"*TYPE-SYSTEM-INITIALIZED*" "FIND-LAYOUT"
"DSD-NAME" "%TYPEP" "DD-RAW-INDEX"
"DD-NAME" "CLASSOID-SUBCLASSES"
- "CLASSOID-LAYOUT" "CLASSOID-NAME"
+ "CLASSOID-LAYOUT" "CLASSOID-NAME" "CLASSOID-P"
"DD-RAW-LENGTH" "NOTE-NAME-DEFINED"
"%CODE-CODE-SIZE" "DD-SLOTS"
- "DD-INCLUDE"
+ "DD-INCLUDE" "SLOT-SETTER-LAMBDA-FORM"
"%IMAGPART" "DSD-ACCESSOR-NAME"
- "%CODE-DEBUG-INFO" "DSD-%NAME"
+ "%CODE-DEBUG-INFO"
"LAYOUT-CLASSOID" "LAYOUT-INVALID"
"%SIMPLE-FUN-NAME" "DSD-TYPE" "%INSTANCEP"
"DEFSTRUCT-SLOT-DESCRIPTION" "%SIMPLE-FUN-ARGLIST"
"%FUNCALLABLE-INSTANCE-FUN" "SYMBOL-HASH"
"BUILT-IN-CLASSOID"
- "CONDITION-CLASSOID-P"
+ "CONDITION-CLASSOID-P" "CONDITION-CLASSOID-SLOTS"
"MAKE-UNDEFINED-CLASSOID" "FIND-CLASSOID" "CLASSOID"
"CLASSOID-DIRECT-SUPERCLASSES" "MAKE-LAYOUT"
"REDEFINE-LAYOUT-WARNING" "SLOT-CLASSOID"
;; symbols from former SB!CONDITIONS
"*HANDLER-CLUSTERS*" "*RESTART-CLUSTERS*"
+ "*CONDITION-RESTARTS*"
"SHOW-CONDITION" "CASE-FAILURE"
"NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET"
- "DESCRIBE-CONDITION"
+ "DESCRIBE-CONDITION" "MAKE-RESTART" "COERCE-TO-CONDITION"
+ "CONDITION-READER-FUNCTION" "CONDITION-WRITER-FUNCTION"
+
+ "CONDITION-SLOT-ALLOCATION" "CONDITION-SLOT-DOCUMENTATION"
+ "CONDITION-SLOT-INITARGS" "CONDITION-SLOT-INITFORM"
+ "CONDITION-SLOT-INITFORM-P" "CONDITION-SLOT-NAME"
+ "CONDITION-SLOT-READERS" "CONDITION-SLOT-WRITERS"
+
"!COLD-INIT" "!UNINTERN-INIT-ONLY-STUFF"
"!GLOBALDB-COLD-INIT" "!FDEFN-COLD-INIT"
+ "!FUNCTION-NAMES-COLD-INIT"
"!TYPE-CLASS-COLD-INIT" "!TYPEDEFS-COLD-INIT"
"!ALIEN-TYPE-COLD-INIT" "!CLASSES-COLD-INIT"
"!EARLY-TYPE-COLD-INIT" "!LATE-TYPE-COLD-INIT"
"!PACKAGE-COLD-INIT" "SIGNAL-COLD-INIT-OR-REINIT"
"!POLICY-COLD-INIT-OR-RESANIFY" "!VM-TYPE-COLD-INIT"
"!BACKQ-COLD-INIT" "!SHARPM-COLD-INIT"
+ "!EARLY-PROCLAIM-COLD-INIT" "!LATE-PROCLAIM-COLD-INIT"
"!CLASS-FINALIZE" "GC-REINIT"
;; Note: These are out of lexicographical order because in CMU CL
#s(sb-cold:package-data
:name "SB!THREAD"
- :use ("CL" "SB!ALIEN")
+ :use ("CL" "SB!ALIEN" "SB!INT")
:doc "public (but low-level): native thread support"
:export ("MAKE-THREAD"
"MAKE-LISTENER-THREAD" "DESTROY-THREAD" "WITH-RECURSIVE-LOCK"
"CONTEXT-PC" "CONTEXT-REGISTER"
"CONTROL-STACK-SC-NUMBER" "COUNT-NO-OPS"
"*CURRENT-CATCH-BLOCK*"
- "CURRENT-DYNAMIC-SPACE-START"
"CURRENT-FLOAT-TRAP" "DEFINE-FOR-EACH-PRIMITIVE-OBJECT"
"DESCRIPTOR-REG-SC-NUMBER" "DESCRIPTOR-VS-NON-DESCRIPTOR-STORAGE"
"DOUBLE-FLOAT-EXPONENT-BYTE" "DOUBLE-FLOAT-BIAS"
"SYMBOL-HASH-SLOT" "SYMBOL-HEADER-WIDETAG" "SYMBOL-NAME-SLOT"
"SYMBOL-PACKAGE-SLOT" "SYMBOL-PLIST-SLOT"
"SYMBOL-SIZE" "SYMBOL-UNUSED-SLOT" "SYMBOL-VALUE-SLOT"
- "BINDING-STACK-START" "BINDING-STACK-END"
- "CONTROL-STACK-START" "CONTROL-STACK-END"
+ "*BINDING-STACK-START*"
+ "*CONTROL-STACK-START*" "*CONTROL-STACK-END*"
+ "CONTROL-STACK-POINTER-VALID-P"
"DYNAMIC-SPACE-START" "DYNAMIC-SPACE-END"
#!+c-stack-is-control-stack "ALTERNATE-SIGNAL-STACK-START"
#!-gencgc "DYNAMIC-0-SPACE-START"