X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-format.lisp;h=4cb042a696277eaa5db87c899b3c6ad45ad14b36;hb=0b96758f3645dff3e681d82cc97ddab1faae27ac;hp=4f058c02c233b916e289c1a75c0fcd25abdc6066;hpb=0f478fd4bc883675aab83c049df099281232e580;p=sbcl.git

diff --git a/src/code/late-format.lisp b/src/code/late-format.lisp
index 4f058c0..4cb042a 100644
--- a/src/code/late-format.lisp
+++ b/src/code/late-format.lisp
@@ -39,7 +39,7 @@
   (string (missing-arg) :type simple-string)
   (start (missing-arg) :type (and unsigned-byte fixnum))
   (end (missing-arg) :type (and unsigned-byte fixnum))
-  (character (missing-arg) :type base-char)
+  (character (missing-arg) :type character)
   (colonp nil :type (member t nil))
   (atsignp nil :type (member t nil))
   (params nil :type list))
@@ -270,8 +270,11 @@
   (etypecase directive
     (format-directive
      (let ((expander
-	    (aref *format-directive-expanders*
-		  (char-code (format-directive-character directive))))
+            (let ((char (format-directive-character directive)))
+              (typecase char
+                (base-char
+                 (aref *format-directive-expanders* (char-code char)))
+                (character nil))))
 	   (*default-format-error-offset*
 	    (1- (format-directive-end directive))))
        (declare (type (or null function) expander))