remove a stray debugging PRINT
authorNikodemus Siivola <nikodemus@random-state.net>
Fri, 2 Dec 2011 22:23:12 +0000 (00:23 +0200)
committerNikodemus Siivola <nikodemus@random-state.net>
Fri, 2 Dec 2011 22:24:21 +0000 (00:24 +0200)
  ...there since 1.0.48.21! Wow.

src/compiler/ir1util.lisp

index 4f433b1..33a8d3d 100644 (file)
                               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)))))))