X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-format.lisp;h=7dbc663a04d36f8c8e45fdff4d8f1eba6a2fd5ab;hb=35697e2c02e7b29f7953ae318d50305561927a16;hp=06baecd712435368cc4981062881083e3db94f44;hpb=148e3820ad314a9b59d0133c1d60eaac4af9118b;p=sbcl.git

diff --git a/src/code/early-format.lisp b/src/code/early-format.lisp
index 06baecd..7dbc663 100644
--- a/src/code/early-format.lisp
+++ b/src/code/early-format.lisp
@@ -18,9 +18,9 @@
 	  #-sb-xc-host (code-char tab-char-code)))
 
 (defvar *format-directive-expanders*
-  (make-array char-code-limit :initial-element nil))
+  (make-array base-char-code-limit :initial-element nil))
 (defvar *format-directive-interpreters*
-  (make-array char-code-limit :initial-element nil))
+  (make-array base-char-code-limit :initial-element nil))
 
 (defvar *default-format-error-control-string* nil)
 (defvar *default-format-error-offset* nil)