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

Modified Files: storage-types.lisp Log Message: Added an illegal type-tag for some (memory) consistency checks. And a function that computes the size of a class in words.

Date: Fri Mar 26 08:53:08 2004 Author: ffjeld

Index: movitz/storage-types.lisp diff -u movitz/storage-types.lisp:1.13 movitz/storage-types.lisp:1.14 --- movitz/storage-types.lisp:1.13 Wed Mar 24 08:22:27 2004 +++ movitz/storage-types.lisp Fri Mar 26 08:53:06 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.13 2004/03/24 13:22:27 ffjeld Exp $ +;;;; $Id: storage-types.lisp,v 1.14 2004/03/26 13:53:06 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -73,6 +73,7 @@ :std-instance #x40 :run-time-context #x50 :infant-object #x65 + :illegal #x13

;; :simple-vector #x20 ;; :character-vector @@ -397,7 +398,8 @@ :accessor movitz-vector-symbolic-data)) (:slot-align type -2))

- +(defun movitz-type-word-size (type) + (truncate (sizeof (intern (symbol-name type) :movitz)) 4))

(defun movitz-svref (vector index) (elt (movitz-vector-symbolic-data vector) index))