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