From fc75c62071acef300d0ca73b82aa402439c1256a Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Wed, 3 Sep 2003 20:09:31 +0000
Subject: [PATCH] Remove extraneous print

---
 compiler/sparc/alloc.lisp | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/compiler/sparc/alloc.lisp b/compiler/sparc/alloc.lisp
index 34d53709f..87cee08e4 100644
--- a/compiler/sparc/alloc.lisp
+++ b/compiler/sparc/alloc.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/sparc/alloc.lisp,v 1.17 2003/08/26 11:50:04 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/alloc.lisp,v 1.18 2003/09/03 20:09:31 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -33,7 +33,6 @@
        (let ((offset (tn-offset saved-stack-pointer)))
 	 (storew csp-tn cfp-tn offset)))
       (any-reg
-       (format t "DE-START Using any-reg ~A~%" saved-stack-pointer)
        (move saved-stack-pointer csp-tn)))))
 
 (define-vop (%dynamic-extent-end)
@@ -46,7 +45,6 @@
        (let ((offset (tn-offset saved-stack-pointer)))
 	 (loadw csp-tn cfp-tn offset)))
       (any-reg
-       (format t "DE-END Using any-reg ~A~%" saved-stack-pointer)
        (move csp-tn saved-stack-pointer)))))
 
 ;;;; LIST and LIST*
-- 
GitLab