48
49
50
51
52
53
54
55
56
57
58
|
(declare (uses commonmod))
(import commonmod)
(define *rundb-mutex* (make-mutex)) ;; prevent problems opening/closing rundb's
(define *number-of-writes* 0)
(define *number-non-write-queries* 0)
;; tiresome setup for rmtmod (and other mods) goes here
;; (set-fn 'db:dbfile-path common:get-db-tmp-area)
|
<
<
<
|
48
49
50
51
52
53
54
55
|
(declare (uses commonmod))
(import commonmod)
(define *rundb-mutex* (make-mutex)) ;; prevent problems opening/closing rundb's
(define *number-of-writes* 0)
(define *number-non-write-queries* 0)
(set-fn 'db:setup dbmod#db:setup)
|