40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
commonmod
;; debugprint
)
(import debugprint)
(define num-run-dbs (make-parameter 10)) ;; number of db's in .megatest
;;======================================================================
;; R E C O R D S
;;======================================================================
;; a single Megatest area with it's multiple dbs is
;; managed in a dbstruct
|
>
|
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
commonmod
;; debugprint
)
(import debugprint)
(define num-run-dbs (make-parameter 10)) ;; number of db's in .megatest
(define keep-age-param (make-parameter 10))
;;======================================================================
;; R E C O R D S
;;======================================================================
;; a single Megatest area with it's multiple dbs is
;; managed in a dbstruct
|