projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Optimize sb-bsd-sockets::(get-host-by-name get-host-by-address).
[sbcl.git]
/
contrib
/
sb-bsd-sockets
/
sockopt.lisp
diff --git
a/contrib/sb-bsd-sockets/sockopt.lisp
b/contrib/sb-bsd-sockets/sockopt.lisp
index
fb438f1
..
343fd18
100644
(file)
--- a/
contrib/sb-bsd-sockets/sockopt.lisp
+++ b/
contrib/sb-bsd-sockets/sockopt.lisp
@@
-55,7
+55,8
@@
Code for options that not every system has should be conditionalised:
(if (= -1 (sockint::getsockopt (socket-file-descriptor socket)
,find-level ,number
(sb-alien:addr buffer)
(if (= -1 (sockint::getsockopt (socket-file-descriptor socket)
,find-level ,number
(sb-alien:addr buffer)
- (sb-alien:addr size)))
+ #+win32 size
+ #-win32 (sb-alien:addr size)))
(socket-error "getsockopt")
(,mangle-return buffer size)))
`(error 'unsupported-operator
(socket-error "getsockopt")
(,mangle-return buffer size)))
`(error 'unsupported-operator