- elephant-cvs@lists.common-lisp.net - mailman3.common-lisp.net

[elephant-cvs] CVS update: elephant/src/classes.lisp
by blee＠common-lisp.net 21 Sep '04

21 Sep '04

Update of /project/elephant/cvsroot/elephant/src In directory common-lisp.net:/tmp/cvs-serv2234/src Modified Files: classes.lisp Log Message: added preliminary support for change-class (though redef class is broken.) Date: Tue Sep 21 21:35:29 2004 Author: blee Index: elephant/src/classes.lisp diff -u elephant/src/classes.lisp:1.11 elephant/src/classes.lisp:1.12 --- elephant/src/classes.lisp:1.11 Sun Sep 19 19:47:44 2004 +++ elephant/src/classes.lisp Tue Sep 21 21:35:29 2004 @@ -111,6 +111,20 @@ ;; let the implementation initialize the transient slots (apply #'call-next-method instance transient-slot-inits initargs))))) +(defmethod update-instance-for-different-class :around ((previous persistent) (current persistent) &rest initargs &key) + "Need to also update the persistent-slots, which have +:class allocation." + (let ((new-persistent-slots + (loop for slotd in (class-slots (class-of current)) + for slot-name = (slot-definition-name slotd) + with old-slot-names = (mapcar #'slot-definition-name + (class-slots (class-of previous))) + when (and (not (member slot-name old-slot-names :test #'eq)) + (persistent-p slotd)) + collect slot-name))) + (apply #'shared-initialize current new-persistent-slots initargs) + (call-next-method))) + (defmethod slot-value-using-class :around (class (instance persistent-object) (slot-def persistent-slot-definition)) "Get the slot value from the database." (declare (optimize (speed 3))

1 0

[elephant-cvs] CVS update: elephant/TODO
by blee＠common-lisp.net 21 Sep '04

21 Sep '04

Update of /project/elephant/cvsroot/elephant In directory common-lisp.net:/tmp/cvs-serv2207 Modified Files: TODO Log Message: update Date: Tue Sep 21 21:34:37 2004 Author: blee Index: elephant/TODO diff -u elephant/TODO:1.6 elephant/TODO:1.7 --- elephant/TODO:1.6 Sun Sep 19 19:41:43 2004 +++ elephant/TODO Tue Sep 21 21:34:37 2004 @@ -43,4 +43,7 @@ cursor-put : move the cursor after insert. -change :transient flag to an allocation type (fix CMUCL!) \ No newline at end of file +change :transient flag to an allocation type (fix CMUCL!) + +make update-class-for-redefined-class work. (persistent +slots are class allocated, this is bad.)

1 0

[elephant-cvs] CVS update: elephant/Makefile
by blee＠common-lisp.net 21 Sep '04

21 Sep '04

Update of /project/elephant/cvsroot/elephant In directory common-lisp.net:/tmp/cvs-serv10579 Modified Files: Makefile Log Message: no install anymore, should be local to asdf Date: Tue Sep 21 03:38:56 2004 Author: blee Index: elephant/Makefile diff -u elephant/Makefile:1.4 elephant/Makefile:1.5 --- elephant/Makefile:1.4 Thu Sep 16 06:11:00 2004 +++ elephant/Makefile Tue Sep 21 03:38:56 2004 @@ -15,8 +15,6 @@ #DBLIBDIR=/usr/local/lib/db42 #DBINCDIR=/usr/local/include/db42 -INSTALLDIR=/usr/local/share/common-lisp/elephant-0.2/ - ifeq (Darwin,$(UNAME)) SHARED=-bundle else @@ -26,5 +24,3 @@ libsleepycat.so: src/libsleepycat.c gcc $(SHARED) -L$(DBLIBDIR) -I$(DBINCDIR) -fPIC -O3 -o $@ $< -ldb -lm -install: libsleepycat.so - install $< $(INSTALLDIR)

1 0

[elephant-cvs] CVS update: elephant/tests/elephant-tests.lisp
by blee＠common-lisp.net 21 Sep '04

21 Sep '04

Update of /project/elephant/cvsroot/elephant/tests In directory common-lisp.net:/tmp/cvs-serv8794/tests Modified Files: elephant-tests.lisp Log Message: use asdf packaging info Date: Tue Sep 21 03:38:12 2004 Author: blee Index: elephant/tests/elephant-tests.lisp diff -u elephant/tests/elephant-tests.lisp:1.3 elephant/tests/elephant-tests.lisp:1.4 --- elephant/tests/elephant-tests.lisp:1.3 Thu Sep 16 06:25:19 2004 +++ elephant/tests/elephant-tests.lisp Tue Sep 21 03:38:12 2004 @@ -82,7 +82,12 @@ (in-package :ele-tests) -(defvar *testdb-path* "/usr/local/share/common-lisp/elephant-0.2/tests/testdb") +(defvar *testdb-path* + ;;"/usr/local/share/common-lisp/elephant-0.2/tests/testdb" + (namestring + (merge-pathnames + #p"tests/testdb/" + (asdf:component-pathname (asdf:find-system 'elephant-tests))))) (defun do-all-tests() (with-open-store (*testdb-path*)

1 0

[elephant-cvs] CVS update: elephant/src/sleepycat.lisp
by blee＠common-lisp.net 21 Sep '04

21 Sep '04

Update of /project/elephant/cvsroot/elephant/src In directory common-lisp.net:/tmp/cvs-serv8199/src Modified Files: sleepycat.lisp Log Message: use asdf packaging info Date: Tue Sep 21 03:37:21 2004 Author: blee Index: elephant/src/sleepycat.lisp diff -u elephant/src/sleepycat.lisp:1.11 elephant/src/sleepycat.lisp:1.12 --- elephant/src/sleepycat.lisp:1.11 Sun Sep 19 19:51:56 2004 +++ elephant/src/sleepycat.lisp Tue Sep 21 03:37:21 2004 @@ -144,7 +144,11 @@ ;; Libsleepycat.so: edit this (unless (uffi:load-foreign-library - "/usr/local/share/common-lisp/elephant-0.2/libsleepycat.so" + (if (find-package 'asdf) + (merge-pathnames + #p"libsleepycat.so" + (asdf:component-pathname (asdf:find-system 'elephant))) + "/usr/local/share/common-lisp/elephant-0.2/libsleepycat.so") :module "libsleepycat") (error "Couldn't load libsleepycat!"))

1 0

[elephant-cvs] CVS update: elephant/src/elephant.lisp
by blee＠common-lisp.net 21 Sep '04

21 Sep '04

Update of /project/elephant/cvsroot/elephant/src In directory common-lisp.net:/tmp/cvs-serv5844/src Modified Files: elephant.lisp Log Message: typo: forgot remove-from-root Date: Tue Sep 21 03:35:11 2004 Author: blee Index: elephant/src/elephant.lisp diff -u elephant/src/elephant.lisp:1.12 elephant/src/elephant.lisp:1.13 --- elephant/src/elephant.lisp:1.12 Sun Sep 19 19:49:55 2004 +++ elephant/src/elephant.lisp Tue Sep 21 03:35:11 2004 @@ -52,7 +52,8 @@ #:open-store #:close-store #:with-open-store #:store-controller #:open-controller #:close-controller #:with-open-controller #:controller-path #:controller-environment - #:controller-db #:controller-root #:add-to-root #:get-from-root + #:controller-db #:controller-root + #:add-to-root #:get-from-root #:remove-from-root #:start-transaction #:commit-transaction #:abort-transaction #:persistent #:persistent-object #:persistent-metaclass

1 0

[elephant-cvs] CVS update: elephant/src/collections.lisp
by blee＠common-lisp.net 21 Sep '04

21 Sep '04

Update of /project/elephant/cvsroot/elephant/src In directory common-lisp.net:/tmp/cvs-serv5811/src Modified Files: collections.lisp Log Message: typo: forgot populate keyword on generic add-index Date: Tue Sep 21 03:34:32 2004 Author: blee Index: elephant/src/collections.lisp diff -u elephant/src/collections.lisp:1.8 elephant/src/collections.lisp:1.9 --- elephant/src/collections.lisp:1.8 Sun Sep 19 19:48:11 2004 +++ elephant/src/collections.lisp Tue Sep 21 03:34:31 2004 @@ -106,7 +106,7 @@ (declare (ignore slot-names rest)) (setf (indices-cache instance) (indices instance))) -(defgeneric add-index (bt &key index-name key-form) +(defgeneric add-index (bt &key index-name key-form populate) (:documentation "Add a secondary index. The indices are stored in an eq hash-table, so the index-name should be a symbol. key-form

1 0

[elephant-cvs] CVS update: elephant/ChangeLog
by blee＠common-lisp.net 19 Sep '04

19 Sep '04

Update of /project/elephant/cvsroot/elephant In directory common-lisp.net:/tmp/cvs-serv31463 Modified Files: ChangeLog Log Message: automagic! Date: Sun Sep 19 20:04:09 2004 Author: blee Index: elephant/ChangeLog diff -u elephant/ChangeLog:1.2 elephant/ChangeLog:1.3 --- elephant/ChangeLog:1.2 Thu Sep 2 17:11:58 2004 +++ elephant/ChangeLog Sun Sep 19 20:04:09 2004 @@ -1,4 +1,548 @@ +2004-09-19 12:52 blee + + * tests/testcollections.lisp: tests for :populate + +2004-09-19 12:52 blee + + * src/utils.lisp: transaction stack + +2004-09-19 12:51 blee + + * src/sleepycat.lisp: better features flags eval-when madness + +2004-09-19 12:50 blee + + * src/metaclasses.lisp: docstrings fix + +2004-09-19 12:50 blee + + * src/libsleepycat.c: ICU license stuff + +2004-09-19 12:49 blee + + * src/elephant.lisp: updates + +2004-09-19 12:49 blee + + * src/controller.lisp: docstring fix, some easy transaction + functions + +2004-09-19 12:46 blee + + * src/: berkeley-db.lisp, classes.lisp, collections.lisp: docstring + fix + +2004-09-19 12:44 blee + + * doc/: package-elephant.texinfo, reference.texinfo, + tutorial.texinfo, copying.texinfo, cvs2cl.pl, docstrings.lisp, + elephant.texinfo, intro.texinfo, make-ref.lisp, notes.texinfo: + first version of texinfo docs, automagic changelog + +2004-09-19 12:39 blee + + * NOTES, README, TODO: updates + +2004-09-19 12:38 blee + + * NEWS: updates for release + +2004-09-19 12:37 blee + + * LICENSE: added ICU license bit + +2004-09-19 12:36 blee + + * CREDITS, INSTALL: updates + +2004-09-15 23:29 blee + + * tests/testsorter.lisp: initiali version + +2004-09-15 23:28 blee + + * tests/testsleepycat.lisp: first stab at RT-ifying + +2004-09-15 23:27 blee + + * tests/testserializer.lisp: buffer-streamified + +2004-09-15 23:26 blee + + * tests/testcollections.lisp: test btrees, secondary indices and + cursors + +2004-09-15 23:26 blee + + * tests/mop-tests.lisp: updates makunbound + +2004-09-15 23:25 blee + + * tests/elephant-tests.lisp: updates + +2004-09-15 23:23 blee + + * src/utils.lisp: doc-strings buffer-streams to sleepycat.lisp + with-transaction defaults to *auto-commit* nil + +2004-09-15 23:22 blee + + * src/sleepycat.lisp: split off berkeley-db doc-strings + buffer-streamified cmu pointer arithmetic + +2004-09-15 23:20 blee + + * src/serializer.lisp: doc-strings buffer-streamified sanified type + tags + +2004-09-15 23:19 blee + + * src/berkeley-db.lisp: split from sleepycat.lisp doc-strings + buffer-streamified + +2004-09-15 23:19 blee + + * src/metaclasses.lisp: docstrings changeover to buffer-streams + +2004-09-15 23:18 blee + + * src/libsleepycat.c: need to memcpy on writers (alignment) + lisp-cmp func, assoc / btree cmp stuff cursor pget, remove key + value using cursor length->size + +2004-09-15 23:16 blee + + * src/elephant.lisp: doc-strings slot-makunbound-using-class + +2004-09-15 23:15 blee + + * src/controller.lisp: doc-strings table-layout for btrees better + with-open-store macro + +2004-09-15 23:14 blee + + * src/collections.lisp: doc-strings secondary indices cursors + +2004-09-15 23:14 blee + + * src/classes.lisp: doc-strings slot-makunbound-using-class init + transients after persistents + +2004-09-15 23:12 blee + + * elephant.asd: berkeley-db license description + +2004-09-15 23:11 blee + + * elephant-tests.asd: testcollections + +2004-09-15 23:11 blee + + * TODO: updates + +2004-09-15 23:11 blee + + * Makefile: libmath, bumped version + +2004-09-04 04:16 blee + + * tests/: elephant-tests.lisp, mop-tests.lisp, testserializer.lisp: + fixed imports + +2004-09-04 04:03 blee + + * Makefile: back to Linux default + +2004-09-04 03:59 blee + + * src/serializer.lisp: really fixed the array types (hopefully!) + +2004-09-04 03:28 blee + + * src/controller.lisp: incorporated Rafal Strzalinski's fix (don't + close environments / db's twice) + +2004-09-04 03:24 blee + + * tests/elephant-tests.lisp: initial version + +2004-09-04 03:24 blee + + * tests/: mop-tests.lisp, testserializer.lisp: made into RT tests, + added a bunch + +2004-09-04 03:23 blee + + * src/utils.lisp: fixed macro arg (dynamic, not lexical) / typo + fixed finalizer in allegro (don't close over the value or it will + never be collected) + +2004-09-04 03:20 blee + + * src/serializer.lisp: +base-char+ => +char+ handle uninterned + symbols / symbols in another package optimizations / fixes for + bignums fill-pointers circularity fixes (big typo!) automatic + numeric array definition types + +2004-09-04 03:17 blee + + * src/elephant.lisp: update + +2004-09-04 03:16 blee + + * src/controller.lisp: fixed macros + +2004-09-04 03:16 blee + + * src/classes.lisp: initialize-instance obj : forgot to cache + instances initialize-instance class => shared-initialize : + reinitialize instance fixes shared-initialize obj : transients + before persistents + +2004-09-04 03:13 blee + + * elephant.asd: typo + +2004-09-04 03:12 blee + + * elephant-tests.asd: initial version + +2004-09-04 03:12 blee + + * TODO: update + +2004-09-02 10:19 blee + + * INSTALL: update of docs (for openmcl, revisions) + +2004-09-02 10:11 blee + + * ChangeLog, INSTALL, NEWS, TODO, TUTORIAL: update of docs (for + openmcl, revisions) + +2004-09-02 09:47 blee + + * src/elephant.lisp: turns out i need to shadow with-transaction + after all! + +2004-09-02 09:47 blee + + * src/utils.lisp: nested transactions are borking -- kword default + to with-transactions should be '*current-transaction*, not + *current-transaction* -- i want to capture the dynamic, not + lexical environment + +2004-09-02 09:47 blee + + * src/sleepycat.lisp: next-oid fix: bug in counters, they weren't + using the parent transactions and so were dead locking inside of + with-transactions + + nested transactions are borking -- kword default to + with-transactions should be '*current-transaction*, not + *current-transaction* -- i want to capture the dynamic, not + lexical environment + +2004-09-02 09:45 blee + + * src/libsleepycat.c: next-oid fix: bug in counters, they weren't + using the parent transactions and so were dead locking inside of + with-transactions + +2004-09-02 09:42 blee + + * src/controller.lisp: next-oid fix: bug in counters, they weren't + using the parent transactions and so were dead locking inside of + with-transactions + +2004-09-02 09:41 blee + + * src/classes.lisp: typo + +2004-09-02 09:39 blee + + * TUTORIAL: comments on initforms and transactions + +2004-09-02 02:32 blee + + * tests/testserializer.lisp: typo + +2004-09-02 02:30 blee + + * tests/mop-tests.lisp: initarg / form tests + +2004-09-02 02:21 blee + + * src/utils.lisp: reorder, typos + +2004-09-02 02:18 blee + + * src/sleepycat.lisp: openmcl, errors on library load failure + +2004-09-02 02:15 blee + + * src/metaclasses.lisp: openmcl + +2004-09-02 02:10 blee + + * src/elephant.lisp: openmcl + +2004-09-02 02:09 blee + + * src/classes.lisp: openmcl, fixed shared-initialize, + slot-mkunbound + +2004-09-02 02:05 blee + + * TODO: notes from rtoy on bignums + +2004-09-02 02:03 blee + + * Makefile: conditionalize darwin + +2004-09-02 02:01 blee + + * INSTALL: 0.1 + +2004-08-30 18:53 blee + + * NEWS: versions + +2004-08-30 18:46 blee + + * CREDITS, INSTALL, NEWS, README: edits + +2004-08-30 17:05 blee + + * README: reorg + +2004-08-30 17:05 blee + + * CREDITS, ChangeLog, NEWS: initial version + +2004-08-30 16:39 blee + + * tests/mop-tests.lisp, tests/testserializer.lisp, + tests/testsleepycat.lisp, TODO: initial version + +2004-08-30 16:37 blee + + * NOTES: added preliminary notes on the metaclass stuff + +2004-08-30 16:36 blee + + * src/sleepycat.lisp: db-delete-* returns T on success, Nil if it + couldn't find the record + +2004-08-30 16:14 blee + + * src/elephant.lisp: merged in andrew's fixes: class slots, + inheritence. + +2004-08-30 16:14 blee + + * src/: classes.lisp, metaclasses.lisp: merged in andrew's fixes: + class slots, inheritence. added slot-boundp, slot-makunbound. + +2004-08-29 15:41 blee + + * src/sleepycat.lisp: new license, non-interned exports (thanks + Rafal Strzalinski) + +2004-08-29 15:40 blee + + * src/serializer.lisp: new license, bignum bugfix, don't save class + slots + +2004-08-29 15:40 blee + + * src/metaclasses.lisp: new license, declare optimize + +2004-08-29 15:39 blee + + * src/: libsleepycat.c, utils.lisp: new license + +2004-08-29 15:38 blee + + * src/elephant.lisp: new license, non-interned exports + +2004-08-29 15:37 blee + + * src/controller.lisp: new license, better defaults for root + methods + +2004-08-29 15:36 blee + + * src/collections.lisp: new license, should return values on setf + +2004-08-29 15:35 blee + + * elephant.asd, src/classes.lisp: new license + +2004-08-29 15:35 blee + + * TUTORIAL: updates, persistent classes, collections, threading, + performance + +2004-08-29 15:34 blee + + * Makefile: first version, thank you Rafal Strzalinski + +2004-08-29 15:32 blee + + * LICENSE: new license + +2004-08-29 15:31 blee + + * INSTALL: updates + +2004-08-29 02:55 blee + + * src/sleepycat.lisp: linux / sbcl, reorg + +2004-08-29 02:54 blee + + * src/serializer.lisp: split off utils.lisp, cleanup + +2004-08-29 02:54 blee + + * src/libsleepycat.c: next_counter: release lock on error, + DB_TXN_NOSYNC (speed!) + +2004-08-29 02:53 blee + + * src/elephant.lisp: updates, split off utils.lisp, sbcl imports + for MOP + +2004-08-29 02:51 blee + + * TUTORIAL, INSTALL: open/close-store + +2004-08-29 02:48 blee + + * src/controller.lisp: missing generic warnings, open/close-store + +2004-08-29 02:48 blee + + * src/collections.lisp: missing generic warnings + +2004-08-29 02:47 blee + + * src/utils.lisp: initial version + +2004-08-29 02:46 blee + + * src/: classes.lisp, metaclasses.lisp: andrew's new stuff, work + for sbcl + +2004-08-29 02:45 blee + + * elephant.asd: license, new metaclass / util files + +2004-08-29 02:45 blee + + * TUTORIAL: typos + +2004-08-29 02:44 blee + + * NOTES: updates + +2004-08-29 02:43 blee + + * INSTALL: linux / sbcl + +2004-08-28 01:41 blee + + * src/sleepycat.lisp: fixed with-transaction (no separate retry + version) to use throw / catch (non-consing!). + + poor man's counters. + +2004-08-28 01:41 blee + + * src/serializer.lisp: deserialize can take nil + +2004-08-28 01:40 blee + + * src/libsleepycat.c: poor man's counters + +2004-08-28 01:40 blee + + * src/elephant.lisp: no with-transaction-retry + +2004-08-28 01:39 blee + + * src/controller.lisp: poor man's counters, performance tweaking + +2004-08-28 01:39 blee + + * src/collections.lisp: performance tweaking + +2004-08-28 01:37 blee + + * elephant.asd: changed to serial compilation -- still getting + weird performance issues with recompilation! + +2004-08-27 12:32 blee + + * src/: libsleepycat.c, serializer.lisp, sleepycat.lisp: license + +2004-08-27 12:31 blee + + * src/: controller.lisp, elephant.lisp: license, name changes, + with-transaction* defaulters + +2004-08-27 12:31 blee + + * src/: classes.lisp, collections.lisp: license, name changes + +2004-08-27 12:31 blee + + * NOTES: more changes than i can count + +2004-08-27 12:28 blee + + * INSTALL, functions.lisp, elephant.asd, TUTORIAL, README, LICENSE: + first version + +2004-08-26 21:59 blee + + * NOTES: beginning of a developer doc + +2004-08-26 21:58 blee + + * src/collections.lisp: integrated with new serializer + +2004-08-26 21:58 blee + + * src/controller.lisp: the great simplification effort - specials + +2004-08-26 21:57 blee + + * src/elephant.lisp: weak hashes + +2004-08-26 21:57 blee + + * src/serializer.lisp: aggregate object support + +2004-08-26 21:54 blee + + * src/: sleepycat.lisp, libsleepycat.c: beginning of lock and + cursor support + +2004-08-26 21:53 blee + + * src/classes.lisp: new MOP stuff + +2004-08-19 12:05 blee + + * src/: classes.lisp, collections.lisp, controller.lisp, + elephant.lisp, serializer.lisp, sleepycat.lisp, libsleepycat.c: + Initial revision + +2004-08-19 12:05 blee + + * src/: classes.lisp, collections.lisp, controller.lisp, + elephant.lisp, serializer.lisp, sleepycat.lisp, libsleepycat.c: + Start -9/02/2004 - Alpha 0.1-p1: OID counter bugfix, OpenMCL support. - -8/30/2004 - Alpha 0.1. \ No newline at end of file

1 0

[elephant-cvs] CVS update: elephant/tests/testcollections.lisp
by blee＠common-lisp.net 19 Sep '04

19 Sep '04

Update of /project/elephant/cvsroot/elephant/tests In directory common-lisp.net:/tmp/cvs-serv28172/tests Modified Files: testcollections.lisp Log Message: tests for :populate Date: Sun Sep 19 19:52:51 2004 Author: blee Index: elephant/tests/testcollections.lisp diff -u elephant/tests/testcollections.lisp:1.1 elephant/tests/testcollections.lisp:1.2 --- elephant/tests/testcollections.lisp:1.1 Thu Sep 16 06:26:37 2004 +++ elephant/tests/testcollections.lisp Sun Sep 19 19:52:51 2004 @@ -421,4 +421,31 @@ (pcursor-pkey (cursor-pget-both c 10 101)) (pcursor-pkey (cursor-pget-both-range c 11 111.4)))) - 0 2 10 11 10 9 9999 3000 2000 101 112) \ No newline at end of file + 0 2 10 11 10 9 9999 3000 2000 101 112) + +(defvar index4) + +(deftest newindex + (finishes + (with-transaction () + (setq index4 + (add-index indexed2 :index-name 'crunch :key-form 'crunch + :populate t)))) + t) + +(deftest pcursor2 + (with-btree-cursor (c index4) + (values + (pcursor-pkey (cursor-pfirst c)) + (pcursor-pkey (cursor-pnext c)) + (pcursor-pkey (cursor-pnext-nodup c)) + (pcursor-pkey (cursor-pnext-dup c)) + (pcursor-pkey (cursor-pprev c)) + (pcursor-pkey (cursor-pprev-nodup c)) + (pcursor-pkey (cursor-plast c)) + (pcursor-pkey (cursor-pset c 300)) + (pcursor-pkey (cursor-pset-range c 199.5)) + (pcursor-pkey (cursor-pget-both c 10 101)) + (pcursor-pkey (cursor-pget-both-range c 11 111.4)))) + + 0 2 10 11 10 9 9999 3000 2000 101 112)

1 0

[elephant-cvs] CVS update: elephant/src/utils.lisp
by blee＠common-lisp.net 19 Sep '04

19 Sep '04

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

1 0