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