X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-format.lisp;h=a0d204ebeedcd84a8567f1578109aabca3bc1570;hb=2db3b6b4cb740d5b6512459c223859f747807b09;hp=a7f32f747421af1ef6036d9a74398d42f357a3a8;hpb=1d5e0a5293d69aa29c8c7b72cda555478622e913;p=sbcl.git

diff --git a/src/code/late-format.lisp b/src/code/late-format.lisp
index a7f32f7..a0d204e 100644
--- a/src/code/late-format.lisp
+++ b/src/code/late-format.lisp
@@ -222,6 +222,7 @@
 		  (char-code (format-directive-character directive))))
 	   (*default-format-error-offset*
 	    (1- (format-directive-end directive))))
+       (declare (type (or null function) expander))
        (if expander
 	   (funcall expander directive more-directives)
 	   (error 'format-error