From 37aac73f0c9d56c62ce0c90984890fc26d7fa039 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 3 Apr 1990 03:01:51 +0000
Subject: [PATCH] Have push-values return the number of values as a fixnum
 instead of a raw number.

---
 compiler/mips/values.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/mips/values.lisp b/compiler/mips/values.lisp
index e8bbad6e8..a7fdc0f4e 100644
--- a/compiler/mips/values.lisp
+++ b/compiler/mips/values.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/values.lisp,v 1.5 1990/03/05 21:10:02 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/values.lisp,v 1.6 1990/04/03 03:01:51 wlott Exp $
 ;;;
 ;;;    This file contains the implementation of unknown-values VOPs.
 ;;;
@@ -58,7 +58,7 @@
 	   (load-stack-tn temp tn)
 	   (storew temp start-temp i)))))
     (move start start-temp)
-    (loadi count nvals)))
+    (loadi count (fixnum nvals))))
 
 
 ;;; Push a list of values on the stack, returning Start and Count as used in
-- 
GitLab