154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
|
launchmod
processmod
rmtmod
runsmod
servermod
tasksmod
testsmod
|
|
>
|
>
>
>
>
>
>
>
>
|
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
|
launchmod
processmod
rmtmod
runsmod
servermod
tasksmod
testsmod
ulex
)
;; ;; ulex parameters
;; (work-method 'direct)
;; (return-method 'direct)
;; ulex parameters
(work-method 'mailbox)
(return-method 'mailbox)
;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)
(define *didsomething* #f)
(define *db* #f) ;; this is only for the repl, do not use in general!!!!
;; (include "common_records.scm")
;; (include "key_records.scm")
|