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

diff --git a/src/code/early-format.lisp b/src/code/early-format.lisp
index 8e1bbe3..06baecd 100644
--- a/src/code/early-format.lisp
+++ b/src/code/early-format.lisp
@@ -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 ~<...~:>