X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fsharpm.lisp;fp=src%2Fcode%2Fsharpm.lisp;h=af7994f17d3c540309ad3b4b35ff83539261c742;hb=5d04a95274c9ddaebbcd6ddffc5d646e2c25598c;hp=dfd32d282fc12fd7b788b9649d912583b9cbda0f;hpb=0c32d1e58d53715ce63fcc67abf540cefd3d5b0a;p=sbcl.git

diff --git a/src/code/sharpm.lisp b/src/code/sharpm.lisp
index dfd32d2..af7994f 100644
--- a/src/code/sharpm.lisp
+++ b/src/code/sharpm.lisp
@@ -378,7 +378,9 @@
       ((character-decoding-error
         #'(lambda (decoding-error)
             (declare (ignorable decoding-error))
-            (style-warn "Character decoding error in a #|-comment at position ~A reading source file ~A, resyncing." (file-position stream) stream)
+            (style-warn
+             'sb!kernel::character-decoding-error-in-dispatch-macro-char-comment
+             :sub-char sub-char :position (file-position stream) :stream stream)
             (invoke-restart 'attempt-resync))))
     (let ((stream (in-synonym-of stream)))
       (if (ansi-stream-p stream)