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

Diff of /gcl/o/nsocket.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 341  DEFUN_NEW("GETPEERNAME",object,fSgetpeer Line 341  DEFUN_NEW("GETPEERNAME",object,fSgetpeer
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   }   }
# Line 364  DEFUN_NEW("GETSOCKNAME",object,fSgetsock Line 364  DEFUN_NEW("GETSOCKNAME",object,fSgetsock
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   }   }
# Line 412  DEFUN_NEW("SET-BLOCKING",object,fSset_bl Line 412  DEFUN_NEW("SET-BLOCKING",object,fSset_bl
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                    

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