27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
+
+
-
-
-
-
-
-
+
+
+
+
+
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
+
-
+
+
|
http-client srfi-18 extras format)
;; Added for csv stuff - will be removed
;;
(use sparse-vectors)
(declare (uses mtargs))
(import (prefix mtargs args:))
(declare (uses ducttape-lib))
(import ducttape-lib)
(declare (uses pkts))
(import pkts)
(declare (uses ulex))
(declare (uses dbmod))
(declare (uses servermod))
(declare (uses ducttape-lib))
(declare (uses mutils))
(declare (uses pgdbmod))
(declare (uses pkts))
(declare (uses rmtmod))
(import ulex)
(declare (uses cookie))
(import cookie)
(declare (uses stml2))
(import stml2)
(declare (uses mutils))
(import mutils)
(declare (uses ducttape-lib.import))
(declare (uses pkts.import))
(declare (uses ulex.import))
(declare (uses mutils.import))
(declare (uses ulex.import))
;; invoke the imports
(declare (uses commonmod))
(import commonmod)
(declare (uses rmtmod))
(import rmtmod)
(declare (uses dbmod))
(declare (uses commonmod.import))
(declare (uses itemsmod.import))
(declare (uses keysmod.import))
(declare (uses pgdbmod.import))
(declare (uses tasksmod.import))
(declare (uses odsmod.import))
(import dbmod)
(declare (uses runsmod))
(import runsmod)
(declare (uses testsmod))
(import testsmod)
(declare (uses megamod))
(import megamod)
;; invoke the imports
(declare (uses commonmod.import))
(declare (uses rmtmod.import))
(declare (uses subrunmod.import))
(declare (uses runsmod.import))
(declare (uses megamod.import))
(configf:set-debug-printers debug:print debug:print-info debug:print-error *default-log-port*)
(define *db* #f) ;; this is only for the repl, do not use in general!!!!
(define *default-log-port* (current-error-port))
(include "common_records.scm")
|