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