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

Modified Files: storage-types.lisp Log Message: Starting to support adjustable and displaced vectors.

Date: Fri Jun 10 00:18:57 2005 Author: ffjeld

Index: movitz/storage-types.lisp diff -u movitz/storage-types.lisp:1.52 movitz/storage-types.lisp:1.53 --- movitz/storage-types.lisp:1.52 Sun May 8 03:17:05 2005 +++ movitz/storage-types.lisp Fri Jun 10 00:18:55 2005 @@ -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.52 2005/05/08 01:17:05 ffjeld Exp $ +;;;; $Id: storage-types.lisp,v 1.53 2005/06/09 22:18:55 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -343,7 +343,8 @@ :u16 3 :u32 4 :bit 5 - :code 6) + :code 6 + :indirects 7) :initarg :element-type :reader movitz-vector-element-type) (fill-pointer