[elephant-cvs] CVS elephant/src/elephant

[ieslick]

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