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