From a0f5ec13df8a54efa3d36c3473a50184f7e41fcf Mon Sep 17 00:00:00 2001
From: Stas Boukarev <stassats@gmail.com>
Date: Sun, 13 Mar 2016 15:27:57 +0300
Subject: [PATCH] Declaim types of %%data-vector-...%%.

---
 src/code/array.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/code/array.lisp b/src/code/array.lisp
index 12e0f6a28..e6b2fb956 100644
--- a/src/code/array.lisp
+++ b/src/code/array.lisp
@@ -603,6 +603,8 @@ of specialized arrays is supported."
 (macrolet ((def (name table-name)
              `(progn
                 (defglobal ,table-name (make-array ,(1+ sb!vm:widetag-mask)))
+                (declaim (type (simple-array function (,(1+ sb!vm:widetag-mask)))
+                               ,table-name))
                 (defmacro ,name (array-var)
                   `(the function
                      (let ((tag 0))
-- 
2.11.4.GIT