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