[movitz-cvs] CVS movitz

[ffjeld]

Update of /project/movitz/cvsroot/movitz
In directory clnet:/tmp/cvs-serv16740

Modified Files:
	storage-types.lisp 
Log Message:
Set an appropriate value (i.e. scannable) for the :run-time-context tag.


--- /project/movitz/cvsroot/movitz/storage-types.lisp	2008/03/23 12:19:19	1.62
+++ /project/movitz/cvsroot/movitz/storage-types.lisp	2008/04/02 20:47:09	1.63
@@ -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.62 2008/03/23 12:19:19 ffjeld Exp $
+;;;; $Id: storage-types.lisp,v 1.63 2008/04/02 20:47:09 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -68,7 +68,8 @@
   :null 5
   :other 6
   :symbol 7
-  
+
+  ;; The lower 3 bits of these are significant in mysterious ways.
   :basic-vector #x22
   :defstruct #x2a
   :funobj #x3a
@@ -76,7 +77,7 @@
   :ratio #x52
   :complex #x5a
   :std-instance #x40
-  :run-time-context #x50
+  :run-time-context #x62
   :illegal #x13
   :infant-object #x23
   :basic-restart #x32
@@ -342,9 +343,10 @@
 		   :u8 2
 		   :u16 3
 		   :u32 4
-		   :bit 5
-		   :code 6
-		   :indirects 7)
+		   :stack 5
+		   :bit 6
+		   :code 7
+		   :indirects 8)
     :initarg :element-type
     :reader movitz-vector-element-type)
    (fill-pointer
@@ -396,7 +398,7 @@
 
 (defun movitz-vector-element-type-size (element-type)
   (ecase element-type
-    ((:any-t :u32) 32)
+    ((:any-t :u32 :stack) 32)
     ((:character :u8 :code) 8)
     (:u16 16)
     (:bit 1)))