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