[cl-prevalence-cvs] CVS update: cl-prevalence/test/test-managed-prevalence.lisp cl-prevalence/test/test-prevalence.lisp

[Sven Van Caekenberghe]

Update of /project/cl-prevalence/cvsroot/cl-prevalence/test
In directory common-lisp.net:/tmp/cvs-serv1751/test

Modified Files:
	test-prevalence.lisp 
Added Files:
	test-managed-prevalence.lisp 
Log Message:
merged in a contribution from randall randall: you can now create indexes on slots using index-on (or delete them using drop-index-on) and query using those indexes using find-object-with-slot

Date: Tue Oct  5 13:35:31 2004
Author: scaekenberghe



Index: cl-prevalence/test/test-prevalence.lisp
diff -u cl-prevalence/test/test-prevalence.lisp:1.2 cl-prevalence/test/test-prevalence.lisp:1.3
--- cl-prevalence/test/test-prevalence.lisp:1.2	Fri Jun 25 18:19:05 2004
+++ cl-prevalence/test/test-prevalence.lisp	Tue Oct  5 13:35:30 2004
@@ -1,6 +1,6 @@
 ;;;; -*- mode: Lisp -*-
 ;;;;
-;;;; $Id: test-prevalence.lisp,v 1.2 2004/06/25 16:19:05 scaekenberghe Exp $
+;;;; $Id: test-prevalence.lisp,v 1.3 2004/10/05 11:35:30 scaekenberghe Exp $
 ;;;;
 ;;;; Testing Object Prevalence in Common Lisp
 ;;;;
@@ -33,12 +33,6 @@
    (lastname :initarg :lastname :accessor get-lastname)))
 
 ;; Some basic functions to construct transactions from
-
-(defun tx-create-id-counter (system)
-  (setf (get-root-object system :id-counter) 0))
-
-(defun tx-get-next-id (system)
-  (incf (get-root-object system :id-counter)))
 
 (defun tx-create-persons-root (system)
   (setf (get-root-object system :persons) (make-hash-table)))