diff --git a/code/debug-int.lisp b/code/debug-int.lisp index fd6be906283077f9c4da664b0baf0778e3dedadb..efc54e8a09995f3bfeeb9cbd39c0ebc9c37b2029 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))))))