diff --git a/compiler/rt/print.lisp b/compiler/rt/print.lisp index 41ce17395c5e2412e6c9c5ef35b8bb66250b786e..eb3625aee3c63c55047e52591c369558fcde5073 100644 --- a/compiler/rt/print.lisp +++ b/compiler/rt/print.lisp @@ -7,7 +7,7 @@ ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU) ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/print.lisp,v 1.1 1991/02/18 15:08:08 chiles Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/print.lisp,v 1.2 1991/10/02 23:05:52 ram Exp $ ;;; ;;; This file contains temporary printing utilities and similar noise. ;;; @@ -23,7 +23,6 @@ (:save-p t) (:temporary (:sc any-reg :offset nl0-offset) nl0) (:temporary (:sc any-reg :offset lra-offset) lra) - (:temporary (:sc any-reg :offset code-offset) code) (:temporary (:scs (sap-reg)) temp) (:temporary (:sc control-stack :offset nfp-save-offset) nfp-save) (:vop-var vop) @@ -34,7 +33,7 @@ (store-stack-tn cur-nfp nfp-save)) (inst cal nsp-tn nsp-tn -16) (storew object nsp-tn) - (inst compute-lra-from-code lra code lra-label) + (inst compute-lra-from-code lra code-tn lra-label) (inst cai nl0 (make-fixup "_debug_print" :foreign)) (inst cai temp (make-fixup "call_into_c" :foreign)) (inst b temp)