Update of /project/elephant/cvsroot/elephant/src In directory common-lisp.net:/tmp/cvs-serv28145/src
Modified Files: utils.lisp Log Message: transaction stack
Date: Sun Sep 19 19:52:18 2004 Author: blee
Index: elephant/src/utils.lisp diff -u elephant/src/utils.lisp:1.6 elephant/src/utils.lisp:1.7 --- elephant/src/utils.lisp:1.6 Thu Sep 16 06:23:49 2004 +++ elephant/src/utils.lisp Sun Sep 19 19:52:18 2004 @@ -58,6 +58,9 @@ (defvar *auto-commit* T "Commit things not in transactions?")
+(defvar *transaction-stack* (make-array 0 :adjustable t :fill-pointer t) + "Used if the user manually creates transactions.") + ;; Stuff the serializer uses (defvar *lisp-obj-id* 0 "Circularity ids for the serializer.") @@ -80,13 +83,15 @@ (make-array 0 :adjustable t :fill-pointer t)) (*store-controller* *store-controller*) (*auto-commit* *auto-commit*) + (*transaction-stack* + (make-array 0 :adjustable t :fill-pointer t)) (*lisp-obj-id* 0) (*circularity-hash* (make-hash-table :test 'eq)) #+(or cmu sbcl allegro) (*resourced-byte-spec* (byte 32 0))) (declare (special *current-transaction* sleepycat::*errno-buffer* sleepycat::*buffer-streams* - *store-controller* *auto-commit* + *store-controller* *auto-commit* *transaction-stack* *lisp-obj-id* *circularity-hash* #+(or cmu sbcl allegro) *resourced-byte-spec*)) (funcall thunk)))