"%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR"
"%LOCAL-ALIEN-ADDR" "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN"
"%SET-DEREF" "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT"
- "%SLOT-ADDR" "*VALUES-TYPE-OKAY*" "ALIEN-ARRAY-TYPE"
+ "%SLOT-ADDR" "*SAVED-FP-AND-PCS*" "*VALUES-TYPE-OKAY*"
+ "ALIEN-ARRAY-TYPE"
"ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE"
"ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P"
"ALIEN-CALLBACK"
"DEPORT" "DEPORT-ALLOC"
"DISPOSE-LOCAL-ALIEN"
"*ENTER-ALIEN-CALLBACK*" "ENTER-ALIEN-CALLBACK"
+ "FIND-SAVED-FP-AND-PC"
"HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM"
- "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN"
+ "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD"
+ "INVOKE-WITH-SAVED-FP-AND-PC" "LOCAL-ALIEN"
"LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P"
"LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE"
"MAKE-ALIEN-FUN-TYPE" "MAKE-ALIEN-POINTER-TYPE"
"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"
"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"
+ "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-NOTIFY"
like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
:use ("CL" "SB!EXT" "SB!INT" "SB!SYS" "SB!KERNEL")
:reexport ("*DEBUG-PRINT-VARIABLE-ALIST*")
- :export ("*DEBUG-BEGINNER-HELP-P*"
+ :export ("*BACKTRACE-FRAME-COUNT*"
+ "*DEBUG-BEGINNER-HELP-P*"
"*DEBUG-CONDITION*"
"*DEBUG-READTABLE*" "*DEBUG-HELP-STRING*"
"*FLUSH-DEBUG-ERRORS*" "*IN-THE-DEBUGGER*"
- "*SHOW-ENTRY-POINT-DETAILS*"
+ "*METHOD-FRAME-STYLE*"
"*TRACE-INDENTATION-STEP*" "*MAX-TRACE-INDENTATION*"
"*TRACE-FRAME*" "*TRACED-FUN-LIST*"
- "ARG" "BACKTRACE" "BACKTRACE-AS-LIST" "INTERNAL-DEBUG" "VAR"
+ "ARG"
+ "INTERNAL-DEBUG" "VAR"
"*PRINT-LOCATION-KIND*"
"*ONLY-BLOCK-START-LOCATIONS*" "*STACK-TOP-HINT*"
"*TRACE-VALUES*" "DO-DEBUG-COMMAND"
"*TRACE-ENCAPSULATE-DEFAULT*"
"FRAME-HAS-DEBUG-TAG-P"
- "UNWIND-TO-FRAME-AND-CALL"))
+ "UNWIND-TO-FRAME-AND-CALL"
+ ;; Deprecated
+ "BACKTRACE" "BACKTRACE-AS-LIST" "*SHOW-ENTRY-POINT-DETAILS*"
+ ;; Replaced by
+ "PRINT-BACKTRACE" "LIST-BACKTRACE"))
#s(sb-cold:package-data
:name "SB!DI"
"ATOMIC-INCF"
"ATOMIC-DECF"
"ATOMIC-UPDATE"
+ "ATOMIC-PUSH"
+ "ATOMIC-POP"
"WORD"
"MOST-POSITIVE-WORD"
"DEFGLOBAL"
"SYMBOL-GLOBAL-VALUE"
- ;; package-locking stuff
+ ;; package extensions
+ ;;
+ ;; locks
#!+sb-package-locks "PACKAGE-LOCKED-P"
#!+sb-package-locks "LOCK-PACKAGE"
#!+sb-package-locks "UNLOCK-PACKAGE"
"WITHOUT-PACKAGE-LOCKS"
"DISABLE-PACKAGE-LOCKS"
"ENABLE-PACKAGE-LOCKS"
+ ;; local nicknames
+ "ADD-PACKAGE-LOCAL-NICKNAME"
+ "REMOVE-PACKAGE-LOCAL-NICKNAME"
+ "PACKAGE-LOCAL-NICKNAMES"
+ "PACKAGE-LOCALLY-NICKNAMED-BY-LIST"
+ ;; behaviour on DEFPACKAGE variance
+ "*ON-PACKAGE-VARIANCE*"
;; Custom conditions & condition accessors for users to handle.
"CODE-DELETION-NOTE"
"QUIT" "EXIT"
"*ED-FUNCTIONS*"
"*MODULE-PROVIDER-FUNCTIONS*"
+ "MAP-DIRECTORY"
"WITH-TIMEOUT" "TIMEOUT"
"SEED-RANDOM-STATE"
"TYPEXPAND-1" "TYPEXPAND" "TYPEXPAND-ALL"
"DEFINED-TYPE-NAME-P" "VALID-TYPE-SPECIFIER-P"
"DELETE-DIRECTORY"
"SET-SBCL-SOURCE-LOCATION"
+ "*DISASSEMBLE-ANNOTATE*"
;; stepping interface
"STEP-CONDITION" "STEP-FORM-CONDITION" "STEP-FINISHED-CONDITION"
;; timer
"TIMER" "MAKE-TIMER" "TIMER-NAME" "TIMER-SCHEDULED-P"
- "SCHEDULE-TIMER" "UNSCHEDULE-TIMER" "LIST-ALL-TIMERS"))
+ "SCHEDULE-TIMER" "UNSCHEDULE-TIMER" "LIST-ALL-TIMERS"
+
+ ;; SIMD pack
+ #!+sb-simd-pack "SIMD-PACK"
+ #!+sb-simd-pack "SIMD-PACK-P"
+ #!+sb-simd-pack "%MAKE-SIMD-PACK-UB32"
+ #!+sb-simd-pack "%MAKE-SIMD-PACK-UB64"
+ #!+sb-simd-pack "%MAKE-SIMD-PACK-DOUBLE"
+ #!+sb-simd-pack "%MAKE-SIMD-PACK-SINGLE"
+ #!+sb-simd-pack "%SIMD-PACK-UB32S"
+ #!+sb-simd-pack "%SIMD-PACK-UB64S"
+ #!+sb-simd-pack "%SIMD-PACK-DOUBLES"
+ #!+sb-simd-pack "%SIMD-PACK-SINGLES"))
#s(sb-cold:package-data
:name "SB!FORMAT"
;; Deprecating stuff
"DEFINE-DEPRECATED-FUNCTION"
+ "DEFINE-DEPRECATED-VARIABLE"
+ "DEPRECATED-VARIABLE"
+ "CHECK-DEPRECATED-VARIABLE"
"EARLY-DEPRECATION-WARNING"
"LATE-DEPRECATION-WARNING"
"FINAL-DEPRECATION-WARNING"
;; ..and macros..
"COLLECT"
- "DO-ANONYMOUS" "DOHASH" "DOVECTOR"
+ "DO-ANONYMOUS" "DOVECTOR" "DOHASH" "DOPLIST"
"NAMED-LET"
"ONCE-ONLY"
"DEFENUM"
"*PRINT-CONDITION-REFERENCES*"
"DUPLICATE-DEFINITION" "DUPLICATE-DEFINITION-NAME"
- "PACKAGE-AT-VARIANCE" "ARRAY-INITIAL-ELEMENT-MISMATCH"
+ "PACKAGE-AT-VARIANCE"
+ "PACKAGE-AT-VARIANCE-ERROR"
+ "ARRAY-INITIAL-ELEMENT-MISMATCH"
"TYPE-WARNING" "TYPE-STYLE-WARNING"
"LOCAL-ARGUMENT-MISMATCH"
"FORMAT-ARGS-MISMATCH" "FORMAT-TOO-FEW-ARGS-WARNING"
"LISTEN-SKIP-WHITESPACE"
"PACKAGE-INTERNAL-SYMBOL-COUNT" "PACKAGE-EXTERNAL-SYMBOL-COUNT"
"PARSE-BODY" "PARSE-LAMBDA-LIST" "PARSE-LAMBDA-LIST-LIKE-THING"
- "PROPER-LIST-OF-LENGTH-P"
+ "PROPER-LIST-OF-LENGTH-P" "PROPER-LIST-P"
"LIST-OF-LENGTH-AT-LEAST-P"
"LIST-WITH-LENGTH-P"
"SINGLETON-P"
is a good idea, but see SB-SYS re. blurring of boundaries."
:use ("CL" "SB!ALIEN" "SB!ALIEN-INTERNALS" "SB!BIGNUM"
"SB!EXT" "SB!FASL" "SB!INT" "SB!SYS" "SB!GRAY")
- :reexport ("DEF!STRUCT" "DEF!MACRO")
+ :reexport ("DEF!STRUCT"
+ "DEF!MACRO"
+ #!+sb-simd-pack "SIMD-PACK"
+ #!+sb-simd-pack "SIMD-PACK-P"
+ #!+sb-simd-pack "%MAKE-SIMD-PACK-UB32"
+ #!+sb-simd-pack "%MAKE-SIMD-PACK-UB64"
+ #!+sb-simd-pack "%MAKE-SIMD-PACK-DOUBLE"
+ #!+sb-simd-pack "%MAKE-SIMD-PACK-SINGLE"
+ #!+sb-simd-pack "%SIMD-PACK-UB32S"
+ #!+sb-simd-pack "%SIMD-PACK-UB64S"
+ #!+sb-simd-pack "%SIMD-PACK-DOUBLES"
+ #!+sb-simd-pack "%SIMD-PACK-SINGLES")
:export ("%ACOS"
"%ACOSH"
"%ADJOIN"
"%ARRAY-FILL-POINTER-P" "%ARRAY-RANK"
#!+(or x86 x86-64 ppc)
"%ARRAY-ATOMIC-INCF/WORD"
+ #!+ash-right-vops "%ASH/RIGHT"
"%ASSOC"
"%ASSOC-EQ"
"%ASSOC-IF"
"%MAKE-FUNCALLABLE-STRUCTURE-INSTANCE-ALLOCATOR"
"%MAKE-RATIO" "%MAKE-LISP-OBJ"
"%MAKE-INSTANCE"
+ #!+sb-simd-pack "%MAKE-SIMD-PACK"
"%MAKE-STRUCTURE-INSTANCE"
"%MAKE-STRUCTURE-INSTANCE-ALLOCATOR"
"%MAP" "%MAP-TO-SIMPLE-VECTOR-ARITY-1"
"%SET-SYMBOL-HASH"
"%SIN" "%SIN-QUICK" "%SINGLE-FLOAT"
"%SINH" "%SQRT" "%SXHASH-SIMPLE-STRING"
+ #!+sb-simd-pack "%SIMD-PACK-TAG"
+ #!+sb-simd-pack "%SIMD-PACK-LOW"
+ #!+sb-simd-pack "%SIMD-PACK-HIGH"
"%SXHASH-SIMPLE-SUBSTRING" "%TAN" "%TAN-QUICK" "%TANH"
"%UNARY-ROUND"
"%UNARY-TRUNCATE"
"OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-ERROR"
#!+long-float
"OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-ERROR"
+ #!+sb-simd-pack
+ "OBJECT-NOT-SIMD-PACK-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-DOUBLE-FLOAT-ERROR"
"OBJECT-NOT-SIMPLE-ARRAY-ERROR"
"SINGLE-FLOAT-INT-EXPONENT" "SINGLE-FLOAT-SIGNIFICAND"
"SINGLE-VALUE-TYPE" "SINGLE-VALUE-SPECIFIER-TYPE"
"SPECIALIZABLE" "SPECIALIZABLE-VECTOR" "SPECIFIER-TYPE"
+ #!+sb-simd-pack "SIMD-PACK-SINGLE"
+ #!+sb-simd-pack "SIMD-PACK-DOUBLE"
+ #!+sb-simd-pack "SIMD-PACK-INT"
+ #!+sb-simd-pack "SIMD-PACK-TYPE"
+ #!+sb-simd-pack "SIMD-PACK-TYPE-ELEMENT-TYPE"
+ #!+sb-simd-pack "*SIMD-PACK-ELEMENT-TYPES*"
"STACK-REF" "STREAM-DESIGNATOR" "STRING-DESIGNATOR"
"STRING-FILL*"
"STRUCTURE-RAW-SLOT-TYPE-AND-SIZE" "SUB-GC"
"NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET"
"DESCRIBE-CONDITION" "MAKE-RESTART" "COERCE-TO-CONDITION"
+ "ALLOCATE-CONDITION"
+
"CONDITION-READER-FUNCTION"
"CONDITION-WRITER-FUNCTION"
"THREAD-ERROR"
"THREAD-ERROR-THREAD"
"THREAD-ALIVE-P"
+ "THREAD-EMPHEMERAL-P"
"THREAD-NAME"
"THREAD-YIELD"
+ "FOREIGN-THREAD"
+ #!+(and sb-safepoint-strictly (not win32))
+ "SIGNAL-HANDLING-THREAD"
;; Memory barrier
"BARRIER"
;; Mutexes
"CANONIZE-TEST" "CANONIZE-KEY"
- "LENGTH" "ELT"
+ "EMPTYP" "LENGTH" "ELT"
"MAKE-SEQUENCE-LIKE" "ADJUST-SEQUENCE"
"COUNT" "COUNT-IF" "COUNT-IF-NOT"
"USER-HOMEDIR"
"WITH-RESTARTED-SYSCALL"
"SB-MKSTEMP"
+ "UNIX-OFFSET"
"FD-TYPE"
;; stuff with a one-to-one mapping to Unix constructs
"%COMPILER-BARRIER" "%DATA-DEPENDENCY-BARRIER"
"%MEMORY-BARRIER" "%READ-BARRIER" "%WRITE-BARRIER"
"AFTER-BREAKPOINT-TRAP"
+ #!+(and gencgc sparc) "ALLOCATION-TRAP"
"ANY-REG-SC-NUMBER" "ARRAY-DATA-SLOT" "ARRAY-DIMENSIONS-OFFSET"
"ARRAY-DISPLACED-P-SLOT" "ARRAY-DISPLACEMENT-SLOT"
"ARRAY-DISPLACED-FROM-SLOT"
#!+long-float "COMPLEX-LONG-FLOAT-WIDETAG"
#!+long-float "COMPLEX-LONG-REG-SC-NUMBER"
#!+long-float "COMPLEX-LONG-STACK-SC-NUMBER"
+ #!+sb-simd-pack "SIMD-PACK-TAG-SLOT"
+ #!+sb-simd-pack "SIMD-PACK-HI-VALUE-SLOT"
+ #!+sb-simd-pack "SIMD-PACK-LO-VALUE-SLOT"
+ #!+sb-simd-pack "SIMD-PACK-SIZE"
+ #!+sb-simd-pack "SIMD-PACK-WIDETAG"
#!-x86-64 #!-x86-64
"COMPLEX-SINGLE-FLOAT-IMAG-SLOT" "COMPLEX-SINGLE-FLOAT-REAL-SLOT"
#!+x86-64
"GENCGC-CARD-BYTES"
"GENCGC-ALLOC-GRANULARITY"
"GENCGC-RELEASE-GRANULARITY"
- #!+ppc "PSEUDO-ATOMIC-INTERRUPTED-FLAG"
- #!+ppc "PSEUDO-ATOMIC-FLAG"
+ #!+(or ppc sparc) "PSEUDO-ATOMIC-INTERRUPTED-FLAG"
+ #!+(or ppc sparc) "PSEUDO-ATOMIC-FLAG"
#!+sb-safepoint "GLOBAL-SAFEPOINT-TRAP"
"GENESIS" "HALT-TRAP" "IGNORE-ME-SC-NUMBER"
"IMMEDIATE-CHARACTER-SC-NUMBER" "IMMEDIATE-SAP-SC-NUMBER"
#!+linkage-table "LINKAGE-TABLE-SPACE-START"
#!+linkage-table "LINKAGE-TABLE-SPACE-END"
#!+linkage-table "LINKAGE-TABLE-ENTRY-SIZE"
+ #!+sb-safepoint "GC-SAFEPOINT-PAGE-ADDR"
"TLS-SIZE"
"TRACE-TABLE-CALL-SITE"
"TRACE-TABLE-FUN-EPILOGUE" "TRACE-TABLE-FUN-PROLOGUE"
"CLOSE-HANDLE"
"CREATE-FILE"
"CREATE-FILE-MAPPING"
+ "CRYPT-GEN-RANDOM"
"DWORD"
"FD-CLEAR-INPUT"
"FD-LISTEN"
"FLUSH-VIEW-OF-FILE"
"FORMAT-MESSAGE"
"GET-FILE-ATTRIBUTES"
+ "GET-FILE-SIZE-EX"
+ "GET-FILE-TYPE"
"GET-LAST-ERROR"
"GET-OSFHANDLE"
"GET-VERSION-EX"
"HANDLE-LISTEN"
"INT-PTR"
"INVALID-HANDLE"
+ "LSEEKI64"
"MAP-VIEW-OF-FILE"
"MILLISLEEP"
"PEEK-CONSOLE-INPUT"
"PEEK-NAMED-PIPE"
"READ-FILE"
+ "UNIXLIKE-CLOSE"
+ "UNIXLIKE-OPEN"
"UNMAP-VIEW-OF-FILE"
+ "WAIT-OBJECT-OR-SIGNAL"
"WRITE-FILE"
"WITH-PROCESS-TIMES")))