如何正確等待n秒

Question

我想實現一個在發生故障時重試前等待n秒的函數，但是實現等待例程的正確方法是什麼。

我認爲帶有if-clause的無限循環可能會導致不必要的CPU使用率。

(do ((time (+ (get-universal-time) (- n 1))) 
    (time-cur (get-universal-time) (get-universal-time))) 
    ((< time time-cur) nil)) 

因此：這會被認爲是正確的代碼還是有更標準的方法？

Answer 1

是不是SLEEP你在找什麼？