X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-format.lisp;h=8478a221fb1afc119d85e3528f4ba8031718d281;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=792e610fd29aa7a755edf239eb4b86dd03050b34;hpb=c0578d9893429c9c0da80ea5920360e4621fddab;p=sbcl.git

diff --git a/src/code/target-format.lisp b/src/code/target-format.lisp
index 792e610..8478a22 100644
--- a/src/code/target-format.lisp
+++ b/src/code/target-format.lisp
@@ -78,8 +78,7 @@
                       (function
                        (typecase character
                          (base-char
-                          (svref *format-directive-interpreters* (char-code character)))
-                         (character nil)))
+                          (svref *format-directive-interpreters* (char-code character)))))
                       (*default-format-error-offset*
                        (1- (format-directive-end directive))))
                  (unless function