From b01c7765f084fc6dbd7dd573ae82710e794d83d7 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 20 Feb 1990 19:49:54 +0000
Subject: [PATCH] Fixed reference to real-results to be real-result.

Fixed reference to value-cell-type to be value-cell-header-type.
---
 compiler/mips/cell.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/compiler/mips/cell.lisp b/compiler/mips/cell.lisp
index 65dc1aee1..4626a5d1a 100644
--- a/compiler/mips/cell.lisp
+++ b/compiler/mips/cell.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.11 1990/02/20 19:39:39 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.12 1990/02/20 19:49:54 wlott Exp $
 ;;;
 ;;;    This file contains the VM definition of various primitive memory access
 ;;; VOPs for the MIPS.
@@ -193,7 +193,7 @@
 		     ,@(when need-unbound-marker
 			 `((loadi temp vm:unbound-marker-type)))
 		     ,@(nreverse init-forms)
-		     (move real-results result))))
+		     (move real-result result))))
 	      load-time)))
     `(progn
        (eval-when (compile load eval)
@@ -204,6 +204,7 @@
 					  "-STRUCTURE"))
 	 ',(reverse slot-names)))))
 
+
 (defslots (cons :lowtag list-pointer-type
 		:alloc-vop cons-vop :alloc-trans cons)
   (car :ref-vop car :ref-trans car
@@ -267,7 +268,7 @@
   (function :init :arg)
   (info :rest t :set-vop closure-init :ref-vop closure-ref))
 
-(defslots (value-cell :lowtag other-pointer-type :header value-cell-type
+(defslots (value-cell :lowtag other-pointer-type :header value-cell-header-type
 		      :alloc-vop make-value-cell)
   (value :set-vop value-cell-set :ref-vop value-cell-ref :init :arg))
 
-- 
GitLab