X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftarget-format.lisp;h=df74380e35f2e42e23d7e22b9e980cc2375c472c;hb=6a0601ab48635465ad3400c290e5cfbca28e5367;hp=5a29fbad05467f9dd5dff02786ffd20cd2691a7e;hpb=01d3afd8254db54a95552d6e4d09f54a9c970449;p=sbcl.git

diff --git a/src/code/target-format.lisp b/src/code/target-format.lisp
index 5a29fba..df74380 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)))
+                          (svref *format-directive-interpreters* (char-code character)))
                          (character nil)))
                       (*default-format-error-offset*
                        (1- (format-directive-end directive))))