24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
+
|
(declare (uses mtver))
(declare (uses debugprint))
(declare (uses commonmod))
(declare (uses configfmod))
(declare (uses rmtmod))
(declare (uses mtargs))
(declare (uses testsmod))
(declare (uses dbmgrmod))
(module dcommon
*
(import scheme
chicken.base
chicken.condition
|
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
+
|
srfi-69
sparse-vectors
srfi-1
)
(import mtver
dbmod
dbmgrmod
commonmod
debugprint
configfmod
rmtmod
;; gutils
(prefix mtargs args:)
testsmod)
|