(defknown %set-symbol-hash (symbol hash)
t (unsafe))
+(defknown initialize-vector ((simple-array * (*)) &rest t)
+ (simple-array * (*))
+ (always-translatable)
+ :result-arg 0)
+
+(defknown vector-fill* (t t t t) vector
+ (unsafe)
+ :result-arg 0)
+
(defknown vector-length (vector) index (flushable))
(defknown vector-sap ((simple-unboxed-array (*))) system-area-pointer