[movitz-cvs] CVS update: movitz/storage-types.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	storage-types.lisp 
Log Message:
Add initform for funobj's extent slot. And a :fixnum tag.

Date: Wed Aug 18 15:32:54 2004
Author: ffjeld

Index: movitz/storage-types.lisp
diff -u movitz/storage-types.lisp:1.38 movitz/storage-types.lisp:1.39
--- movitz/storage-types.lisp:1.38	Tue Aug 10 06:25:21 2004
+++ movitz/storage-types.lisp	Wed Aug 18 15:32:53 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.38 2004/08/10 13:25:21 ffjeld Exp $
+;;;; $Id: storage-types.lisp,v 1.39 2004/08/18 22:32:53 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -53,6 +53,7 @@
 	 (file-position (image-stream *image*) ,v)))))
 
 (define-enum other-type-byte (u8)
+  :fixnum 0
   :even-fixnum 0
   :odd-fixnum 4
   :cons 1
@@ -757,6 +758,7 @@
     :accessor funobj-env)   
    (extent
     :initarg :extent
+    :initform :unused
     :accessor movitz-funobj-extent)
    (usage
     :initform nil
@@ -1283,4 +1285,3 @@
     (setf (slot-value obj 'numerator) (numerator value)
 	  (slot-value obj 'denominator) (denominator value))
     (call-next-method)))
-	 
\ No newline at end of file