6 lines
183 B
Text
6 lines
183 B
Text
(let ((usec (progn (put-string "enter sleep usecs: ")
|
|
(tointz (get-line)))))
|
|
(put-string "Sleeping ... ")
|
|
(flush-stream)
|
|
(usleep usec)
|
|
(put-line "Awake!"))
|