如何正确等待n秒

Question

我想实现一个函数，在失败的情况下在重试之前等待n秒，但是实现等待例程的正确方法是什么。

我认为带有if子句的无限循环可能会导致不必要的CPU使用。

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

因此：这会被认为是正确的代码还是有更标准的方式？

Answer 1

不是SLEEP你在寻找什么？