0.9.2.43:

[sbcl.git] / src / code / early-format.lisp

diff --git a/src/code/early-format.lisp b/src/code/early-format.lisp
index 06baecd..9cd7009 100644 (file)
--- 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)