From 8e07a9aa8cdc90994b34b330268473f7ddc8b1f4 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Fri, 18 Mar 2005 05:33:12 +0000
Subject: [PATCH] Oops.  Remove some debugging formats that we don't need
 anymore.

---
 code/debug-int.lisp | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/code/debug-int.lisp b/code/debug-int.lisp
index fd6be9062..efc54e8a0 100644
--- a/code/debug-int.lisp
+++ b/code/debug-int.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/code/debug-int.lisp,v 1.120 2005/03/17 23:13:51 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.121 2005/03/18 05:33:12 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -4566,9 +4566,6 @@ The result is a symbol or nil if the routine cannot be found."
 	(logandc2 (+ vm:code-constants-offset bogus-lra-constants 1)
 		  1))
        (vm:sanctify-for-execution code-object)
-       (format t "real-lra = ~A~%" real-lra)
-       (format t "new-lra at ~A~%" dst-start)
-       (format t "offset  = ~A~%" (system:sap- trap-loc src-start))
        (values new-lra code-object (system:sap- trap-loc src-start))))))
 
 
-- 
GitLab