(in-package "SB!FORMAT")
-(file-comment
- "$Header$")
-
(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)
;;; 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 ~<...~:>
(defvar *only-simple-args*)
;;; Used by the expander stuff. We do an initial pass with this as NIL.
-;;; If someone doesn't like this, they (throw 'need-orig-args nil) and we try
+;;; If someone doesn't like this, they (THROW 'NEED-ORIG-ARGS NIL) and we try
;;; again with it bound to T. If this is T, we don't try to do anything
;;; fancy with args.
(defvar *orig-args-available* nil)