X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-sxhash.lisp;h=7dfcd3eff33e99cb6ebcd9d83797c00d892b5e08;hb=80304981972c91c1b3f3fca75f36dacf1fecf307;hp=c77b2579c3ba2336b1d74c7b2adc53ae953fb632;hpb=17d48b6525fdd5f188961c863e1d1f1d44d29107;p=sbcl.git

diff --git a/src/code/target-sxhash.lisp b/src/code/target-sxhash.lisp
index c77b257..7dfcd3e 100644
--- a/src/code/target-sxhash.lisp
+++ b/src/code/target-sxhash.lisp
@@ -99,7 +99,7 @@
 ;;;	     (unless (string= (gethash hash ht) string)
 ;;;	       (format t "collision: ~S ~S~%" string (gethash hash ht)))
 ;;;	     (setf (gethash hash ht) string))))
-;;;     (format t "final count=~D~%" (hash-table-count ht)))
+;;;     (format t "final count=~W~%" (hash-table-count ht)))
 
 (defun %sxhash-simple-string (x)
   (declare (optimize speed))