diff --git a/compiler/srctran.lisp b/compiler/srctran.lisp index 1edbfdae4f3d8dde4b55bbaf5dd6813e8131d286..7eb6ec4a149ccdba2521e331ca4141f1ddb3ad84 100644 --- a/compiler/srctran.lisp +++ b/compiler/srctran.lisp @@ -270,8 +270,6 @@ :low (when n-low (ash n-low shift)) :high (when n-high (ash n-high shift)))) (let ((s-type (continuation-type shift))) - (format *trace-output* "~&n-type: ~S~%s-type: ~S~%" - n-type s-type) (when (numeric-type-p s-type) (let ((s-low (numeric-type-low s-type)) (s-high (numeric-type-high s-type)))