X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-format.lisp;h=7dbc663a04d36f8c8e45fdff4d8f1eba6a2fd5ab;hb=bb756e3d4b19c30d4a9cd4250b606c5969613ad9;hp=8e1bbe3201ba539e00fc0d2e1bbcaeab92c00bf9;hpb=ba7659c92f2b7fac7e9532a3db9114c5bdc4ab55;p=sbcl.git

diff --git a/src/code/early-format.lisp b/src/code/early-format.lisp
index 8e1bbe3..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)
@@ -31,8 +31,9 @@
 ;;; non-NIL, up-up-and-out (~:^) is allowed. Otherwise, ~:^ isn't allowed.
 (defvar *up-up-and-out-allowed* nil)
 
-;;; Used by the interpreter stuff. When it non-NIL, its a function that will
-;;; invoke PPRINT-POP in the right lexical environemnt.
+;;; Used by the interpreter stuff. When it's non-NIL, it's a function
+;;; that will invoke PPRINT-POP in the right lexical environemnt.
+(declaim (type (or null function) *logical-block-popper*))
 (defvar *logical-block-popper* nil)
 
 ;;; Used by the expander stuff. This is bindable so that ~<...~:>