Changeset 463 for trunk/src/base-tools

Timestamp:

05/09/11 14:11:39 (14 years ago)

Author:

lgiessmann

Message:

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

File:

• trunk/src/base-tools/base-tools.lisp (modified) (1 diff)

trunk/src/base-tools/base-tools.lisp ¶

@@ -579 +579 @@
    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)))