From 9a805c1a1bd7c8424bd5a20e59e65b150e380583 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sat, 23 Aug 2008 02:11:10 +0200 Subject: [PATCH] Fix typo in REPEAT-DECREASING-TIMEOUT. Signed-off-by: Stelian Ionescu --- syscalls/conditions.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/syscalls/conditions.lisp b/syscalls/conditions.lisp index 8bdfeb1..523aea1 100644 --- a/syscalls/conditions.lisp +++ b/syscalls/conditions.lisp @@ -67,11 +67,11 @@ of a file descriptor.")) (with-unique-names (deadline temp-timeout) `(let* ((,timeout-var ,timeout) (,deadline (when ,timeout-var - (+ ,timeout-var (get-monotonic-time))))) + (+ ,timeout-var (%sys-get-monotonic-time))))) (loop :named ,block-name :do ,@body (when ,deadline - (let ((,temp-timeout (- ,deadline (get-monotonic-time)))) + (let ((,temp-timeout (- ,deadline (%sys-get-monotonic-time)))) (setf ,timeout-var (if (plusp ,temp-timeout) ,temp-timeout -- 2.11.4.GIT