Overview
| Comment: | Minor message clean up |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-cleanup |
| Files: | files | file ages | folders |
| SHA1: |
edd34fca340340100a57547a94b11670 |
| User & Date: | matt on 2020-08-23 07:53:55 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-08-24
| ||
| 00:23 | Added more granular exception handling ==/9.4/0.9/WARN/2102/mars/== ==/5.7/1.2/WARN/1201/mars/== check-in: 0f33ea4295 user: mrwellan tags: v1.65-cleanup | |
|
2020-08-23
| ||
| 07:53 | Minor message clean up check-in: edd34fca34 user: matt tags: v1.65-cleanup | |
| 00:03 | Remove junk code causing false stack trace. check-in: dfe44999f0 user: matt tags: v1.65-cleanup | |
Changes
Modified common.scm from [cd37d26c89] to [3338602768].
| ︙ | ︙ | |||
2117 2118 2119 2120 2121 2122 2123 |
(thread-sleep! adjwait)
(common:wait-for-cpuload maxload numcpus waitdelay count: (- count 1) msg: msg remote-host: remote-host))
((and (> loadjmp (cond
((> numcpus 8)(/ numcpus 4))
((> numcpus 4)(/ numcpus 2))
(else 0.5)))
(> count 0))
| | | | 2117 2118 2119 2120 2121 2122 2123 2124 2125 2126 2127 2128 2129 2130 2131 2132 |
(thread-sleep! adjwait)
(common:wait-for-cpuload maxload numcpus waitdelay count: (- count 1) msg: msg remote-host: remote-host))
((and (> loadjmp (cond
((> numcpus 8)(/ numcpus 4))
((> numcpus 4)(/ numcpus 2))
(else 0.5)))
(> count 0))
(debug:print-info 0 *default-log-port* "waiting " adjwait " seconds due to possible load jump " loadjmp ". "
(if msg msg ""))
(thread-sleep! adjwait)
(common:wait-for-cpuload maxload numcpus waitdelay count: (- count 1) msg: msg remote-host: remote-host))
(else
(if (> num-tries 0)
(if (common:low-noise-print 30 (conc (round first) "-load-acceptable-" (or remote-host "localhost")))
(debug:print 0 *default-log-port* "Load on " (or remote-host "localhost") " is acceptable at " first " continuing."))
(debug:print 0 *default-log-port* "Load on " (or remote-host "localhost") ", "first" could not be retrieved. Giving up and continuing."))))))
|
| ︙ | ︙ |