1.0.28.51: better MAKE-ARRAY transforms

[sbcl.git] / src / compiler / generic / vm-fndb.lisp

diff --git a/src/compiler/generic/vm-fndb.lisp b/src/compiler/generic/vm-fndb.lisp
index 8da9bc3..299f49f 100644 (file)
--- a/src/compiler/generic/vm-fndb.lisp
+++ b/src/compiler/generic/vm-fndb.lisp
@@ -88,6 +88,11 @@
 (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)