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