From 90f840d2aa87d01a8b5a3c51c61125579fb8b317 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Mon, 19 Mar 1990 14:15:16 +0000 Subject: [PATCH] Removed debugging format that got left behind. --- compiler/srctran.lisp | 2 -- 1 file changed, 2 deletions(-) diff --git a/compiler/srctran.lisp b/compiler/srctran.lisp index 1edbfdae4..7eb6ec4a1 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))) -- GitLab