14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
;;
;; You should have received a copy of the GNU General Public License
;; along with Megatest. If not, see <http://www.gnu.org/licenses/>.
;; strftime('%m/%d/%Y %H:%M:%S','now','localtime')
(declare (unit runs))
(declare (uses db))
(declare (uses common))
(declare (uses mtargs))
(declare (uses rmtmod))
(declare (uses dbfile))
|
<
<
>
>
>
>
>
>
>
<
<
<
|
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
;;
;; You should have received a copy of the GNU General Public License
;; along with Megatest. If not, see <http://www.gnu.org/licenses/>.
;; strftime('%m/%d/%Y %H:%M:%S','now','localtime')
(declare (unit runs))
(declare (uses debugprint))
(declare (uses commonmod))
(declare (uses processmod))
(declare (uses configfmod))
(declare (uses mtargs))
(declare (uses rmtmod))
(declare (uses dbfile))
(declare (uses megatestmod))
(declare (uses db))
(declare (uses common))
(declare (uses items))
(declare (uses runconfig))
(declare (uses tests))
(declare (uses server))
(declare (uses mt))
(declare (uses archive))
(use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (srfi 18)
posix-extras directory-utils pathname-expand typed-records format sxml-serializer
sxml-modifications matchable)
|
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
(import commonmod
processmod
configfmod
debugprint
rmtmod
dbfile
(prefix mtargs args:))
;; use this struct to facilitate refactoring
;;
(defstruct runs:dat
reglen regfull
|
>
|
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
(import commonmod
processmod
configfmod
debugprint
rmtmod
dbfile
megatestmod
(prefix mtargs args:))
;; use this struct to facilitate refactoring
;;
(defstruct runs:dat
reglen regfull
|