Newer
Older
;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
(defmethod shared-initialize :around ((stream dual-channel-fd-mixin) slot-names &key)
(declare (ignore slot-names))
Stelian Ionescu
committed
(setf (isys:fd-nonblock-p (fd-of stream)) t))
;;;; CLOSE
Stelian Ionescu
committed
(defmethod close :before ((fd-mixin dual-channel-fd-mixin) &key abort)
(declare (ignore abort))
(when (fd-of fd-mixin)
;;;; Get and Set O_NONBLOCK
(defmethod fd-non-blocking ((fd-mixin dual-channel-fd-mixin))
(defobsolete fd-non-blocking "stream FDs are now always non-blocking.")
(defmethod (setf fd-non-blocking) (mode (fd-mixin dual-channel-fd-mixin))
(check-type mode boolean "a boolean value")
(defobsolete (setf fd-non-blocking) "stream FDs are now always non-blocking.")