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

Modified Files: pset.lisp Log Message: Patch fix for non-persistent pset

--- /project/elephant/cvsroot/elephant/src/elephant/pset.lisp 2007/04/25 02:28:02 1.3 +++ /project/elephant/cvsroot/elephant/src/elephant/pset.lisp 2007/06/12 14:17:45 1.4 @@ -31,7 +31,7 @@ ;; Public API ;;

-(defclass pset (persistent-collection) () +(defpclass pset (persistent-collection) () (: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 :from-oid (oid btree)))) + (make-instance 'default-pset :btree btree :sc sc)))

(defun make-pset (&key items pset (sc *store-controller*)) (let ((new-pset (build-pset sc)))