Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv4053
Modified Files: arrays.lisp Log Message: Fixed fill-pointer declaration for vector-push.
Date: Wed Aug 24 09:27:48 2005 Author: ffjeld
Index: movitz/losp/muerte/arrays.lisp diff -u movitz/losp/muerte/arrays.lisp:1.55 movitz/losp/muerte/arrays.lisp:1.56 --- movitz/losp/muerte/arrays.lisp:1.55 Sat Aug 20 22:24:11 2005 +++ movitz/losp/muerte/arrays.lisp Wed Aug 24 09:27:47 2005 @@ -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.55 2005/08/20 20:24:11 ffjeld Exp $ +;;;; $Id: arrays.lisp,v 1.56 2005/08/24 07:27:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -1010,7 +1010,7 @@ (defun vector-push (new-element vector) (check-type vector vector) (let ((p (fill-pointer vector))) - (declare (type (unsigned-byte 16) p)) + (declare (index p)) (when (< p (array-dimension vector 0)) (setf (aref vector p) new-element (fill-pointer vector) (1+ p))