diff --git a/compiler/sparc/alloc.lisp b/compiler/sparc/alloc.lisp index 34d53709fd41b6fb5363fb9c1586e165f4015371..87cee08e48824906a7db111e9970408f919c73fa 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*