[elephant-cvs] CVS elephant/src/utils

[ieslick]

Update of /project/elephant/cvsroot/elephant/src/utils
In directory clnet:/tmp/cvs-serv16747/src/utils

Modified Files:
	convenience.lisp package.lisp 
Log Message:
Move utility to utilities, fix warning

--- /project/elephant/cvsroot/elephant/src/utils/convenience.lisp	2007/03/06 04:15:27	1.5
+++ /project/elephant/cvsroot/elephant/src/utils/convenience.lisp	2007/03/30 17:45:42	1.6
@@ -69,3 +69,12 @@
    make it a list if it's an atom"
   (if (listp elts) elts (list elts)))
 
+(defun remove-indexed-element-and-adjust (idx array)
+  "Remove element at idx and adjust the array to
+   reduce array length by one"
+  (let ((last (- (length array) 1)))
+    (do ((i idx (1+ i)))
+	((= i last) nil)
+      (progn
+	(setf (aref array i) (aref array (+ 1 i)))))
+    (adjust-array array last)))
--- /project/elephant/cvsroot/elephant/src/utils/package.lisp	2007/03/06 04:15:27	1.5
+++ /project/elephant/cvsroot/elephant/src/utils/package.lisp	2007/03/30 17:45:42	1.6
@@ -37,4 +37,5 @@
    #:aif
    #:awhen
    #:mklist
-   #:it))
+   #:it
+   #:remove-indexed-element-and-adjust))