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