[movitz-cvs] CVS update: movitz/compiler.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
*** empty log message ***
Date: Thu Jul 15 17:03:43 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.75 movitz/compiler.lisp:1.76
--- movitz/compiler.lisp:1.75	Tue Jul 13 15:41:06 2004
+++ movitz/compiler.lisp	Thu Jul 15 17:03:42 2004
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.75 2004/07/13 22:41:06 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.76 2004/07/16 00:03:42 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -2347,6 +2347,9 @@
    (shadowing-variable
     :initarg :shadowing-variable
     :reader shadowing-variable)))
+
+(defmethod binding-store-type ((binding dynamic-binding))
+  (multiple-value-list (type-specifier-encode t)))
 
 (defun stack-frame-offset (stack-frame-position)
   (* -4 (1+ stack-frame-position)))