[Delay translating the pathname for bdb stores until open time
clinton@unknownlamer.org**20080117200752
 This avoids evil issues with changing the data root
] {
hunk ./src/database.lisp 53
-(defvar *db-spec* (list :bdb (translate-logical-pathname "golf:bdb;"))
+(defvar *db-spec* (list :bdb "golf:bdb;")
hunk ./src/database.lisp 61
-    (setq *db-store* (open-store *db-spec*))))
+    (setq *db-store* (open-store
+		      (let ((*db-spec* (copy-list *db-spec*)))
+			(if (eq (car *db-spec*) :bdb)
+			    (setf (cadr *db-spec*)
+				  (translate-logical-pathname (cadr *db-spec*))))
+			*db-spec*)))))
+
}