io.multiplex/time.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; indent-tabs-mode: nil -*-
   2 ;;;
   3 ;;; --- Various time-related functions.
   4 ;;;
   5
   6 (in-package :io.multiplex)
   7
   8 ;;;; Timeouts
   9
  10 (defun abs-timeout (timeout)
  11   (+ (osicat:get-monotonic-time) (normalize-timeout timeout)))
  12
  13 (defun min-timeout (&rest timeouts)
  14   (collect-min (choose-if #'identity (scan timeouts))))