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