From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Fri, 2 Dec 2011 22:23:12 +0000 (+0200)
Subject: remove a stray debugging PRINT
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=966eb48ee8076f0f3050063d3b9ebee5bbee7dc7;p=sbcl.git

remove a stray debugging PRINT

  ...there since 1.0.48.21! Wow.
---

diff --git a/src/compiler/ir1util.lisp b/src/compiler/ir1util.lisp
index 4f433b1..33a8d3d 100644
--- a/src/compiler/ir1util.lisp
+++ b/src/compiler/ir1util.lisp
@@ -598,7 +598,6 @@
                               dx arg recheck-component)))
                (ref
                 (let* ((other (trivial-lambda-var-ref-lvar use)))
-                  (print (list :ref use other))
                   (unless (eq other lvar)
                     (handle-nested-dynamic-extent-lvars
                      dx other recheck-component)))))))