7 lines
183 B
Text
7 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!"))
|