X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass.lisp;h=51d4911232ef6bf2153691c08b3cf9ac35b75bde;hb=b0b168c08b31a748150f404398af754f26fd4813;hp=4abd9705b5eac036b9b9cbce50d686c5f80296bd;hpb=2bdff49151d220d89e5da8c4a9af25372d4f6f36;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index 4abd970..51d4911 100644
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -394,8 +394,8 @@
 	(let ((old-length (layout-length old-layout)))
 	  (unless (= old-length length)
 	    (warn "change in instance length of class ~S:~%  ~
-		   ~A length: ~D~%  ~
-		   ~A length: ~D"
+		   ~A length: ~W~%  ~
+		   ~A length: ~W"
 		  name
 		  old-context old-length
 		  context length)