[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv19367

Modified Files:
	arrays.lisp 
Log Message:
Remove lingering debug statement.


--- /project/movitz/cvsroot/movitz/losp/muerte/arrays.lisp	2007/04/08 15:52:33	1.63
+++ /project/movitz/cvsroot/movitz/losp/muerte/arrays.lisp	2007/04/08 16:03:53	1.64
@@ -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.63 2007/04/08 15:52:33 ffjeld Exp $
+;;;; $Id: arrays.lisp,v 1.64 2007/04/08 16:03:53 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1100,7 +1100,6 @@
                          (do-it))))
            (cond
              ((integerp fill-pointer)
-              (warn "sfp len: ~s" (array-dimension array 0))
               (setf (fill-pointer array) fill-pointer))
              ((or (eq t fill-pointer)
                   (array-has-fill-pointer-p array))