io.multiplex/detect.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; indent-tabs-mode: nil -*-
   2 ;;;
   3 ;;; --- Detect available multiplexers.
   4 ;;;
   5
   6 (in-package :io.multiplex)
   7
   8 ;;; TODO: do real detecting here
   9 (setf *default-multiplexer*
  10       (cdar (sort *available-multiplexers* #'< :key #'car)))