"NULL-ALIEN"
"SAP-ALIEN" "SHORT" "SIGNED" "SLOT" "STRUCT"
"UNDEFINED-ALIEN-ERROR"
+ "UNLOAD-SHARED-OBJECT"
"UNSIGNED"
"UNSIGNED-CHAR" "UNSIGNED-INT" "UNSIGNED-LONG" "UNSIGNED-LONG-LONG" "UNSIGNED-SHORT"
"UTF8-STRING"
"*ASSEM-INSTRUCTIONS*"
"*ASSEM-MAX-LOCATIONS*"
- "EMIT-BYTE" "EMIT-SKIP" "EMIT-BACK-PATCH"
+ "EMIT-ALIGNMENT" "EMIT-BYTE" "EMIT-SKIP" "EMIT-BACK-PATCH"
"EMIT-CHOOSER" "DEFINE-BITFIELD-EMITTER"
"DEFINE-INSTRUCTION" "DEFINE-INSTRUCTION-MACRO"
"DEF-ASSEMBLER-PARAMS" "EMIT-POSTIT"
- "MAKE-SEGMENT" "SEGMENT-NAME" "ASSEMBLE"
- "ALIGN" "INST" "LABEL" "LABEL-P" "GEN-LABEL"
+ "MAKE-SEGMENT" "SEGMENT-TYPE" "ASSEMBLE"
+ "INST" "LABEL" "LABEL-P" "GEN-LABEL"
"EMIT-LABEL" "LABEL-POSITION" "APPEND-SEGMENT" "FINALIZE-SEGMENT"
"ON-SEGMENT-CONTENTS-VECTORLY" "WRITE-SEGMENT-CONTENTS"
"READS" "WRITES" "SEGMENT"
"ENTRY-NODE-INFO-NLX-TAG" "ENTRY-NODE-INFO-ST-TOP"
"PHYSENV-DEBUG-LIVE-TN" "PHYSENV-LIVE-TN"
"FAST-SYMBOL-VALUE"
+ "FIND-SAVED-FP-AND-PC"
"FIXUP-NOTE-KIND"
"FIXUP-NOTE-FIXUP"
"FIXUP-NOTE-POSITION"
"FUN-INFO-DERIVE-TYPE" "FUN-INFO-IR2-CONVERT"
"FUN-INFO-LTN-ANNOTATE" "FUN-INFO-OPTIMIZER"
"GET-VECTOR-SUBTYPE"
+ "GET-TOPLEVELISH-FILE-INFO"
"HALT"
"IF-EQ" "INLINE-SYNTACTIC-CLOSURE-LAMBDA"
"INSERT-STEP-CONDITIONS"
"LAMBDA-WITH-LEXENV" "LEXENV-FIND"
"LOCATION=" "LTN-ANNOTATE"
"MAKE-ALIAS-TN" "MAKE-CATCH-BLOCK"
- "MAKE-CLOSURE" "MAKE-CONSTANT-TN" "MAKE-FIXNUM"
+ "MAKE-CLOSURE" "MAKE-CONSTANT-TN"
"MAKE-FIXUP-NOTE"
"MAKE-LOAD-TIME-CONSTANT-TN" "MAKE-N-TNS" "MAKE-NORMAL-TN"
"MAKE-OTHER-IMMEDIATE-TYPE" "MAKE-RANDOM-TN"
"NOTE-FIXUP"
"DEF-CASSER"
"DEF-REFFER"
+ "EMIT-CONSTANT"
"EMIT-NOP"
"DEF-SETTER"
"FIXED-ALLOC"
:doc "private: primitives used to write debuggers"
:use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!VM")
:import-from (("SB!C"
- "DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME"
+ "DEBUG-SOURCE-FORM" "DEBUG-SOURCE-NAMESTRING"
"DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED"
"DEBUG-SOURCE-START-POSITIONS" "MAKE-DEBUG-SOURCE"
"DEBUG-SOURCE" "DEBUG-SOURCE-P"))
- :reexport ("DEBUG-SOURCE-FROM"
- "DEBUG-SOURCE-NAME"
+ :reexport ("DEBUG-SOURCE-FORM"
+ "DEBUG-SOURCE-NAMESTRING"
"DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED"
"DEBUG-SOURCE-START-POSITIONS" "DEBUG-SOURCE"
"DEBUG-SOURCE-P")
"DEBUG-VAR-SYMBOL-NAME" "DEBUG-VAR-P" "DEBUG-VAR-PACKAGE-NAME"
"DEBUG-VAR-SYMBOL" "DEBUG-VAR-VALID-VALUE"
"DEBUG-VAR-VALIDITY" "DEBUG-VAR-VALUE"
- "DELETE-BREAKPOINT" "DO-BLOCKS"
+ "DELETE-BREAKPOINT"
"DO-DEBUG-BLOCK-LOCATIONS" "DO-DEBUG-FUN-BLOCKS"
"DO-DEBUG-FUN-VARS"
"FORM-NUMBER-TRANSLATIONS"
"*POSIX-ARGV*" "*CORE-PATHNAME*"
"POSIX-GETENV" "POSIX-ENVIRON"
+ ;; Atomic operations
"COMPARE-AND-SWAP"
+ "ATOMIC-INCF"
+
+ ;; Timing information
+ "CALL-WITH-TIMING"
;; People have various good reasons to mess with the GC.
"*AFTER-GC-HOOKS*"
"*GC-RUN-TIME*"
"PURIFY"
+ ;; Stack allocation control
+ "*STACK-ALLOCATE-DYNAMIC-EXTENT*"
+
;; Customizing printing of compiler and debugger messages
"*COMPILER-PRINT-VARIABLE-ALIST*"
"*DEBUG-PRINT-VARIABLE-ALIST*"
;; Hooks into init & save sequences
- "*INIT-HOOKS*" "*SAVE-HOOKS*"
+ "*INIT-HOOKS*" "*SAVE-HOOKS*" "*EXIT-HOOKS*"
;; There is no one right way to report progress on
;; hairy compiles.
"DISABLE-PACKAGE-LOCKS"
"ENABLE-PACKAGE-LOCKS"
- ;; error signalled when attempt to load an invalid fasl
- ;; is made, so that user code can try to recompile, etc.
+ ;; Custom conditions & condition accessors for users to handle.
+ "CODE-DELETION-NOTE"
+ "COMPILER-NOTE"
+ "IMPLICIT-GENERIC-FUNCTION-NAME"
+ "IMPLICIT-GENERIC-FUNCTION-WARNING"
"INVALID-FASL"
- ;; conditions that can be handled to reduce compiler
- ;; verbosity
- "CODE-DELETION-NOTE" "COMPILER-NOTE"
+ "NAME-CONFLICT" "NAME-CONFLICT-FUNCTION"
+ "NAME-CONFLICT-DATUM" "NAME-CONFLICT-SYMBOLS"
+ "RESOLVE-CONFLICT"
;; and a mechanism for controlling same at compile time
"MUFFLE-CONDITIONS" "UNMUFFLE-CONDITIONS"
+ ;; and one for controlling same at runtime
+ "*MUFFLED-WARNINGS*"
+
;; extended declarations..
"FREEZE-TYPE" "INHIBIT-WARNINGS"
"MAYBE-INLINE"
"HASH-TABLE-WEAKNESS" "MAKE-WEAK-POINTER"
"WEAK-POINTER" "WEAK-POINTER-P" "WEAK-POINTER-VALUE"
+ ;; Hash table locking
+ "HASH-TABLE-SYNCHRONIZED-P"
+ "WITH-LOCKED-HASH-TABLE"
+
;; If the user knows we're doing IEEE, he might reasonably
;; want to do this stuff.
"FLOAT-DENORMALIZED-P"
;; 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"
:export (;; lambda list keyword extensions
"&MORE"
+ ;; utilities for floating point zero handling
+ "FP-ZERO-P"
+ "NEG-FP-ZERO"
+
+ ;; Stack allocation without any questions asked
+ "TRULY-DYNAMIC-EXTENT"
+
+ ;; generic set implementation
+ "ADD-TO-XSET"
+ "ALLOC-XSET"
+ "MAP-XSET"
+ "XSET"
+ "XSET-COUNT"
+ "XSET-EMPTY-P"
+ "XSET-INTERSECTION"
+ "XSET-MEMBER-P"
+ "XSET-MEMBERS"
+ "XSET-SUBSET-P"
+ "XSET-UNION"
+
;; communication between the runtime and Lisp
"*CORE-STRING*"
;; name to the string if possible
"BLOCK-GENSYM"
+ ;; Calling a list of hook functions, plus error handling.
+ "CALL-HOOKS"
+
;; Constant form evaluation
"CONSTANT-FORM-VALUE"
"CONSTANT-TYPEP"
"*SETF-FDEFINITION-HOOK*"
;; error-reporting facilities
+ "CLOSED-STREAM-ERROR"
"COMPILED-PROGRAM-ERROR"
"ENCAPSULATED-CONDITION"
"INTERPRETED-PROGRAM-ERROR"
"SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"
"SIMPLE-PARSE-ERROR" "SIMPLE-PROGRAM-ERROR"
- "SIMPLE-READER-ERROR" "SIMPLE-READER-PACKAGE-ERROR"
+ "SIMPLE-READER-ERROR"
+ "SIMPLE-READER-PACKAGE-ERROR"
+ "SIMPLE-REFERENCE-ERROR"
+ "SIMPLE-REFERENCE-WARNING"
"SIMPLE-STREAM-ERROR"
"SIMPLE-STORAGE-CONDITION"
"SIMPLE-STYLE-WARNING"
"TRY-RESTART"
+ ;; error-signalling facilities
+ "ARRAY-BOUNDING-INDICES-BAD-ERROR"
+ "SEQUENCE-BOUNDING-INDICES-BAD-ERROR"
+
"SPECIAL-FORM-FUNCTION"
"STYLE-WARN" "SIMPLE-COMPILER-NOTE"
"BIT-VECTOR-="
"READ-EVALUATED-FORM"
"MAKE-UNPRINTABLE-OBJECT"
+ "POWER-OF-TWO-CEILING"
;; ..and macros..
"COLLECT"
"FORMAT-TOO-MANY-ARGS-WARNING" "EXTENSION-FAILURE"
"STRUCTURE-INITARG-NOT-KEYWORD" "CONSTANT-MODIFIED"
- "NAME-CONFLICT" "NAME-CONFLICT-FUNCTION"
- "NAME-CONFLICT-DATUM" "NAME-CONFLICT-SYMBOLS"
- "RESOLVE-CONFLICT"
-
;; ..and DEFTYPEs..
"INDEX" "LOAD/STORE-INDEX"
"SIGNED-BYTE-WITH-A-BITE-OUT"
"FLUSH-STANDARD-OUTPUT-STREAMS"
"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"
"SB!EXT" "SB!FASL" "SB!INT" "SB!SYS" "SB!GRAY")
:reexport ("DEF!STRUCT" "DEF!MACRO")
:export ("%ACOS"
- "%ACOSH" "%ARRAY-AVAILABLE-ELEMENTS" "%ARRAY-DATA-VECTOR"
+ "%ACOSH"
+ "%ADJOIN"
+ "%ADJOIN-EQ"
+ "%ADJOIN-KEY"
+ "%ADJOIN-KEY-EQ"
+ "%ADJOIN-KEY-TEST"
+ "%ADJOIN-KEY-TEST-NOT"
+ "%ADJOIN-TEST"
+ "%ADJOIN-TEST-NOT"
+ "%ARRAY-AVAILABLE-ELEMENTS" "%ARRAY-DATA-VECTOR"
"%ARRAY-DIMENSION" "%ARRAY-DISPLACED-P"
"%ARRAY-DISPLACEMENT" "%ARRAY-FILL-POINTER"
"%ARRAY-FILL-POINTER-P" "%ARRAY-RANK"
"%ASSOC"
+ "%ASSOC-EQ"
+ "%ASSOC-IF"
+ "%ASSOC-IF-KEY"
+ "%ASSOC-IF-NOT"
+ "%ASSOC-IF-NOT-KEY"
"%ASSOC-KEY"
+ "%ASSOC-KEY-EQ"
"%ASSOC-KEY-TEST"
"%ASSOC-KEY-TEST-NOT"
"%ASSOC-TEST"
"%ASSOC-TEST-NOT"
"%ASIN" "%ASINH"
"%ATAN" "%ATAN2" "%ATANH" "%CALLER-FRAME-AND-PC"
- "%CHECK-BOUND" "%CHECK-VECTOR-SEQUENCE-BOUNDS"
+ "%CHECK-BOUND"
+ "%CHECK-GENERIC-SEQUENCE-BOUNDS"
+ "%CHECK-VECTOR-SEQUENCE-BOUNDS"
"%CLOSURE-FUN" "%CLOSURE-INDEX-REF"
"%COMPARE-AND-SWAP-CAR"
"%COMPARE-AND-SWAP-CDR"
"%FUN-FUN"
"%FUN-NAME"
"%HYPOT" "%LDB" "%LOG" "%LOGB" "%LOG10"
+ "%LAST0"
+ "%LAST1"
+ "%LASTN/FIXNUM"
+ "%LASTN/BIGNUM"
"%LOG1P"
#!+long-float "%LONG-FLOAT"
"%MAKE-COMPLEX" "%MAKE-FUNCALLABLE-INSTANCE"
+ "%MAKE-FUNCALLABLE-STRUCTURE-INSTANCE-ALLOCATOR"
"%MAKE-RATIO" "%MAKE-LISP-OBJ"
+ "%MAKE-INSTANCE"
+ "%MAKE-STRUCTURE-INSTANCE"
+ "%MAKE-STRUCTURE-INSTANCE-ALLOCATOR"
"%MAP" "%MAP-TO-SIMPLE-VECTOR-ARITY-1"
"%MAP-TO-LIST-ARITY-1" "%MAP-TO-NIL-ON-SEQUENCE"
"%MAP-TO-NIL-ON-SIMPLE-VECTOR" "%MAP-TO-NIL-ON-VECTOR"
"%MASK-FIELD"
"%MEMBER"
+ "%MEMBER-EQ"
+ "%MEMBER-IF"
+ "%MEMBER-IF-KEY"
+ "%MEMBER-IF-NOT"
+ "%MEMBER-IF-NOT-KEY"
"%MEMBER-KEY"
+ "%MEMBER-KEY-EQ"
"%MEMBER-KEY-TEST"
"%MEMBER-KEY-TEST-NOT"
"%MEMBER-TEST"
"%MEMBER-TEST-NOT"
"%NEGATE" "%POW" "%PUTHASH"
+ "%RASSOC"
+ "%RASSOC-EQ"
+ "%RASSOC-IF"
+ "%RASSOC-IF-KEY"
+ "%RASSOC-IF-NOT"
+ "%RASSOC-IF-NOT-KEY"
+ "%RASSOC-KEY"
+ "%RASSOC-KEY-EQ"
+ "%RASSOC-KEY-TEST"
+ "%RASSOC-KEY-TEST-NOT"
+ "%RASSOC-TEST"
+ "%RASSOC-TEST-NOT"
"%RAW-BITS" "%RAW-BITS-WITH-OFFSET" "%VECTOR-RAW-BITS"
"%RAW-REF-COMPLEX-DOUBLE" "%RAW-REF-COMPLEX-LONG"
"%RAW-REF-COMPLEX-SINGLE" "%RAW-REF-DOUBLE"
"%RAW-SET-COMPLEX-DOUBLE" "%RAW-SET-COMPLEX-LONG"
"%RAW-SET-COMPLEX-SINGLE" "%RAW-SET-DOUBLE"
"%RAW-SET-LONG" "%RAW-SET-SINGLE" "%SCALB" "%SCALBN"
+ #!+(or x86 x86-64)
+ "%RAW-INSTANCE-ATOMIC-INCF/WORD"
"%RAW-INSTANCE-REF/WORD" "%RAW-INSTANCE-SET/WORD"
"%RAW-INSTANCE-REF/SINGLE" "%RAW-INSTANCE-SET/SINGLE"
"%RAW-INSTANCE-REF/DOUBLE" "%RAW-INSTANCE-SET/DOUBLE"
"%SINH" "%SQRT" "%SXHASH-SIMPLE-STRING"
"%SXHASH-SIMPLE-SUBSTRING" "%TAN" "%TAN-QUICK" "%TANH"
"%UNARY-ROUND" "%UNARY-TRUNCATE" "%UNARY-FTRUNCATE"
- "%WITH-ARRAY-DATA" "%WITH-ARRAY-DATA-MACRO"
+ "%WITH-ARRAY-DATA"
+ "%WITH-ARRAY-DATA/FP"
+ "%WITH-ARRAY-DATA-MACRO"
"*CURRENT-LEVEL-IN-PRINT*"
- "*EMPTY-TYPE*" "*GC-INHIBIT*" "*GC-PENDING*"
+ "*EMPTY-TYPE*"
+ "*EVAL-CALLS*"
+ "*GC-INHIBIT*" "*GC-PENDING*"
#!+sb-thread "*STOP-FOR-GC-PENDING*"
"*UNIVERSAL-TYPE*"
"*UNIVERSAL-FUN-TYPE*" "*UNPARSE-FUN-TYPE-SIMPLIFY*"
"EFFECTIVE-FIND-POSITION-TEST"
"EFFECTIVE-FIND-POSITION-KEY" "ERROR-NUMBER-OR-LOSE"
"EXTENDED-CHAR-P"
- "FAILED-%WITH-ARRAY-DATA" "FDEFINITION-OBJECT"
+ "FDEFINITION-OBJECT"
"FDOCUMENTATION" "FILENAME"
"FIND-AND-INIT-OR-CHECK-LAYOUT"
"FIND-DEFSTRUCT-DESCRIPTION"
"LAYOUT-N-UNTAGGED-SLOTS" "LAYOUT-FOR-STD-CLASS-P"
"LAYOUT-SLOT-TABLE"
#!+(or x86-64 x86) "%LEA"
- "LEXENV" "LEXENV-DESIGNATOR" "LINE-LENGTH" "ANSI-STREAM"
+ "LEXENV" "LEXENV-DESIGNATOR" "LINE-LENGTH"
+ "LIST-COPY-SEQ*"
+ "LIST-FILL*"
+ "LIST-SUBSEQ*"
+ "ANSI-STREAM"
"ANSI-STREAM-BIN" "ANSI-STREAM-BOUT" "ANSI-STREAM-CLOSE"
- "ANSI-STREAM-ELEMENT-TYPE" "ANSI-STREAM-IN"
+ "ANSI-STREAM-ELEMENT-TYPE"
+ "ANSI-STREAM-FILE-POSITION"
+ "ANSI-STREAM-IN"
"ANSI-STREAM-IN-BUFFER" "ANSI-STREAM-IN-INDEX"
"ANSI-STREAM-INPUT-STREAM-P" "ANSI-STREAM-MISC"
"ANSI-STREAM-N-BIN" "ANSI-STREAM-OPEN-STREAM-P"
"MAKE-MEMBER-TYPE" "MAKE-NAMED-TYPE" "MAKE-NULL-LEXENV"
"MAKE-NUMERIC-TYPE"
"MAKE-SINGLE-FLOAT" "MAKE-SPECIALIZABLE-ARRAY"
- "MAKE-UNPORTABLE-FLOAT" "%MAKE-INSTANCE"
+ "MAKE-UNPORTABLE-FLOAT"
"MAKE-SHORT-VALUES-TYPE" "MAKE-SINGLE-VALUE-TYPE"
- "MAKE-VALUE-CELL" "MAKE-VALUES-TYPE" "MEMBER-TYPE"
- "MEMBER-TYPE-MEMBERS" "MEMBER-TYPE-P" "MERGE-BITS"
- "MODIFIED-NUMERIC-TYPE" "MUTATOR-SELF" "NAMED-TYPE"
+ "MAKE-VALUE-CELL" "MAKE-VALUES-TYPE"
+ "MAPC-MEMBER-TYPE-MEMBERS" "MAPCAR-MEMBER-TYPE-MEMBERS"
+ "MEMBER-TYPE" "MEMBER-TYPE-MEMBERS" "MEMBER-TYPE-P"
+ "MEMBER-TYPE-SIZE" "MERGE-BITS"
+ "MODIFIED-NUMERIC-TYPE"
+ "MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM"
+ "MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM"
+ "MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM"
+ "MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM"
+ "MUTATOR-SELF" "NAMED-TYPE"
"NAMED-TYPE-NAME" "NAMED-TYPE-P" "NATIVE-BYTE-ORDER"
"NEGATE" "NEGATION-TYPE" "NEGATION-TYPE-TYPE"
"NEVER-SUBTYPEP" "NIL-ARRAY-ACCESSED-ERROR"
"PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"
"PARSE-DEFMACRO" "PARSE-UNKNOWN-TYPE"
"PARSE-UNKNOWN-TYPE-SPECIFIER" "PATHNAME-DESIGNATOR"
+ "POINTER-HASH"
#!+(or x86 x86-64) "*PSEUDO-ATOMIC-BITS*"
"PUNT-PRINT-IF-TOO-LONG"
"RAW-INSTANCE-SLOTS-EQUALP"
"SINGLE-VALUE-TYPE" "SINGLE-VALUE-SPECIFIER-TYPE"
"SPECIALIZABLE" "SPECIALIZABLE-VECTOR" "SPECIFIER-TYPE"
"STACK-REF" "STREAM-DESIGNATOR" "STRING-DESIGNATOR"
+ "STRING-FILL*"
+ "STRING-SUBSEQ*"
"STRUCTURE-RAW-SLOT-TYPE-AND-SIZE" "SUB-GC"
"SYMBOLS-DESIGNATOR"
"%INSTANCE-LENGTH"
"%INSTANCE-REF"
"%INSTANCE-SET"
"SYSTEM-AREA-CLEAR"
+ "TLS-EXHAUSTED-ERROR"
"TWO-ARG-*" "TWO-ARG-+" "TWO-ARG--" "TWO-ARG-/"
"TWO-ARG-/=" "TWO-ARG-<" "TWO-ARG-<=" "TWO-ARG-="
"TWO-ARG->" "TWO-ARG->=" "TWO-ARG-AND" "TWO-ARG-EQV"
"VALUES-TYPE-REST" "VALUES-TYPE-UNION"
"VALUES-TYPE-TYPES" "VALUES-TYPES"
"VALUES-TYPES-EQUAL-OR-INTERSECT" "VECTOR-T-P"
- "VECTOR-NIL-P" "VECTOR-TO-VECTOR*"
+ "VECTOR-NIL-P"
+ "VECTOR-FILL*"
+ "VECTOR-SUBSEQ*"
+ "VECTOR-TO-VECTOR*"
"VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH" "WITH-ARRAY-DATA"
"WITH-CIRCULARITY-DETECTION" "WRONG-NUMBER-OF-INDICES-ERROR"
"OUTPUT-SYMBOL-NAME" "%COERCE-NAME-TO-FUN"
"INVOKE-MACROEXPAND-HOOK" "DEFAULT-STRUCTURE-PRINT"
"LAYOUT" "LAYOUT-LENGTH" "LAYOUT-PURE" "DSD-RAW-TYPE"
- "DEFSTRUCT-DESCRIPTION" "UNDEFINE-STRUCTURE" "DD-COPIER"
+ "DEFSTRUCT-DESCRIPTION" "UNDECLARE-STRUCTURE" "DD-COPIER"
"UNDEFINE-FUN-NAME" "DD-TYPE" "CLASSOID-STATE" "INSTANCE"
"*TYPE-SYSTEM-INITIALIZED*" "FIND-LAYOUT" "DSD-NAME"
"%TYPEP" "DD-RAW-INDEX" "DD-NAME" "CLASSOID-SUBCLASSES"
"%OTHER-POINTER-P"
"STANDARD-CLASSOID" "CLASSOID-OF"
- "MAKE-STANDARD-CLASSOID" "CLASSOID-CELL-TYPEP"
+ "MAKE-STANDARD-CLASSOID"
+ "CLASSOID-CELL-CLASSOID"
+ "CLASSOID-CELL-NAME"
+ "CLASSOID-CELL-PCL-CLASS"
+ "CLASSOID-CELL-TYPEP"
+ "CLEAR-CLASSOID"
"FIND-CLASSOID-CELL" "EXTRACT-FUN-TYPE"
"%RANDOM-DOUBLE-FLOAT"
#!+long-float "%RANDOM-LONG-FLOAT"
"%RANDOM-SINGLE-FLOAT" "STATIC-CLASSOID"
"%FUNCALLABLE-INSTANCE-INFO" "RANDOM-CHUNK" "BIG-RANDOM-CHUNK"
- "LAYOUT-CLOS-HASH-LIMIT" "CLASSOID-CELL-NAME"
+ "LAYOUT-CLOS-HASH-LIMIT"
"BUILT-IN-CLASSOID-DIRECT-SUPERCLASSES"
"BUILT-IN-CLASSOID-TRANSLATION" "RANDOM-LAYOUT-CLOS-HASH"
"CLASSOID-PCL-CLASS" "FUNCALLABLE-STRUCTURE"
"FUNCALLABLE-INSTANCE-FUN" "%FUNCALLABLE-INSTANCE-LAYOUT"
"%SET-FUNCALLABLE-INSTANCE-LAYOUT"
- "BASIC-STRUCTURE-CLASSOID" "CLASSOID-CELL-CLASSOID"
+ "BASIC-STRUCTURE-CLASSOID"
"REGISTER-LAYOUT"
"FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX"
"MAKE-STATIC-CLASSOID" "INSTANCE-LAMBDA"
"CONDITION-SLOT-NAME" "CONDITION-SLOT-READERS"
"CONDITION-SLOT-WRITERS"
+ "REDEFINITION-WARNING"
+ "REDEFINITION-WITH-DEFUN"
+ "REDEFINITION-WITH-DEFGENERIC"
+ "REDEFINITION-WITH-DEFMETHOD"
+ "REDEFINITION-REPLACES-GENERIC-FUNCTION-P"
+ "REDEFINITION-REPLACES-COMPILED-FUNCTION-WITH-INTERPRETED-P"
+ "UNINTERESTING-ORDINARY-FUNCTION-REDEFINITION-P"
+ "UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P"
+ "UNINTERESTING-METHOD-REDEFINITION-P"
+ "UNINTERESTING-REDEFINITION"
+ "REDEFINITION-WITH-DEFTRANSFORM"
+
+ "DUBIOUS-ASTERISKS-AROUND-VARIABLE-NAME"
+ "ASTERISKS-AROUND-LEXICAL-VARIABLE-NAME"
+ "ASTERISKS-AROUND-CONSTANT-VARIABLE-NAME"
+ "UNDEFINED-ALIEN-STYLE-WARNING"
+ #!+sb-eval
+ "LEXICAL-ENVIRONMENT-TOO-COMPLEX"
+ "CHARACTER-DECODING-ERROR-IN-COMMENT"
+ "DEPRECATED-EVAL-WHEN-SITUATIONS"
+ "PROCLAMATION-MISMATCH"
+ "TYPE-PROCLAMATION-MISMATCH"
+ "FTYPE-PROCLAMATION-MISMATCH"
+
"!COLD-INIT" "!UNINTERN-INIT-ONLY-STUFF"
"!GLOBALDB-COLD-INIT" "!FDEFN-COLD-INIT"
"!FOREIGN-COLD-INIT" "!FUNCTION-NAMES-COLD-INIT"
"%SET-ROW-MAJOR-AREF" "%SET-FILL-POINTER"
"%SET-FDEFINITION" "%SCHARSET" "%SBITSET"
"%RPLACD" "%RPLACA" "%PUT" "%CHARSET" "%BITSET"
- "%ASET" "%ARRAY-TYPEP"
- "%SET-SAP-REF-DESCRIPTOR"))
+ "%ASET" "%ARRAY-TYPEP"))
#s(sb-cold:package-data
:name "SB!THREAD"
"INTERRUPT-THREAD-ERROR"
"INTERRUPT-THREAD-ERROR-THREAD"
"INTERRUPT-THREAD" "TERMINATE-THREAD" "DESTROY-THREAD"
+ "THREAD-YIELD"
"MUTEX" "MAKE-MUTEX" "MUTEX-NAME" "MUTEX-VALUE"
"GET-MUTEX" "RELEASE-MUTEX" "WITH-MUTEX"
"WITH-RECURSIVE-LOCK"
Some anomalies (e.g. FIND-IF-IN-CLOSURE being in SB-SYS instead of
SB-KERNEL) have been undone, but probably more remain."
:use ("CL" "SB!EXT" "SB!INT")
- :export ("%ASSEMBLER-CODE-TYPE"
- "%BIND-ALIGNED-SAP"
- ;; FIXME: %PRIMITIVE shouldn't be here. (I now know that %SYS
+ :export (;; FIXME: %PRIMITIVE shouldn't be here. (I now know that %SYS
;; is for OS-dependent stuff. %PRIMITIVE should probably be in
;; SB!KERNEL.)
"%PRIMITIVE"
"%STANDARD-CHAR-P"
"*ALLOW-WITH-INTERRUPTS*"
- "*FOREIGN-LOCK*"
"*INTERRUPTS-ENABLED*"
"*INTERRUPT-PENDING*"
"*LINKAGE-INFO*"
"*LONG-SITE-NAME*" "*SHORT-SITE-NAME*"
+ "*PERIODIC-POLLING-FUNCTION*"
+ "*PERIODIC-POLLING-PERIOD*"
"*RUNTIME-DLHANDLE*"
"*SHARED-OBJECTS*"
"*STATIC-FOREIGN-SYMBOLS*"
"*STDERR*" "*STDIN*"
- "*STDOUT*" "*TASK-DATA*"
- "*TASK-NOTIFY*" "*TASK-SELF*" "*TTY*" "*TYPESCRIPTPORT*"
+ "*STDOUT*"
+ "*TTY*"
"ADD-FD-HANDLER"
"ALLOCATE-SYSTEM-MEMORY"
"ALLOW-WITH-INTERRUPTS"
- "BEEP" "BITS"
- "BYTES"
+ "BEEP"
"BREAKPOINT-ERROR"
"CLOSE-SHARED-OBJECTS"
- "COMPILER-VERSION"
"DEADLINE-TIMEOUT"
"DEALLOCATE-SYSTEM-MEMORY"
"DECODE-TIMEOUT"
"DECODE-INTERNAL-TIME"
"DEFAULT-INTERRUPT"
"DEFER-DEADLINE"
- "DEPORT-BOOLEAN" "DEPORT-INTEGER"
"DYNAMIC-FOREIGN-SYMBOLS-P"
"DLOPEN-OR-LOSE"
"FROB-DO-BODY"
"ENABLE-INTERRUPT"
- "ENUMERATION"
"ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"
"EXTERN-ALIEN-NAME"
"FD-STREAM" "FD-STREAM-FD" "FD-STREAM-P"
"MACRO" "MAKE-FD-STREAM"
"MEMORY-FAULT-ERROR"
"MEMMOVE"
- "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER"
"OS-COLD-INIT-OR-REINIT" "OS-CONTEXT-T" "OUTPUT-RAW-BYTES"
- "READ-N-BYTES" "REALLOCATE-SYSTEM-MEMORY" "RECORD-SIZE"
+ "READ-N-BYTES"
"REMOVE-FD-HANDLER"
"REOPEN-SHARED-OBJECTS"
- "RESOLVE-LOADED-ASSEMBLER-REFERENCES"
"SAP+" "SAP-"
"SAP-FOREIGN-SYMBOL"
"SAP-INT"
"SAP-REF-16" "SAP-REF-32" "SAP-REF-64" "SAP-REF-WORD"
"SAP-REF-8"
- "SAP-REF-DESCRIPTOR"
"SAP-REF-DOUBLE" "SAP-REF-LONG"
"SAP-REF-SAP" "SAP-REF-SINGLE"
"SAP<" "SAP<=" "SAP=" "SAP>" "SAP>="
;; FIXME: STRUCTURE!OBJECT stuff probably belongs in SB!KERNEL.
"STRUCTURE!OBJECT" "STRUCTURE!OBJECT-MAKE-LOAD-FORM"
"SYSTEM-AREA-POINTER" "SYSTEM-AREA-POINTER-P"
- "SYSTEM-CONDITION" "SYSTEM-CONDIION-ADDRESS"
+ "SYSTEM-CONDITION" "SYSTEM-CONDITION-ADDRESS"
"SYSTEM-CONDITION-CONTEXT"
"REINIT-INTERNAL-REAL-TIME"
"SYSTEM-INTERNAL-RUN-TIME"
"UID-USERNAME"
"UID-HOMEDIR"
"WITH-RESTARTED-SYSCALL"
+ "SB-MKSTEMP"
;; stuff with a one-to-one mapping to Unix constructs
"D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN" "DEV-T" "DIRECT"
"RU-STIME" "RU-UTIME" "RUSAGE_CHILDREN" "RUSAGE_SELF" "RUSEAGE"
"R_OK" "S-IEXEC" "S-IFBLK" "S-IFCHR" "S-IFDIR" "S-IFLNK" "S-IFMT"
"S-IFREG" "S-IFSOCK" "S-IREAD" "S-ISGID" "S-ISUID" "S-ISVTX"
- "S-IWRITE" "SAVETEXT" "SC-MASK" "SC-ONSTACK" "SC-PC" "SETGIDEXEC"
+ "S-IWRITE" "SAVETEXT" "SB-MKSTEMP" "SC-MASK" "SC-ONSTACK"
"SETUIDEXEC" "SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL"
"SG-OSPEED" "SGTTYB" "SIZE-T" "ST-ATIME" "ST-BLKSIZE" "ST-BLOCKS"
"ST-CTIME" "ST-DEV" "ST-GID" "ST-MODE" "ST-MTIME" "ST-NLINK"
"TIMEVAL" "TIMEZONE" "TIOCFLUSH" "TIOCGETC" "TIOCGETP" "TIOCGLTC"
"TIOCGPGRP" "TIOCGWINSZ" "TIOCNOTTY" "TIOCSETC" "TIOCSETP"
"TIOCSLTC" "TIOCSPGRP" "TIOCSWINSZ" "TV-SEC" "TV-USEC"
- "TZ-DSTTIME" "TZ-MINUTESWEST" "UID-T" "UNIX-CLOSE" "UNIX-DUP"
- "UNIX-EXIT" "UNIX-FILE-MODE" "UNIX-FSTAT" "UNIX-GETHOSTNAME"
- "UNIX-GETPID" "UNIX-GETRUSAGE" "UNIX-GETTIMEOFDAY" "UNIX-GETUID"
- "UNIX-GID" "UNIX-IOCTL" "UNIX-ISATTY" "UNIX-LSEEK" "UNIX-LSTAT"
- "UNIX-MKDIR" "UNIX-OPEN" "UNIX-PATHNAME" "UNIX-PID" "UNIX-PIPE"
- "UNIX-READ" "UNIX-READLINK" "UNIX-RENAME" "UNIX-SELECT"
- "UNIX-STAT" "UNIX-UID" "UNIX-UNLINK" "UNIX-WRITE" "WINSIZE"
+ "TZ-DSTTIME" "TZ-MINUTESWEST" "UID-T" "UNIX-CLOSE"
+ "UNIX-DUP""UNIX-EXIT" "UNIX-FILE-MODE" "UNIX-FSTAT"
+ "UNIX-GETHOSTNAME" "UNIX-GETPID" "UNIX-GETRUSAGE"
+ "UNIX-GETTIMEOFDAY" "UNIX-GETUID" "UNIX-GID" "UNIX-IOCTL"
+ "UNIX-ISATTY" "UNIX-LSEEK" "UNIX-LSTAT" "UNIX-MKDIR"
+ "UNIX-OPEN" "UNIX-PATHNAME" "UNIX-PID"
+ "UNIX-PIPE" "UNIX-READ" "UNIX-READLINK" "UNIX-REALPATH"
+ "UNIX-RENAME" "UNIX-SELECT" "UNIX-STAT" "UNIX-UID"
+ "UNIX-UNLINK" "UNIX-WRITE"
+ "WINSIZE"
"WRITEGRP" "WRITEOTH" "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL"
"WS-YPIXEL" "WNOHANG" "WSTOPPED" "WUNTRACED" "W_OK" "X_OK"
#!+linkage-table "LINKAGE-TABLE-SPACE-START"
#!+linkage-table "LINKAGE-TABLE-SPACE-END"
#!+linkage-table "LINKAGE-TABLE-ENTRY-SIZE"
+ "TLS-SIZE"
"TRACE-TABLE-CALL-SITE"
"TRACE-TABLE-FUN-EPILOGUE" "TRACE-TABLE-FUN-PROLOGUE"
"TRACE-TABLE-NORMAL" "N-WIDETAG-BITS" "WIDETAG-MASK"
:name "SB!EVAL"
:doc "internal: the evaluator implementation used to execute code without compiling it."
:use ("CL" "SB!KERNEL" "SB!EXT")
+ :reexport ("*EVAL-CALLS*")
:export ("INTERPRETED-FUNCTION"
"INTERPRETED-FUNCTION-P"
"INTERPRETED-FUNCTION-NAME"
"EVAL-IN-NATIVE-ENVIRONMENT"
"PREPARE-FOR-COMPILE"
"COUNT-EVAL-CALLS"
- "*EVAL-LEVEL*"
- "*EVAL-CALLS*"))
+ "*EVAL-LEVEL*"))
#!+win32
#s(sb-cold:package-data