341 |
if (hostEntPtr != (struct hostent *) NULL) |
if (hostEntPtr != (struct hostent *) NULL) |
342 |
host = make_simple_string(hostEntPtr->h_name); |
host = make_simple_string(hostEntPtr->h_name); |
343 |
else host = address; |
else host = address; |
344 |
return list(3,address,host,make_fixnum(ntohs(peername.sin_port))); |
return list(3,address,host,small_fixnum(ntohs(peername.sin_port))); |
345 |
} else { |
} else { |
346 |
return Cnil; |
return Cnil; |
347 |
} |
} |
364 |
if (hostEntPtr != (struct hostent *) NULL) |
if (hostEntPtr != (struct hostent *) NULL) |
365 |
host = make_simple_string(hostEntPtr->h_name); |
host = make_simple_string(hostEntPtr->h_name); |
366 |
else host=address; |
else host=address; |
367 |
return list(3,address,host,make_fixnum(ntohs(sockname.sin_port))); |
return list(3,address,host,small_fixnum(ntohs(sockname.sin_port))); |
368 |
} else { |
} else { |
369 |
return Cnil; |
return Cnil; |
370 |
} |
} |
412 |
Zero result means both ok. (ie succeed) |
Zero result means both ok. (ie succeed) |
413 |
*/ |
*/ |
414 |
|
|
415 |
return make_fixnum(x1 < 0 || x2 < 0 ? -2 : x1 > 0 ? x1 : x2); |
return make_fixnum((x1 < 0 || x2 < 0 ? -2 : x1 > 0 ? x1 : x2)); |
416 |
} |
} |
417 |
} |
} |
418 |
|
|