From e3f44e41a3474cd03ae91aab23e49333e8bef44c Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Sun, 14 Dec 1997 17:32:39 +0000
Subject: [PATCH] Remove a verbose debugging format command that slipped in.

---
 compiler/float-tran.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/compiler/float-tran.lisp b/compiler/float-tran.lisp
index b3e487b6b..48eddf46d 100644
--- a/compiler/float-tran.lisp
+++ b/compiler/float-tran.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.49 1997/12/14 15:28:27 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.50 1997/12/14 17:32:39 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -887,7 +887,6 @@
   (elfun-derive-type-simple
    arg #'log #'(lambda (lo hi)
 		 (declare (ignore hi))
-		 (format t "*D1 ~s~%"  lo)
 		 (typecase lo
 		   (cons (>= (car lo) 0))
 		   (rational (>= lo 0))
-- 
GitLab