247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
|
(- newcount 10)
0)))
(set! *api-process-request-count* newcount)
(set! *db-last-access* (current-seconds))
(match indat
((cmd run-id params meta)
(let* ((status (cond
;; ((> newcount 30) 'busy)
;; ((> newcount 15) 'loaded)
(else 'ok)))
(errmsg (case status
((busy) (conc "Server overloaded, "newcount" threads in flight"))
((loaded) (conc "Server loaded, "newcount" threads in flight"))
(else #f)))
(result (case status
((busy) (- newcount 29))
|
|
|
|
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
|
(- newcount 10)
0)))
(set! *api-process-request-count* newcount)
(set! *db-last-access* (current-seconds))
(match indat
((cmd run-id params meta)
(let* ((status (cond
((> newcount 30) 'busy)
((> newcount 15) 'loaded)
(else 'ok)))
(errmsg (case status
((busy) (conc "Server overloaded, "newcount" threads in flight"))
((loaded) (conc "Server loaded, "newcount" threads in flight"))
(else #f)))
(result (case status
((busy) (- newcount 29))
|