[movitz-cvs] CVS update: movitz/storage-types.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv17656

Modified Files:
	storage-types.lisp 
Log Message:
Rearranged vector objects a bit. Changed map-heap-words
accordingly. Also fixed some serious bugs in map-heap-words.

Date: Fri Jun 11 16:26:09 2004
Author: ffjeld

Index: movitz/storage-types.lisp
diff -u movitz/storage-types.lisp:1.19 movitz/storage-types.lisp:1.20
--- movitz/storage-types.lisp:1.19	Wed Jun  9 10:19:24 2004
+++ movitz/storage-types.lisp	Fri Jun 11 16:26:09 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: storage-types.lisp,v 1.19 2004/06/09 17:19:24 ffjeld Exp $
+;;;; $Id: storage-types.lisp,v 1.20 2004/06/11 23:26:09 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -342,10 +342,10 @@
 		   :bit 5)
     :initarg :element-type
     :reader movitz-vector-element-type)
-   (fill-pointer
+   (num-elements
     :binary-type lu16
-    :initarg :fill-pointer
-    :accessor movitz-vector-fill-pointer)
+    :initarg :num-elements
+    :reader movitz-vector-num-elements)
    (flags
     :accessor movitz-vector-flags
     :initarg :flags
@@ -359,10 +359,10 @@
     :initform 0
     :initarg :alignment-power
     :reader movitz-vector-alignment-power)
-   (num-elements
+   (fill-pointer
     :binary-type lu16
-    :initarg :num-elements
-    :reader movitz-vector-num-elements)
+    :initarg :fill-pointer
+    :accessor movitz-vector-fill-pointer)   
    (data
     :binary-lisp-type :label)		; data follows physically here
    (symbolic-data