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

[Frode Vatvedt Fjeld]

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

Modified Files:
	storage-types.lisp 
Log Message:
*** empty log message ***
Date: Mon Jan 17 11:54:22 2005
Author: ffjeld

Index: movitz/storage-types.lisp
diff -u movitz/storage-types.lisp:1.48 movitz/storage-types.lisp:1.49
--- movitz/storage-types.lisp:1.48	Mon Jan  3 12:55:57 2005
+++ movitz/storage-types.lisp	Mon Jan 17 11:54:21 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.48 2005/01/03 11:55:57 ffjeld Exp $
+;;;; $Id: storage-types.lisp,v 1.49 2005/01/17 10:54:21 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -771,7 +771,10 @@
    (entry-protocol
     :initform :default
     :initarg :entry-protocol
-    :reader funobj-entry-protocol))
+    :reader funobj-entry-protocol)
+   (headers-on-stack-frame-p
+    :initform nil
+    :accessor headers-on-stack-frame-p))
   (:slot-align type #.+other-type-offset+))
 
 (defmethod write-binary-record ((obj movitz-funobj) stream)