"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"
+ "FAST-SYMBOL-GLOBAL-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"
+ "IF-EQ"
+ "IMMEDIATE-TN-P"
+ "INLINE-SYNTACTIC-CLOSURE-LAMBDA"
"INSERT-STEP-CONDITIONS"
"IR2-COMPONENT-CONSTANTS" "IR2-CONVERT"
"IR2-PHYSENV-NUMBER-STACK-P"
"TN-REF-NEXT" "TN-REF-NEXT-REF" "TN-REF-P" "TN-REF-TARGET"
"TN-REF-TN" "TN-REF-VOP" "TN-REF-WRITE-P" "TN-SC" "TN-VALUE"
"TRACE-TABLE-ENTRY" "TYPE-CHECK-ERROR" "UNBIND" "UNBIND-TO-HERE"
- "UNSAFE" "UNWIND" "UWP-ENTRY"
+ "UNSAFE" "UNSAFELY-FLUSHABLE" "UNWIND" "UWP-ENTRY"
"VERIFY-ARG-COUNT" "WRITE-PACKED-BIT-VECTOR"
"WRITE-VAR-INTEGER" "WRITE-VAR-STRING" "XEP-ALLOCATE-FRAME"
"LABEL-ID" "FIXUP" "FIXUP-FLAVOR" "FIXUP-NAME" "FIXUP-OFFSET"
"VM-SUPPORT-ROUTINES-LOCATION-NUMBER"
"WITH-SOURCE-LOCATION"
- "*SOURCE-LOCATION-THUNKS*"))
+ "*SOURCE-LOCATION-THUNKS*"
+
+ "BRANCH-IF"))
#s(sb-cold:package-data
:name "SB!DEBUG"
: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"
"INVALID-CONTROL-STACK-POINTER" "INVALID-VALUE"
"LAMBDA-LIST-UNAVAILABLE" "MAKE-BREAKPOINT" "NO-DEBUG-BLOCKS"
"NO-DEBUG-FUN-RETURNS" "NO-DEBUG-INFO" "PREPROCESS-FOR-EVAL"
- "RETURN-FROM-FRAME" "SOURCE-PATH-CONTEXT"
+ "EVAL-IN-FRAME" "RETURN-FROM-FRAME" "SOURCE-PATH-CONTEXT"
"TOP-FRAME" "UNHANDLED-DEBUG-CONDITION" "UNKNOWN-CODE-LOCATION"
"UNKNOWN-CODE-LOCATION-P" "UNKNOWN-DEBUG-VAR"
"CODE-LOCATION-KIND" "FLUSH-FRAMES-ABOVE"))
"*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*"
"BYTES-CONSED-BETWEEN-GCS"
- "GC" "GC-OFF" "GC-ON" "GET-BYTES-CONSED"
+ "GC" "GET-BYTES-CONSED"
"*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*"
"DEFCONSTANT-UNEQL" "DEFCONSTANT-UNEQL-NAME"
"DEFCONSTANT-UNEQL-NEW-VALUE" "DEFCONSTANT-UNEQL-OLD-VALUE"
+ ;; global lexicals, access to global symbol values
+ "DEFGLOBAL"
+ "SYMBOL-GLOBAL-VALUE"
+
;; package-locking stuff
#!+sb-package-locks "PACKAGE-LOCKED-P"
#!+sb-package-locks "LOCK-PACKAGE"
;; 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"
+ "ALWAYS-BOUND" "FREEZE-TYPE" "GLOBAL" "INHIBIT-WARNINGS"
"MAYBE-INLINE"
;; ..and variables to control compiler policy
;; 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"
+ "INVALID-ARRAY-ERROR"
+ "INVALID-ARRAY-INDEX-ERROR"
+ "INVALID-ARRAY-P"
"SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"
"SIMPLE-PARSE-ERROR" "SIMPLE-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"
"BIT-VECTOR-="
"READ-EVALUATED-FORM"
"MAKE-UNPRINTABLE-OBJECT"
+ "POWER-OF-TWO-CEILING"
;; ..and macros..
"COLLECT"
"STRUCTURE-INITARG-NOT-KEYWORD" "CONSTANT-MODIFIED"
;; ..and DEFTYPEs..
+ "MAX-HASH" "HASH"
"INDEX" "LOAD/STORE-INDEX"
"SIGNED-BYTE-WITH-A-BITE-OUT"
"UNSIGNED-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"
"%ADJOIN-TEST-NOT"
"%ARRAY-AVAILABLE-ELEMENTS" "%ARRAY-DATA-VECTOR"
"%ARRAY-DIMENSION" "%ARRAY-DISPLACED-P"
+ "%ARRAY-DISPLACED-FROM"
"%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-TEST"
"%ASSOC-TEST-NOT"
"%ASIN" "%ASINH"
- "%ATAN" "%ATAN2" "%ATANH" "%CALLER-FRAME-AND-PC"
+ "%ATAN" "%ATAN2" "%ATANH"
+ "%CALLER-FRAME"
+ "%CALLER-PC"
"%CHECK-BOUND"
"%CHECK-GENERIC-SEQUENCE-BOUNDS"
"%CHECK-VECTOR-SEQUENCE-BOUNDS"
"%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-KEY-TEST-NOT"
"%MEMBER-TEST"
"%MEMBER-TEST-NOT"
- "%NEGATE" "%POW" "%PUTHASH"
+ "%NEGATE" "%POW"
+ "%OTHER-POINTER-WIDETAG"
+ "%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"
"DEFINE-STRUCTURE-SLOT-ADDRESSOR"
"DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P"
"!DEFSTRUCT-WITH-ALTERNATE-METACLASS" "DESCEND-INTO"
- "DISPLACED-TO-ARRAY-TOO-SMALL-ERROR"
"DIVISION-BY-ZERO-ERROR" "DOUBLE-FLOAT-EXPONENT"
"DOUBLE-FLOAT-HIGH-BITS" "DOUBLE-FLOAT-INT-EXPONENT"
"DOUBLE-FLOAT-LOW-BITS" "DOUBLE-FLOAT-SIGNIFICAND"
"FUN-WORD-OFFSET" "GENERALIZED-BOOLEAN"
"GET-CLOSURE-LENGTH" "GET-HEADER-DATA"
"GET-LISP-OBJ-ADDRESS" "LOWTAG-OF" "WIDETAG-OF"
- "GET-MACHINE-VERSION" "HAIRY-DATA-VECTOR-REF"
+ "HAIRY-DATA-VECTOR-REF"
"HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS" "HAIRY-DATA-VECTOR-SET"
"HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS""HAIRY-TYPE"
"HAIRY-TYPE-CHECK-TEMPLATE-NAME" "HAIRY-TYPE-SPECIFIER"
"HANDLE-CIRCULARITY" "HOST" "IGNORE-IT" "ILL-BIN"
"ILL-BOUT" "ILL-IN" "ILL-OUT" "INDEX-OR-MINUS-1"
"INDEX-TOO-LARGE-ERROR" "*!INITIAL-ASSEMBLER-ROUTINES*"
+ "*!INITIAL-DEBUG-SOURCES*"
"*!INITIAL-FDEFN-OBJECTS*" "*!INITIAL-FOREIGN-SYMBOLS*"
"*!INITIAL-LAYOUTS*" "*!INITIAL-SYMBOLS*"
"INTEGER-DECODE-DOUBLE-FLOAT"
#!+win32 "HANDLE-WIN32-EXCEPTION"
"INTERNAL-TIME" "INTERSECTION-TYPE" "INTERSECTION-TYPE-P"
"INTERSECTION-TYPE-TYPES" "INVALID-ARG-COUNT-ERROR"
- "INVALID-ARRAY-INDEX-ERROR" "INVALID-UNWIND-ERROR"
+ "INVALID-UNWIND-ERROR"
"IRRATIONAL" "JUST-DUMP-IT-NORMALLY" "KEY-INFO"
"KEY-INFO-NAME" "KEY-INFO-P" "KEY-INFO-TYPE"
"LAYOUT-DEPTHOID" "LAYOUT-INVALID-ERROR"
"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"
"MAPC-MEMBER-TYPE-MEMBERS" "MAPCAR-MEMBER-TYPE-MEMBERS"
"MEMBER-TYPE" "MEMBER-TYPE-MEMBERS" "MEMBER-TYPE-P"
"MEMBER-TYPE-SIZE" "MERGE-BITS"
- "MODIFIED-NUMERIC-TYPE" "MUTATOR-SELF" "NAMED-TYPE"
+ "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"
"VALUE-CELL-REF" "VALUE-CELL-SET" "VALUES-SPECIFIER-TYPE"
"VALUES-SPECIFIER-TYPE-CACHE-CLEAR" "VALUES-SUBTYPEP"
"VALUES-TYPE" "VALUES-TYPE-ERROR" "VALUES-TYPE-IN"
- "VALUES-TYPE-INTERSECTION" "VALUES-TYPE-OPTIONAL"
+ "VALUES-TYPE-INTERSECTION"
+ "VALUES-TYPE-MIN-VALUE-COUNT" "VALUES-TYPE-MAX-VALUE-COUNT"
+ "VALUES-TYPE-MAY-BE-SINGLE-VALUE-P" "VALUES-TYPE-OPTIONAL"
"VALUES-TYPE-OUT" "VALUES-TYPE-P" "VALUES-TYPE-REQUIRED"
"VALUES-TYPE-REST" "VALUES-TYPE-UNION"
"VALUES-TYPE-TYPES" "VALUES-TYPES"
"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"
"INFINITE-ERROR-PROTECT"
"FIND-CALLER-NAME-AND-FRAME"
"FIND-INTERRUPTED-NAME-AND-FRAME"
- "%SET-SYMBOL-VALUE" "%SET-SYMBOL-PACKAGE"
+ "%SET-SYMBOL-VALUE" "%SET-SYMBOL-GLOBAL-VALUE" "%SET-SYMBOL-PACKAGE"
"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"
"!EARLY-TYPE-COLD-INIT" "!LATE-TYPE-COLD-INIT"
"!FIXUP-TYPE-COLD-INIT" "!TARGET-TYPE-COLD-INIT"
"!RANDOM-COLD-INIT" "!READER-COLD-INIT"
+ "!PATHNAME-COLD-INIT" "!DEBUG-INFO-COLD-INIT"
"!TYPECHECKFUNS-COLD-INIT" "!LOADER-COLD-INIT"
"!EXHAUST-COLD-INIT" "!PACKAGE-COLD-INIT"
"!POLICY-COLD-INIT-OR-RESANIFY"
"!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"
"INTERRUPT-THREAD-ERROR-THREAD"
"INTERRUPT-THREAD" "TERMINATE-THREAD" "DESTROY-THREAD"
"THREAD-YIELD"
- "MUTEX" "MAKE-MUTEX" "MUTEX-NAME" "MUTEX-VALUE"
+ "MUTEX" "MAKE-MUTEX" "MUTEX-NAME" "MUTEX-OWNER" "MUTEX-VALUE"
+ "HOLDING-MUTEX-P"
"GET-MUTEX" "RELEASE-MUTEX" "WITH-MUTEX"
"WITH-RECURSIVE-LOCK"
"WAITQUEUE" "MAKE-WAITQUEUE" "WAITQUEUE-NAME"
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"
"FOREIGN-SYMBOL-SAP"
"FOREIGN-SYMBOL-ADDRESS"
"FOREIGN-SYMBOL-DATAREF-SAP"
- "GET-PAGE-SIZE" "GET-SYSTEM-INFO"
+ "GET-MACHINE-VERSION" "GET-PAGE-SIZE" "GET-SYSTEM-INFO"
"IGNORE-INTERRUPT"
"IN-INTERRUPTION"
"INTERACTIVE-INTERRUPT"
"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"
"*ALLOC-SIGNAL*"
"ANY-REG-SC-NUMBER" "ARRAY-DATA-SLOT" "ARRAY-DIMENSIONS-OFFSET"
"ARRAY-DISPLACED-P-SLOT" "ARRAY-DISPLACEMENT-SLOT"
+ "ARRAY-DISPLACED-FROM-SLOT"
"ARRAY-ELEMENTS-SLOT" "ARRAY-FILL-POINTER-P-SLOT"
"ARRAY-FILL-POINTER-SLOT" "ATOMIC-FLAG"
"CHARACTER-REG-SC-NUMBER"
"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"
"SAETP-N-BITS" "SAETP-TYPECODE" "SAETP-PRIMITIVE-TYPE-NAME"
"SAETP-N-PAD-ELEMENTS" "SAETP-SPECIFIER"
"SAETP-COMPLEX-TYPECODE" "SAETP-IMPORTANCE"
+ "SAETP-FIXNUM-P"
+ "VALID-BIT-BASH-SAETP-P"
"*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES*"
"SANCTIFY-FOR-EXECUTION"
"SAP-POINTER-SLOT" "SAP-REG-SC-NUMBER" "SAP-SIZE"
"*CONTROL-STACK-START*" "*CONTROL-STACK-END*"
"CONTROL-STACK-POINTER-VALID-P"
"DYNAMIC-SPACE-START" "DYNAMIC-SPACE-END"
+ #!+gencgc "MAX-DYNAMIC-SPACE-END"
#!+c-stack-is-control-stack "ALTERNATE-SIGNAL-STACK-START"
#!-gencgc "DYNAMIC-0-SPACE-START"
#!-gencgc "DYNAMIC-0-SPACE-END"