X-Git-Url: http://git.boinkor.net/gitweb/sbcl.git/blobdiff_plain/829d76d5f12e1c1b6b21ca4c71b34719b8fed5e1..4d31006db24db375cdb83a5726d66c524b36689c:/src/code/defstruct.lisp

diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp
index 76f3c83..3d3e32c 100644
--- a/src/code/defstruct.lisp
+++ b/src/code/defstruct.lisp
@@ -732,7 +732,8 @@
       ;;x#-sb-xc-host
       ;;x(when (and (fboundp accessor-name)
       ;;x           (not (accessor-inherited-data accessor-name defstruct)))
-      ;;x  (style-warn "redefining ~S in DEFSTRUCT" accessor-name)))
+      ;;x  (style-warn "redefining ~/sb-impl::print-symbol-with-prefix/ ~
+      ;;                in DEFSTRUCT" accessor-name)))
       ;; which was done until sbcl-0.8.11.18 or so, is wrong: it causes
       ;; a warning at MACROEXPAND time, when instead the warning should
       ;; occur not just because the code was constructed, but because it