[elephant-cvs] CVS elephant/src/contrib/rread/dcm

[rread]

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 = ")
 ;;     )