[movitz-cvs] CVS update: movitz/storage-types.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

24 Mar 2004

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv10915
Modified Files:
    storage-types.lisp 
Log Message:
More small changes for GC scanning.
Date: Wed Mar 24 08:22:31 2004
Author: ffjeld
Index: movitz/storage-types.lisp
diff -u movitz/storage-types.lisp:1.12 movitz/storage-types.lisp:1.13

--- movitz/storage-types.lisp:1.12	Mon Mar 22 11:45:39 2004
+++ movitz/storage-types.lisp	Wed Mar 24 08:22:27 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.12 2004/03/22 16:45:39 ffjeld Exp $
+;;;; $Id: storage-types.lisp,v 1.13 2004/03/24 13:22:27 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -67,9 +67,9 @@
   :other 6
   :symbol 7
-  :vector #x10
+  :vector #x1a
   :defstruct #x20
-  :funobj #x30
+  :funobj #x3a
   :std-instance #x40
   :run-time-context #x50
   :infant-object #x65
@@ -81,6 +81,8 @@
   )
(defconstant +fixnum-tags+ '(:even-fixnum :odd-fixnum))
+(defparameter +scan-skip-word+ #x00000003)
+
(defun tag (type)
   (bt:enum-value 'other-type-byte type))

    