From d0e32c2f8727d87c8cfb02733ffe4db9a7ae84cc Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 23 Apr 1991 01:23:00 +0000
Subject: [PATCH] Fixed three generic-mumble routines to spec the :offset for
 lisp-return as 1 instead of 2.

---
 assembly/rt/arith.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/assembly/rt/arith.lisp b/assembly/rt/arith.lisp
index a74fa4b77..c703bccc6 100644
--- a/assembly/rt/arith.lisp
+++ b/assembly/rt/arith.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/rt/arith.lisp,v 1.2 1991/04/22 10:18:42 chiles Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/rt/arith.lisp,v 1.3 1991/04/23 01:23:00 wlott Exp $
 ;;;
 ;;; Stuff to handle simple cases for generic arithmetic.
 ;;;
@@ -57,7 +57,7 @@
 			      (1+ bignum-digits-offset))
     (storew ocfp res bignum-digits-offset other-pointer-type))
   ;; Now get out of here.
-  (lisp-return lra lip :offset 2)
+  (lisp-return lra lip :offset 1)
 
   DO-STATIC-FUN
   (load-symbol cname 'two-arg-+)
@@ -112,7 +112,7 @@
 			      (1+ bignum-digits-offset))
     (storew ocfp res bignum-digits-offset other-pointer-type))
   ;; Now get out of here.
-  (lisp-return lra lip :offset 2)
+  (lisp-return lra lip :offset 1)
 
   DO-STATIC-FUN
   (load-symbol cname 'two-arg--)
@@ -206,7 +206,7 @@
       (storew temp res 0 other-pointer-type)
       (storew ocfp/low res bignum-digits-offset other-pointer-type)))
   ;; Out of here
-  (lisp-return lra lip :offset 2)
+  (lisp-return lra lip :offset 1)
 
   DO-STATIC-FUN
   (load-symbol cname 'two-arg-*)
-- 
GitLab