Changeset 2609

Show
Ignore:
Timestamp:
02/24/08 00:19:22 (9 months ago)
Author:
hans
Message:

Multi-store fixes and tutorial update.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/bknr/datastore/src/data/tutorial.lisp

    r1635 r2609  
    7373;;; indices module by evaluating the following form: 
    7474 
    75 (asdf:oos 'asdf:load-op :bknr-datastore) 
     75(asdf:oos 'asdf:load-op :bknr.datastore) 
    7676 
    7777;;; Then switch to the `bknr.datastore' package to try out the tutorial. 
    …… 
    134134;;; directory "/tmp/tutorial-store". 
    135135 
     136(close-store) 
    136137(make-instance 'tutorial-store :directory "/tmp/tutorial-store/" 
    137138               :subsystems nil) 
    …… 
    180181(close-store) 
    181182; => NIL 
    182 *store* 
     183(boundp '*store*) 
    183184; => NIL 
    184185 
    …… 
    339340;;; subsystem `STORE-OBJECT-SUBSYSTEM'. 
    340341 
     342(close-store) 
    341343(make-instance 'mp-store :directory "/tmp/object-store/" 
    342344               :subsystems (list 
    …… 
    372374; at timestamp 3309260107 
    373375; => #<STORE-OBJECT ID: 12> 
    374 (store-object-with-id 12) 
    375 ; => #<STORE-OBJECT ID: 12> 
    376 (delete-object (store-object-with-id 12)) 
    377 ; executing transaction #$(TX-DELETE-OBJECT 12) 
     376(store-object-with-id 2) 
     377; => #<STORE-OBJECT ID: 2> 
     378(delete-object (store-object-with-id 2)) 
     379; executing transaction #$(TX-DELETE-OBJECT 2) 
    378380; at timestamp 3309260112 
    379381; => T 
    380 (store-object-with-id 12) 
     382(store-object-with-id 2) 
    381383; => NIL 
    382384 

  • trunk/bknr/datastore/src/data/txn.lisp

    r2600 r2609  
    106106 
    107107(defun close-store () 
    108   (when *store* 
    109     (close-store-object *store*)) 
    110   (setf *store* nil)) 
     108  (when (and (boundp '*store) *store*) 
     109    (close-object *store*)) 
     110  (makunbound '*store*)) 
    111111 
    112112(defmacro with-store-guard ((&optional (store '*store*)) &rest body)