From 2a786ff371a0c243df23c26feefc33cdb430eb93 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 26 Oct 1991 05:48:13 +0000
Subject: [PATCH] Fixed REALLY-RETURN-MULTIPLE to actually default the
 remaining registers. It was comparing NARGS against 1 and 2, when it should
 have been comparing NARGS against (fixnum 1) and (fixnum 2).

---
 assembly/rt/assem-rtns.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/assembly/rt/assem-rtns.lisp b/assembly/rt/assem-rtns.lisp
index 56947b64d..5b06012e3 100644
--- a/assembly/rt/assem-rtns.lisp
+++ b/assembly/rt/assem-rtns.lisp
@@ -7,7 +7,7 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/rt/assem-rtns.lisp,v 1.4 1991/04/19 03:14:40 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/rt/assem-rtns.lisp,v 1.5 1991/10/26 05:48:13 wlott Exp $
 ;;;
 
 (in-package "RT")
@@ -111,10 +111,10 @@
   (inst c nvals 0)
   (inst bc :eq default-a0-and-on)
   (loadw a0 src 0)
-  (inst c nvals 1)
+  (inst c nvals (fixnum 1))
   (inst bc :eq default-a1-and-on)
   (loadw a1 src 1)
-  (inst c nvals 2)
+  (inst c nvals (fixnum 2))
   (inst bc :eq default-a2-and-on)
   (loadw a2 src 2)
   ;;
-- 
GitLab