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