mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-06 02:40:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

sockets: don't return the same address multiple times in get-host-by-name

Browse source
This commit is contained in:
Marius Gerbershagen 2020-04-19 10:45:02 +02:00
parent 5451f73bb8
commit beadd585ce
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
contrib/sockets/sockets.lisp
View file

@ -247,7 +247,7 @@ other weird stuff - see getaddrinfo(3) for details."
ecl_aset(vector,1, ecl_make_fixnum( (ip>>16) & 0xFF)); ecl_aset(vector,1, ecl_make_fixnum( (ip>>16) & 0xFF));
ecl_aset(vector,2, ecl_make_fixnum( (ip>>8) & 0xFF)); ecl_aset(vector,2, ecl_make_fixnum( (ip>>8) & 0xFF));
ecl_aset(vector,3, ecl_make_fixnum( ip & 0xFF )); ecl_aset(vector,3, ecl_make_fixnum( ip & 0xFF ));
addresses = CONS(vector, addresses); addresses = cl_adjoin(4, vector, addresses, @':test, @'equalp);
if ( rp->ai_canonname != 0 ) { if ( rp->ai_canonname != 0 ) {
cl_object alias = ecl_make_simple_base_string( rp->ai_canonname, -1 ); cl_object alias = ecl_make_simple_base_string( rp->ai_canonname, -1 );
aliases = CONS(alias, aliases); aliases = CONS(alias, aliases);