/[gcl]/gcl/o/sockets.c
ViewVC logotype

Diff of /gcl/o/sockets.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by camm, Sat Feb 15 00:38:28 2003 UTC revision 1.7 by camm, Wed Feb 26 22:21:37 2003 UTC
# Line 175  sockaddr_in addr; Line 175  sockaddr_in addr;
175        return Cnil;        return Cnil;
176      }      }
177    
178    return make_cons(make_fixnum(s), make_fixnum(ntohs(addr.sin_port)));    return make_cons(make_fixnum(s), small_fixnum(ntohs(addr.sin_port)));
179  }  }
180    
181  DEFUN_NEW("CLOSE-FD",object,fSclose_fd,SI,1,1,NONE,OI,OO,OO,OO,(int fd),  DEFUN_NEW("CLOSE-FD",object,fSclose_fd,SI,1,1,NONE,OI,OO,OO,OO,(int fd),

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26