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)))