27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
(declare (unit db))
(declare (uses common))
(declare (uses debugprint))
(declare (uses dbmod))
(declare (uses dbfile))
(declare (uses keys))
(declare (uses ods))
(declare (uses client))
|
<
>
|
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
(declare (unit db))
(declare (uses common))
(declare (uses debugprint))
(declare (uses dbmod))
(declare (uses dbfile))
(declare (uses keys))
(declare (uses ods))
(declare (uses mt))
(declare (uses commonmod))
(declare (uses mtargs))
(declare (uses rmtmod))
(import commonmod
(prefix mtargs args:))
(use (srfi 18)
extras
tcp
|
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
(define *number-of-writes* 0)
(define *number-non-write-queries* 0)
(import debugprint)
(import dbmod)
(import dbfile)
;; record for keeping state,status and count for doing roll-ups in
;; iterated tests
;;
(defstruct dbr:counts
(state #f)
(status #f)
|
>
|
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
(define *number-of-writes* 0)
(define *number-non-write-queries* 0)
(import debugprint)
(import dbmod)
(import dbfile)
(import rmtmod)
;; record for keeping state,status and count for doing roll-ups in
;; iterated tests
;;
(defstruct dbr:counts
(state #f)
(status #f)
|