[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-serv1725

Modified Files:
	arrays.lisp 
Log Message:
Some fixes of transitional code. Still working on the new basic-vectors.

Date: Wed Jun 23 03:15:10 2004
Author: ffjeld

Index: movitz/losp/muerte/arrays.lisp
diff -u movitz/losp/muerte/arrays.lisp:1.26 movitz/losp/muerte/arrays.lisp:1.27
--- movitz/losp/muerte/arrays.lisp:1.26	Tue Jun 22 15:38:48 2004
+++ movitz/losp/muerte/arrays.lisp	Wed Jun 23 03:15:10 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.26 2004/06/22 22:38:48 ffjeld Exp $
+;;;; $Id: arrays.lisp,v 1.27 2004/06/23 10:15:10 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -689,8 +689,8 @@
 		       0 :unsigned-byte16)
 	   #.(movitz:vector-type-tag :character))
 	 (check-type array string)
-	 (when fill-pointer
-	   (setf (fill-pointer array) fill-pointer))
+	 (setf (fill-pointer array)
+	   (or fill-pointer dimensions))
 	 (cond
 	  (initial-element
 	   (check-type initial-element character)
@@ -731,8 +731,8 @@
 	 (setf (memref array #.(bt:slot-offset 'movitz::movitz-vector 'movitz::type)
 		       0 :unsigned-byte16)
 	   #.(movitz:vector-type-tag :u32))	 
-	 (when fill-pointer
-	   (setf (fill-pointer array) fill-pointer))
+	 (setf (fill-pointer array)
+	   (or fill-pointer dimensions))
 	 (cond
 	  (initial-element
 	   (dotimes (i dimensions)