79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
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 *useserver* (cond
((args:get-arg "-use-local") #f)
((configf:lookup *configdat* "dashboard" "use-server")
|
|
|
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
0))
(if (args:get-arg "-h")
(begin
(print help)
(exit)))
(if (not (launch:setup))
(begin
(print "Failed to find megatest.config, exiting")
(exit 1)))
(define *useserver* (cond
((args:get-arg "-use-local") #f)
((configf:lookup *configdat* "dashboard" "use-server")
|