77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
0))
(if (args:get-arg "-h")
(begin
(print help)
(exit)))
(if (not (setup-for-run))
(begin
(print "Failed to find megatest.config, exiting")
(exit 1)))
(define *db* #f) ;; (open-db))
(if (args:get-arg "-host")
|
|
|
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
0))
(if (args:get-arg "-h")
(begin
(print help)
(exit)))
(if (not (launch:setup-for-run))
(begin
(print "Failed to find megatest.config, exiting")
(exit 1)))
(define *db* #f) ;; (open-db))
(if (args:get-arg "-host")
|