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

[Frode Vatvedt Fjeld]

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

Modified Files:
	storage-types.lisp 
Log Message:
More smallish rearrangement of compiler code, and some comments.

Date: Wed Feb  4 10:25:28 2004
Author: ffjeld

Index: movitz/storage-types.lisp
diff -u movitz/storage-types.lisp:1.3 movitz/storage-types.lisp:1.4
--- movitz/storage-types.lisp:1.3	Mon Feb  2 08:09:26 2004
+++ movitz/storage-types.lisp	Wed Feb  4 10:25:28 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.3 2004/02/02 13:09:26 ffjeld Exp $
+;;;; $Id: storage-types.lisp,v 1.4 2004/02/04 15:25:28 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -820,6 +820,7 @@
     :accessor movitz-funobj-symtab)
    (borrowed-bindings
     :initarg :borrowed-bindings
+    :initform nil
     :accessor borrowed-bindings)
    (function-envs
     :accessor function-envs)