- (wVersion (unsigned 16))\r
- (wHighVersion (unsigned 16))\r
- (szDescription (array char 257))\r
- (szSystemStatus (array char 129))\r
- (iMaxSockets (unsigned 16))\r
- (iMaxUdpDg (unsigned 16))\r
- (lpVendorInfo sb-alien:c-string)))\r
+ (wVersion (unsigned 16))\r
+ (wHighVersion (unsigned 16))\r
+ (szDescription (array char 257))\r
+ (szSystemStatus (array char 129))\r
+ (iMaxSockets (unsigned 16))\r
+ (iMaxUdpDg (unsigned 16))\r
+ (lpVendorInfo sb-alien:c-string)))\r
- (s_un_b (struct s_un_byte))\r
- (s_un_w (struct s_un_wide))\r
- (s_addr (unsigned 32))))\r
+ (s_un_b (struct s_un_byte))\r
+ (s_un_w (struct s_un_wide))\r
+ (s_addr (unsigned 32))))\r
- (sin_family (signed 16))\r
- (sin_port (array (unsigned 8) 2))\r
- (sin_addr (array (unsigned 8) 4))\r
- (sin_zero (array char 8))))\r
+ (sin_family (signed 16))\r
+ (sin_port (array (unsigned 8) 2))\r
+ (sin_addr (array (unsigned 8) 4))\r
+ (sin_zero (array char 8))))\r
- (h_name sb-alien:c-string)\r
- (h_aliases (* sb-alien:c-string))\r
- (h_addrtype sb-alien:short)\r
- (h_length sb-alien:short)\r
- (h_addr_list (* (* (unsigned 8))))))\r
+ (h_name sb-alien:c-string)\r
+ (h_aliases (* sb-alien:c-string))\r
+ (h_addrtype sb-alien:short)\r
+ (h_length sb-alien:short)\r
+ (h_addr_list (* (* (unsigned 8))))))\r
- (pname sb-alien:c-string)\r
- (p_aliases (* sb-alien:c-string))\r
- (p_proto (signed 16))))\r
+ (pname sb-alien:c-string)\r
+ (p_aliases (* sb-alien:c-string))\r
+ (p_proto (signed 16))))\r
\r
\r
;;; these are all non-HANDLE using, so are safe to have here\r
(sb-alien:define-alien-routine "gethostbyaddr" (struct hostent)\r
\r
\r
;;; these are all non-HANDLE using, so are safe to have here\r
(sb-alien:define-alien-routine "gethostbyaddr" (struct hostent)\r
(defmacro with-in-addr (name init &rest body)\r
(declare (ignore init))\r
`(with-alien ((,name (struct in_addr)))\r
(defmacro with-in-addr (name init &rest body)\r
(declare (ignore init))\r
`(with-alien ((,name (struct in_addr)))\r