X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fseq.lisp;h=bab805fe62937c1231b539b24f25058e7c01de58;hb=cd1f265dd851941557ed3f764248c339c07493a9;hp=58084a780831302ee7a85e13d30edf61861157ad;hpb=9767de1cecfe50560fe1da69fd458b6148a66da3;p=sbcl.git

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index 58084a7..bab805f 100644
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -711,8 +711,6 @@
   "Return a new sequence of all the argument sequences concatenated together
   which shares no structure with the original argument sequences of the
   specified OUTPUT-TYPE-SPEC."
-  (/show0 "full call to CONCATENATE, OUTPUT-TYPE-SPEC=..")
-  (/hexstr output-type-spec)
   (let ((type (specifier-type output-type-spec)))
   (cond
     ((csubtypep type (specifier-type 'list))