From e2fc09643558a3b95f4ede51e3bb526c13c9552f Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 9 Feb 1990 13:51:37 +0000
Subject: [PATCH] Export %mumble-slot constants from the VM package. Added
 :lowtag specs to the rest of the defslots forms.

---
 compiler/mips/cell.lisp | 32 ++++++++++++++++++++++++++------
 1 file changed, 26 insertions(+), 6 deletions(-)

diff --git a/compiler/mips/cell.lisp b/compiler/mips/cell.lisp
index 89bc487b2..b7e2cebdd 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.3 1990/02/03 16:11:35 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.4 1990/02/09 13:51:37 wlott Exp $
 ;;;
 ;;;    This file contains the VM definition of various primitive memory access
 ;;; VOPs for the MIPS.
@@ -16,6 +16,26 @@
 ;;;
 ;;; Converted by William Lott.
 ;;; 
+(in-package "VM")
+
+(export '(%cons-car-slot %cons-cdr-slot
+
+	  %symbol-value-slot %symbol-function-slot %symbol-plist-slot
+	  %symbol-name-slot %symbol-package-slot
+
+	  %array-fill-pointer-slot %array-elements-slot %array-data-slot
+	  %array-displacement-slot %array-displaced-p-slot
+	  %array-dimensions-offset
+
+	  %code-code-size-slot %code-entry-points-slot %code-debug-info-slot
+	  %code-constants-offset
+
+	  %function-header-self-slot %function-header-next-slot
+	  %function-header-name-slot %function-header-arglist-slot
+	  %function-header-type-slot %function-header-code-offset
+
+	  %closure-function-slot %closure-info-offset))
+
 (in-package "C")
 
 
@@ -82,7 +102,7 @@
 	   :set-vop set-package))
 
 
-(defslots (%array)
+(defslots (%array :lowtag other-pointer-type)
   fill-pointer
   elements
   data
@@ -91,14 +111,14 @@
   &rest
   dimensions)
 
-(defslots (%code)
+(defslots (%code :lowtag other-pointer-type)
   code-size
   entry-points
   debug-info
   &rest
   constants)
-  
-(defslots (%function-header)
+
+(defslots (%function-header :lowtag function-pointer-type)
   self
   next
   name
@@ -107,7 +127,7 @@
   &rest
   code)
 
-(defslots (%closure)
+(defslots (%closure :lowtag function-pointer-type)
   function
   &rest
   info)
-- 
GitLab