From d18f2a55aaa878b8f82b692298df172a69468e51 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 23 Nov 1990 09:23:39 +0000 Subject: [PATCH] typo --- assembly/mips/arith.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/assembly/mips/arith.lisp b/assembly/mips/arith.lisp index 06c2d1c60..c2844e0b1 100644 --- a/assembly/mips/arith.lisp +++ b/assembly/mips/arith.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/arith.lisp,v 1.5 1990/11/23 08:43:43 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/arith.lisp,v 1.6 1990/11/23 09:23:39 wlott Exp $ ;;; ;;; Stuff to handle simple cases for generic arithmetic. ;;; @@ -185,7 +185,6 @@ (:temp temp non-descriptor-reg nl0-offset) (:temp lip interior-reg lip-offset) - (:temp lra descriptor-reg lra-offset) (:temp nargs any-reg nargs-offset) (:temp cname descriptor-reg cname-offset) (:temp ocfp any-reg old-fp-offset)) @@ -206,7 +205,7 @@ (inst move fp-tn csp-tn) DO-COMPARE - (inst ,(if not-p 'bne 'beq) done) + (inst ,(if not-p 'bne 'beq) temp done) (inst move res null-tn) (load-symbol res t) DONE))) -- GitLab