[movitz-cvs] CVS update: movitz/losp/muerte/arrays.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	arrays.lisp 
Log Message:
Minor edits.

Date: Thu Oct 21 22:30:08 2004
Author: ffjeld

Index: movitz/losp/muerte/arrays.lisp
diff -u movitz/losp/muerte/arrays.lisp:1.45 movitz/losp/muerte/arrays.lisp:1.46
--- movitz/losp/muerte/arrays.lisp:1.45	Mon Oct 11 15:52:12 2004
+++ movitz/losp/muerte/arrays.lisp	Thu Oct 21 22:30:07 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Sun Feb 11 23:14:04 2001
 ;;;;                
-;;;; $Id: arrays.lisp,v 1.45 2004/10/11 13:52:12 ffjeld Exp $
+;;;; $Id: arrays.lisp,v 1.46 2004/10/21 20:30:07 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -764,8 +764,9 @@
 			  (:addl 4 :ecx)
 			  (:andl -8 :ecx)
 			  (:jz 'init-done)
+			  (:load-lexical (:lexical-binding initial-element) :edx)
 			  init-loop
-			  (:movl :edi (:eax (:offset movitz-basic-vector data) :ecx -4))
+			  (:movl :edx (:eax (:offset movitz-basic-vector data) :ecx -4))
 			  (:subl 4 :ecx)
 			  (:jnz 'init-loop)
 			  init-done
@@ -779,6 +780,7 @@
     (cond
      (initial-contents
       (replace array initial-contents))
+     #+ignore
      (initial-element
       (dotimes (i dimension)
 	(setf (svref%unsafe array i) initial-element))))