/[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.10 by mjthomas, Fri Jul 11 06:58:18 2003 UTC revision 1.11 by camm, Tue Jul 15 18:03:38 2003 UTC
# Line 185  the socket.  If PORT is zero do automati Line 185  the socket.  If PORT is zero do automati
185        return Cnil;        return Cnil;
186      }      }
187    
188    return make_cons(make_fixnum(s), small_fixnum(ntohs(addr.sin_port)));    return make_cons(make_fixnum(s), make_fixnum(ntohs(addr.sin_port)));
189  }  }
190    
191  DEFUN_NEW("CLOSE-FD",object,fSclose_fd,SI,1,1,NONE,OI,OO,OO,OO,(fixnum fd),  DEFUN_NEW("CLOSE-FD",object,fSclose_fd,SI,1,1,NONE,OI,OO,OO,OO,(fixnum fd),

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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