[elephant-cvs] CVS elephant/src/elephant

[ieslick]

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

Modified Files:
	pset.lisp 
Log Message:
Small fix to metaclass issues in pset

--- /project/elephant/cvsroot/elephant/src/elephant/pset.lisp	2007/06/12 14:17:45	1.4
+++ /project/elephant/cvsroot/elephant/src/elephant/pset.lisp	2007/06/26 15:27:50	1.5
@@ -31,7 +31,7 @@
 ;; Public API
 ;;
 
-(defpclass pset (persistent-collection) ()
+(defclass pset () ()
   (:documentation "An unordered persistent collection of unique elements according to
                    serializer equal comparison"))
 
@@ -72,7 +72,7 @@
 (defmethod build-pset ((sc store-controller))
   "Default pset method; override if backend has better policy"
   (let ((btree (make-btree sc)))
-    (make-instance 'default-pset :btree btree :sc sc)))
+    (make-instance 'default-pset :btree btree)))
 
 (defun make-pset (&key items pset (sc *store-controller*))
   (let ((new-pset (build-pset sc)))