From: <cli...@li...> - 2005-10-05 03:20:32
|
Send clisp-cvs mailing list submissions to cli...@li... To subscribe or unsubscribe via the World Wide Web, visit https://lists.sourceforge.net/lists/listinfo/clisp-cvs or, via email, send a message with subject or body 'help' to cli...@li... You can reach the person managing the list at cli...@li... When replying, please edit your Subject line so it is more specific than "Re: Contents of clisp-cvs digest..." CLISP CVS commits for today Today's Topics: 1. clisp/modules/rawsock rawsock.c,1.48,1.49 (Sam Steingold) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/rawsock rawsock.c,1.48,1.49 Date: Wed, 05 Oct 2005 01:36:25 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/rawsock In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25287/modules/rawsock Modified Files: rawsock.c Log Message: (parse_buffer_arg): oops! Index: rawsock.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/rawsock/rawsock.c,v retrieving revision 1.48 retrieving revision 1.49 diff -u -d -r1.48 -r1.49 --- rawsock.c 3 Oct 2005 19:48:02 -0000 1.48 +++ rawsock.c 5 Oct 2005 01:36:23 -0000 1.49 @@ -92,8 +92,8 @@ object data; *arg_ = check_byte_vector(*arg_); if (!missingp(STACK_1)) start = posfixnum_to_V(check_posfixnum(STACK_1)); - if (!missingp(STACK_0)) *size = vector_length(*arg_); - else *size = posfixnum_to_V(check_posfixnum(STACK_0)); + *size = missingp(STACK_0) ? vector_length(*arg_) + : posfixnum_to_V(check_posfixnum(STACK_0)); data = array_displace_check(*arg_,*size,&start); return (void*)(TheSbvector(data)->data + start); } --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |