From 0e8ca848785a4e32606d2869c2896619ba827029 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 1 Jan 2007 14:18:20 +0100 Subject: [PATCH] Forgot to dereference a pointer when returning a socket option. --- sockets/socket-options.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/sockets/socket-options.lisp b/sockets/socket-options.lisp index b65977c..d1ad65d 100644 --- a/sockets/socket-options.lisp +++ b/sockets/socket-options.lisp @@ -68,14 +68,14 @@ (optlen :socklen)) (setf (mem-ref optlen :int) et:size-of-int) (et:getsockopt fd level option optval optlen) - (values (c->lisp-bool optval)))) + (values (c->lisp-bool (mem-ref optval :int))))) (defun get-socket-option-int (fd level option) (with-foreign-objects ((optval :int) (optlen :socklen)) (setf (mem-ref optlen :int) et:size-of-int) (et:getsockopt fd level option optval optlen) - (values optval))) + (values (mem-ref optval :int)))) (defun get-socket-option-linger (fd level option) (with-foreign-objects ((optval 'et:linger) -- 2.11.4.GIT