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

diff --git a/src/code/early-format.lisp b/src/code/early-format.lisp
index 8e1bbe3..9cd7009 100644
--- a/src/code/early-format.lisp
+++ b/src/code/early-format.lisp
@@ -11,16 +11,16 @@
 
 (defparameter *format-whitespace-chars*
   (vector #\space
-	  #\newline
-	  ;; We leave out this non-STANDARD-CHARACTER entry from this table
-	  ;; when we're running in the cross-compilation host, since ANSI
-	  ;; doesn't require the cross-compilation host to know what a tab is.
-	  #-sb-xc-host (code-char tab-char-code)))
+          #\newline
+          ;; We leave out this non-STANDARD-CHARACTER entry from this table
+          ;; when we're running in the cross-compilation host, since ANSI
+          ;; doesn't require the cross-compilation host to know what a tab is.
+          #-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 ~<...~:>