3 ms·
Here's an example from my `pelo` project: https://github.com/zhaqenl/pelo/blob/master/pelo.lisp#L112 https://github.com/zhaqenl/pelo/blob/master/pelo.lisp#L112
by zhaqenl 8y ago
Here's an example from my `pelo` project:
https://github.com/zhaqenl/pelo/blob/master/pelo.lisp#L112 https://github.com/zhaqenl/pelo/blob/master/pelo.lisp#L112
(defun get-ping (host)
"Get ping reply from host."
(inferior-shell:run/ss
`(inferior-shell:pipe (ping -c 1 ,host) (grep "time=")
(sed -e "s/^.*time=//;s/
*ms$//"))))
The idea is from a similar project in a different Lisp dialect:
https://github.com/ebzzry/pell/blob/master/pell#L124 https://github.com/ebzzry/pell/blob/master/pell#L124