1.0.2.2:

[sbcl.git] / src / compiler / generic / vm-tran.lisp

diff --git a/src/compiler/generic/vm-tran.lisp b/src/compiler/generic/vm-tran.lisp
index d616f09..860cb3a 100644 (file)
--- a/src/compiler/generic/vm-tran.lisp
+++ b/src/compiler/generic/vm-tran.lisp
@@ -60,7 +60,6 @@
                       (funcall func value (lvar-value offset))))
           (give-up-ir1-transform "constant is too large for inlining"))
         (splice-fun-args index func 2)
-        (format t "preparing to transform with ~A ~D~%" func value)
         `(lambda (thing index off1 off2 ,@(when setter-p
                                             '(value)))
            (,fun-name thing index (,func off2 off1) ,@(when setter-p