X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-char.lisp;h=a846dad4312e3c9999035b2c83476a30073ed5c6;hb=e67cc0f952040723f7d0f37ddb88fe895f4b1464;hp=40352d65c18bbdf2ca1dba2b0f01a35fc071de3a;hpb=9434bfa27a999690d05a196aae45f54cb05e9526;p=sbcl.git

diff --git a/src/code/target-char.lisp b/src/code/target-char.lisp
index 40352d6..a846dad 100644
--- a/src/code/target-char.lisp
+++ b/src/code/target-char.lisp
@@ -33,6 +33,7 @@
   `(integer 0 (,char-code-limit)))
 
 (defvar *character-database*)
+(declaim (type (simple-array (unsigned-byte 8) (*)) *character-database*))
 
 (macrolet ((frob ()
              (with-open-file (stream (merge-pathnames