"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"
"*BACKEND-BYTE-ORDER*" "*BACKEND-DISASSEM-PARAMS*"
"*BACKEND-INSTRUCTION-FLAVORS*" "*BACKEND-INSTRUCTION-FORMATS*"
- "*BACKEND-INTERNAL-ERRORS*" "*BACKEND-PAGE-SIZE*"
+ "*BACKEND-INTERNAL-ERRORS*" "*BACKEND-PAGE-BYTES*"
"*BACKEND-REGISTER-SAVE-PENALTY*"
"*BACKEND-SB-LIST*" "*BACKEND-SB-NAMES*"
"*BACKEND-SC-NAMES*" "*BACKEND-SC-NUMBERS*"
"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"
: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*"
;; 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"
;; are assertions" default
"TRULY-THE"
+ ;; Misc. array and vector tools.
+ "ARRAY-STORAGE-VECTOR"
+
;; This is something which must exist inside any Common
;; Lisp implementation, and which someone writing a
;; customized toplevel might well want. It seems perverse
"FP-ZERO-P"
"NEG-FP-ZERO"
+ ;; Stack allocation without any questions asked
+ "TRULY-DYNAMIC-EXTENT"
+
;; generic set implementation
"ADD-TO-XSET"
"ALLOC-XSET"
"*SETF-FDEFINITION-HOOK*"
;; error-reporting facilities
+ "CLOSED-STREAM-ERROR"
"COMPILED-PROGRAM-ERROR"
"ENCAPSULATED-CONDITION"
"INTERPRETED-PROGRAM-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
+ "STANDARD-READTABLE-MODIFIED-ERROR"
"ARRAY-BOUNDING-INDICES-BAD-ERROR"
"SEQUENCE-BOUNDING-INDICES-BAD-ERROR"
"%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"
"%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"
"%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-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"
"VECTOR-TO-VECTOR*"
"VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH" "WITH-ARRAY-DATA"
"WITH-CIRCULARITY-DETECTION" "WRONG-NUMBER-OF-INDICES-ERROR"
+ "WITH-WORLD-LOCK"
;; bit bash fillers (FIXME: 32/64-bit issues)
"UB1-BASH-FILL" "SYSTEM-AREA-UB1-FILL"
"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"
"CLASSOID-CELL-NAME"
"CLASSOID-CELL-PCL-CLASS"
"CLASSOID-CELL-TYPEP"
- "CLEAR-CLASSOID"
+ "%CLEAR-CLASSOID"
"FIND-CLASSOID-CELL" "EXTRACT-FUN-TYPE"
"%RANDOM-DOUBLE-FLOAT"
#!+long-float "%RANDOM-LONG-FLOAT"
"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"
"!SHARPM-COLD-INIT" "!EARLY-PROCLAIM-COLD-INIT"
"!LATE-PROCLAIM-COLD-INIT" "!CLASS-FINALIZE"
"!CONSTANTP-COLD-INIT"
+ "!WORLD-LOCK-COLD-INIT"
"FLOAT-COLD-INIT-OR-REINIT"
"GC-REINIT"
"%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"
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*"
"*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"
"FUN-POINTER-LOWTAG"
"SIMPLE-FUN-SELF-SLOT"
"SIMPLE-FUN-TYPE-SLOT"
- "GENCGC-PAGE-SIZE"
+ "GENCGC-PAGE-BYTES"
#!+ppc "PSEUDO-ATOMIC-INTERRUPTED-FLAG"
#!+ppc "PSEUDO-ATOMIC-FLAG"
"GENESIS" "HALT-TRAP" "IGNORE-ME-SC-NUMBER"