diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp
index 48cedf5b1..2c9330d6b 100644
--- a/src/compiler/srctran.lisp
+++ b/src/compiler/srctran.lisp
@@ -3157,7 +3157,6 @@
 (when-vop-existsp (:translate count-trailing-zeros)
   (deftransform integer-length ((x) (word) * :important nil :node node)
     (delay-ir1-transform node :ir1-phases)
-    (print (generate-combination-tree x))
     (combination-match2 (node)
       ((integer-length
         (sb-vm::lognot-mod64 (:or