[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-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 at 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))