0.pre7.74:

[sbcl.git] / src / compiler / locall.lisp

diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp
index b8f4697..e3d4604 100644 (file)
--- a/src/compiler/locall.lisp
+++ b/src/compiler/locall.lisp
@@ -283,7 +283,6 @@
 
 (defun local-call-analyze-until-done (clambdas)
   (loop
-   (/show "at head of LOCAL-CALL-ANALYZE-UNTIL-DONE loop")
    (let ((did-something nil))
      (dolist (clambda clambdas)
        (let* ((component (block-component (node-block (lambda-bind clambda))))