[elephant-cvs] CVS elephant/src/elephant

[ieslick]

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

Modified Files:
	classindex.lisp variables.lisp 
Log Message:
Move utility to utilities, fix warning

--- /project/elephant/cvsroot/elephant/src/elephant/classindex.lisp	2007/03/30 14:34:35	1.34
+++ /project/elephant/cvsroot/elephant/src/elephant/classindex.lisp	2007/03/30 17:45:41	1.35
@@ -71,6 +71,7 @@
   (find-class-index (find-class class-name) :sc sc :errorp errorp))
 
 (defmethod class-indexedp-by-name ((class-name symbol) &key (sc *store-controller*))
+  (declare (ignore sc))
   (let ((class (find-class class-name nil)))
     (when class (indexed class))))
 
--- /project/elephant/cvsroot/elephant/src/elephant/variables.lisp	2007/03/30 17:28:50	1.12
+++ /project/elephant/cvsroot/elephant/src/elephant/variables.lisp	2007/03/30 17:45:41	1.13
@@ -69,17 +69,6 @@
 	    (intern symbol :elephant))
 	  '(get-cached-instance)))
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; Utilities
-
-;; get rid of spot idx and adjust the arrray
-(defun remove-indexed-element-and-adjust (idx array)
-  (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)))