summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
891ba76)
Really return the host-ent's address in sb-bsd-sockets::make-host-ent
(assert (= length 4))
(let ((addr (make-array 4 :element-type '(unsigned-byte 8))))
(loop for i from 0 below length
(assert (= length 4))
(let ((addr (make-array 4 :element-type '(unsigned-byte 8))))
(loop for i from 0 below length
- do (setf (elt addr i) (sb-alien:deref ad i)))))
+ do (setf (elt addr i) (sb-alien:deref ad i)))
+ addr))
(#.sockint::af-local
(sb-alien:cast ad sb-alien:c-string))))))
(make-instance 'host-ent
(#.sockint::af-local
(sb-alien:cast ad sb-alien:c-string))))))
(make-instance 'host-ent
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)