0.pre7.38:

[sbcl.git] / src / compiler / array-tran.lisp

diff --git a/src/compiler/array-tran.lisp b/src/compiler/array-tran.lisp
index e1fddb3..c1bc4c5 100644 (file)
--- a/src/compiler/array-tran.lisp
+++ b/src/compiler/array-tran.lisp
@@ -499,7 +499,6 @@
                                   (element-type '*)
                                   unsafe?
                                   fail-inline?)
-  (/show "in %WITH-ARRAY-DATA-MACRO, yes.." array start end)
   (let ((size (gensym "SIZE-"))
        (defaulted-end (gensym "DEFAULTED-END-"))
        (data (gensym "DATA-"))