(if (numberp (eval level))
level
`(get-protocol-by-name ,(string-downcase (symbol-name level)))))
- (supportedp (or (null features) (featurep features))))
+ (supportedp (or (null features) (sb-int:featurep features))))
`(progn
(export ',lisp-name)
(defun ,lisp-name (socket)
sockopt-priority sockint::sol-socket sockint::so-priority :linux
"Available only on Linux.")
+(define-socket-option-int
+ sockopt-tcp-keepcnt :tcp sockint::tcp-keepcnt :linux "Available only on Linux.")
+(define-socket-option-int
+ sockopt-tcp-keepidle :tcp sockint::tcp-keepidle :linux "Available only on Linux.")
+(define-socket-option-int
+ sockopt-tcp-keepintvl :tcp sockint::tcp-keepintvl :linux "Available only on Linux.")
+
;;; boolean options are integers really
(defun foreign-int-to-bool (x size)