X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-format.lisp;h=06baecd712435368cc4981062881083e3db94f44;hb=1bbb76fcfb9baddf0dc96412c87575d8aeb69c6d;hp=86bb31eef17ea4b3a809a433a5078f6a8027a046;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/code/early-format.lisp b/src/code/early-format.lisp
index 86bb31e..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 ~<...~:>
@@ -45,7 +46,7 @@
 (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)