[elephant-cvs] CVS update: elephant/src/utils.lisp

[blee at common-lisp.net]

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