Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv14488
Modified Files: image.lisp Log Message: Make dynamic-env of "word" type. It's a "location", really.
Date: Fri Nov 12 17:24:52 2004 Author: ffjeld
Index: movitz/image.lisp diff -u movitz/image.lisp:1.76 movitz/image.lisp:1.77 --- movitz/image.lisp:1.76 Fri Nov 12 15:51:28 2004 +++ movitz/image.lisp Fri Nov 12 17:24:51 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.76 2004/11/12 14:51:28 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.77 2004/11/12 16:24:51 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -107,7 +107,7 @@ :binary-tag :primitive-function) ;; per thread parameters (dynamic-env - :binary-type lu32 + :binary-type word :initform 0) ;; More per-thread parameters (unwind-protect-tag