;; 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"
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"
"%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"
#!+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