(let ((sockaddr (apply #'make-sockaddr-for socket nil address)))
(if (= (sb-sys:with-pinned-objects (sockaddr)
(sockint::bind (socket-file-descriptor socket)
- (sockint::array-data-address sockaddr)
+ (sb-grovel::array-data-address sockaddr)
(size-of-sockaddr socket)))
-1)
(socket-error "bind"))))
(let ((sockaddr (make-sockaddr-for socket)))
(sb-sys:with-pinned-objects (sockaddr)
(let ((fd (sockint::accept (socket-file-descriptor socket)
- (sockint::array-data-address sockaddr)
+ (sb-grovel::array-data-address sockaddr)
(size-of-sockaddr socket))))
(apply #'values
(if (= fd -1)
(let* ((sockaddr (apply #'make-sockaddr-for socket nil peer)))
(if (= (sb-sys:with-pinned-objects (sockaddr)
(sockint::connect (socket-file-descriptor socket)
- (sockint::array-data-address sockaddr)
+ (sb-grovel::array-data-address sockaddr)
(size-of-sockaddr socket)))
-1)
(socket-error "connect") )))
(let* ((sockaddr (make-sockaddr-for socket)))
(when (= (sb-sys:with-pinned-objects (sockaddr)
(sockint::getpeername (socket-file-descriptor socket)
- (sockint::array-data-address sockaddr)
+ (sb-grovel::array-data-address sockaddr)
(size-of-sockaddr socket)))
-1)
(socket-error "getpeername"))
(let* ((sockaddr (make-sockaddr-for socket)))
(when (= (sb-sys:with-pinned-objects (sockaddr)
(sockint::getsockname (socket-file-descriptor socket)
- (sockint::array-data-address sockaddr)
+ (sb-grovel::array-data-address sockaddr)
(size-of-sockaddr socket)))
-1)
(socket-error "getsockname"))
(sb-sys:with-pinned-objects (buffer sockaddr)
(let ((len
(sockint::recvfrom (socket-file-descriptor socket)
- (sockint::array-data-address buffer)
+ (sb-grovel::array-data-address buffer)
(or length (length buffer))
flags
- (sockint::array-data-address sockaddr)
+ (sb-grovel::array-data-address sockaddr)
(sb-alien:cast sa-len (* integer)))))
(when (= len -1) (socket-error "recvfrom"))
(apply #'values buffer len (multiple-value-list