Update of /project/elephant/cvsroot/elephant/src/contrib/rread/dcm In directory clnet:/tmp/cvs-serv22391
Modified Files: dcm.lisp Log Message: Minor keyword change
--- /project/elephant/cvsroot/elephant/src/contrib/rread/dcm/dcm.lisp 2007/02/20 15:54:21 1.2 +++ /project/elephant/cvsroot/elephant/src/contrib/rread/dcm/dcm.lisp 2007/04/27 02:09:16 1.3 @@ -393,10 +393,10 @@ (defmethod initialize-btree ((dir elephant-director) c) (let* ((name (format nil "DCM-SPECIAL-~A" c)) (sc (slot-value dir 'root)) - (bt (get-from-root name :store-controller sc))) + (bt (get-from-root name :sc sc))) (format t "bt of name ~A is: ~A~%" name bt) (unless bt - (setf bt (add-to-root name (make-btree sc) :store-controller sc))) + (setf bt (add-to-root name (make-btree sc) :sc sc))) (setf (slot-value dir 'dcm-btree) bt)) dir ) @@ -409,7 +409,7 @@ ;; excellent idea. ;; (defun empty-out-corrupted-btree (c sc) ;; (let* ((name (format nil "DCM-SPECIAL-~A" (class-name c))) -;; (bt (get-from-root name :store-controller sc))) +;; (bt (get-from-root name :sc sc))) ;; "delete from keyvalue where clct_id = ") ;; )