common-lisp - 如何正确等待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你在找什么？