View | Details | Raw Unified
Collapse All | Expand All

(-) contrib/sockets/sockets.lisp (-1 / +1 lines)
 Lines 518-524    Link Here  
"{
"{
        struct sockaddr_in sockaddr;
        struct sockaddr_in sockaddr;
        int addr_len = sizeof(struct sockaddr_in);
        int addr_len = sizeof(struct sockaddr_in);
        int new_fd = accept(#0, (struct sockaddr*)&sockaddr, &addr_len);
 
        int new_fd = accept(#0, (struct sockaddr*)&sockaddr, (socklen_t*) &addr_len);
 

        
	@(return 0) = new_fd;
	@(return 0) = new_fd;

        
	@(return 1) = Cnil;
	@(return 1) = Cnil;