From 20f70797c92139a7f2a75e7d275f313718a3b920 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 13 Feb 1990 17:13:15 +0000
Subject: [PATCH] Removed % from start of the constants.

---
 compiler/mips/cell.lisp | 53 +++++++++++++++++++++++------------------
 1 file changed, 30 insertions(+), 23 deletions(-)

diff --git a/compiler/mips/cell.lisp b/compiler/mips/cell.lisp
index b7e2cebdd..4ccb7ee79 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.4 1990/02/09 13:51:37 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.5 1990/02/13 17:13:15 wlott Exp $
 ;;;
 ;;;    This file contains the VM definition of various primitive memory access
 ;;; VOPs for the MIPS.
@@ -18,23 +18,25 @@
 ;;; 
 (in-package "VM")
 
-(export '(%cons-car-slot %cons-cdr-slot
+(export '(cons-car-slot cons-cdr-slot
 
-	  %symbol-value-slot %symbol-function-slot %symbol-plist-slot
-	  %symbol-name-slot %symbol-package-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
+	  vector-length-slot vector-data-offset
 
-	  %code-code-size-slot %code-entry-points-slot %code-debug-info-slot
-	  %code-constants-offset
+	  array-fill-pointer-slot array-elements-slot array-data-slot
+	  array-displacement-slot array-displaced-p-slot
+	  array-dimensions-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
+	  code-code-size-slot code-entry-points-slot code-debug-info-slot
+	  code-constants-offset
 
-	  %closure-function-slot %closure-info-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")
 
@@ -85,14 +87,14 @@
        ,@(nreverse load-time))))
 
 
-(defslots (%cons :lowtag list-pointer-type :header nil)
+(defslots (cons :lowtag list-pointer-type :header nil)
   (car :ref-vop car :ref-trans car
        :set-vop set-car :set-trans %rplaca)
   (cdr :ref-vop cdr :ref-trans cdr
        :set-vop set-cdr :set-trans %rplacd))
 
 
-(defslots (%symbol :lowtag other-pointer-type)
+(defslots (symbol :lowtag other-pointer-type)
   (value :set-vop set :set-trans set)
   (function :set-vop set-symbol-function :set-trans %sp-set-definition)
   (plist :ref-vop symbol-plist :ref-trans symbol-plist
@@ -102,7 +104,12 @@
 	   :set-vop set-package))
 
 
-(defslots (%array :lowtag other-pointer-type)
+(defslots (vector :lowtag other-pointer-type)
+  length
+  &rest
+  data)
+
+(defslots (array :lowtag other-pointer-type)
   fill-pointer
   elements
   data
@@ -111,14 +118,14 @@
   &rest
   dimensions)
 
-(defslots (%code :lowtag other-pointer-type)
+(defslots (code :lowtag other-pointer-type)
   code-size
   entry-points
   debug-info
   &rest
   constants)
 
-(defslots (%function-header :lowtag function-pointer-type)
+(defslots (function-header :lowtag function-pointer-type)
   self
   next
   name
@@ -127,7 +134,7 @@
   &rest
   code)
 
-(defslots (%closure :lowtag function-pointer-type)
+(defslots (closure :lowtag function-pointer-type)
   function
   &rest
   info)
@@ -154,7 +161,7 @@
   (:translate symbol-value)
   (:generator 9
     (move obj-temp object)
-    (loadw value obj-temp %symbol-value-slot)
+    (loadw value obj-temp symbol-value-slot)
     #+nil
     (let ((err-lab (generate-error-code node clc::error-symbol-unbound
 					obj-temp)))
@@ -167,7 +174,7 @@
   (:translate symbol-function)
   (:generator 10
     (move obj-temp object)
-    (loadw value obj-temp %symbol-function-slot)
+    (loadw value obj-temp symbol-function-slot)
     #+nil
     (let ((err-lab (generate-error-code node clc::error-symbol-undefined
 					obj-temp)))
@@ -212,12 +219,12 @@
 
 
 (define-vop (fast-symbol-value cell-ref)
-  (:variant %symbol-value-slot other-pointer-type)
+  (:variant symbol-value-slot other-pointer-type)
   (:policy :fast)
   (:translate symbol-value))
 
 (define-vop (fast-symbol-function cell-ref)
-  (:variant %symbol-function-slot other-pointer-type)
+  (:variant symbol-function-slot other-pointer-type)
   (:policy :fast)
   (:translate symbol-function))
 
-- 
GitLab