Author: lgiessmann Date: Mon May 9 10:11:39 2011 New Revision: 463

Log: base-tools: fixed a bug in open-tm-store, when a store-controller is set and so a store is opened

Modified: trunk/src/base-tools/base-tools.lisp

Modified: trunk/src/base-tools/base-tools.lisp ============================================================================== --- trunk/src/base-tools/base-tools.lisp (original) +++ trunk/src/base-tools/base-tools.lisp Mon May 9 10:11:39 2011 @@ -578,8 +578,8 @@ :register, so one store canbe used by several instances of isidorus in parallel." (if elephant:*store-controller* - (elephant:open-store (get-store-spec pathname) :register t) - elephant:*store-controller*)) + elephant:*store-controller* + (elephant:open-store (get-store-spec pathname) :register t)))

(defun close-tm-store ()