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