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

[Frode Vatvedt Fjeld]

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