From: <cli...@li...> - 2007-02-15 20:07:56
|
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/src ChangeLog,1.5500,1.5501 (Sam Steingold) 2. clisp/modules/clx/mit-clx dependent.lisp,1.12,1.13 (Sam Steingold) 3. clisp/src ChangeLog,1.5501,1.5502 (Sam Steingold) 4. clisp/modules/clx/mit-clx dependent.lisp,1.13,1.14 (Sam Steingold) 5. clisp/modules/clx/mit-clx dependent.lisp,1.14,1.15 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Thu, 15 Feb 2007 15:37:32 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.5500,1.5501 To: cli...@li... Message-ID: <E1H...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv3438/src Modified Files: ChangeLog Log Message: (buffer-input-wait-default): only check the :input direction Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5500 retrieving revision 1.5501 diff -u -d -r1.5500 -r1.5501 --- ChangeLog 14 Feb 2007 16:39:14 -0000 1.5500 +++ ChangeLog 15 Feb 2007 15:37:25 -0000 1.5501 @@ -1,3 +1,9 @@ +2007--2015 Mattias Nilsson <mat...@br...> + Sam Steingold <sd...@gn...> + + * modules/clx/mit-clx/dependent.lisp (buffer-input-wait-default): + only check the :input direction + 2007-01-05 Evgeny Zubok <zu...@us...> Sam Steingold <sd...@gn...> ------------------------------ Message: 2 Date: Thu, 15 Feb 2007 15:37:28 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/clx/mit-clx dependent.lisp,1.12,1.13 To: cli...@li... Message-ID: <E1H...@ma...> Update of /cvsroot/clisp/clisp/modules/clx/mit-clx In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv3438/modules/clx/mit-clx Modified Files: dependent.lisp Log Message: (buffer-input-wait-default): only check the :input direction Index: dependent.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/modules/clx/mit-clx/dependent.lisp,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- dependent.lisp 9 May 2005 18:20:38 -0000 1.12 +++ dependent.lisp 15 Feb 2007 15:37:24 -0000 1.13 @@ -705,7 +705,8 @@ (t (if #-clisp (port::wait-for-stream stream timeout) #+clisp (multiple-value-bind (sec usec) (floor (or timeout 0)) - (ext:socket-status stream (and timeout sec) + (ext:socket-status (cons stream :input) + (and timeout sec) (round usec 1d-6))) nil :timeout)) ------------------------------ Message: 3 Date: Thu, 15 Feb 2007 15:42:22 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.5501,1.5502 To: cli...@li... Message-ID: <E1H...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv5384/src Modified Files: ChangeLog Log Message: (buffer-input-wait-default): SOCKET-STATUS accepts non-integer timeout Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5501 retrieving revision 1.5502 diff -u -d -r1.5501 -r1.5502 --- ChangeLog 15 Feb 2007 15:37:25 -0000 1.5501 +++ ChangeLog 15 Feb 2007 15:42:18 -0000 1.5502 @@ -1,4 +1,9 @@ -2007--2015 Mattias Nilsson <mat...@br...> +2007-02-15 Sam Steingold <sd...@gn...> + + * modules/clx/mit-clx/dependent.lisp (buffer-input-wait-default): + SOCKET-STATUS accepts non-integer timeout + +2007-02-15 Mattias Nilsson <mat...@br...> Sam Steingold <sd...@gn...> * modules/clx/mit-clx/dependent.lisp (buffer-input-wait-default): ------------------------------ Message: 4 Date: Thu, 15 Feb 2007 15:42:20 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/clx/mit-clx dependent.lisp,1.13,1.14 To: cli...@li... Message-ID: <E1H...@ma...> Update of /cvsroot/clisp/clisp/modules/clx/mit-clx In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv5384/modules/clx/mit-clx Modified Files: dependent.lisp Log Message: (buffer-input-wait-default): SOCKET-STATUS accepts non-integer timeout Index: dependent.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/modules/clx/mit-clx/dependent.lisp,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- dependent.lisp 15 Feb 2007 15:37:24 -0000 1.13 +++ dependent.lisp 15 Feb 2007 15:42:18 -0000 1.14 @@ -704,10 +704,7 @@ #-allegro (t (if #-clisp (port::wait-for-stream stream timeout) - #+clisp (multiple-value-bind (sec usec) (floor (or timeout 0)) - (ext:socket-status (cons stream :input) - (and timeout sec) - (round usec 1d-6))) + #+clisp (ext:socket-status (cons stream :input) (or timeout 0)) nil :timeout)) #+allegro ------------------------------ Message: 5 Date: Thu, 15 Feb 2007 19:40:00 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/clx/mit-clx dependent.lisp,1.14,1.15 To: cli...@li... Message-ID: <E1H...@ma...> Update of /cvsroot/clisp/clisp/modules/clx/mit-clx In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv4587/modules/clx/mit-clx Modified Files: dependent.lisp Log Message: fixed last patch Index: dependent.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/modules/clx/mit-clx/dependent.lisp,v retrieving revision 1.14 retrieving revision 1.15 diff -u -d -r1.14 -r1.15 --- dependent.lisp 15 Feb 2007 15:42:18 -0000 1.14 +++ dependent.lisp 15 Feb 2007 19:39:58 -0000 1.15 @@ -704,7 +704,7 @@ #-allegro (t (if #-clisp (port::wait-for-stream stream timeout) - #+clisp (ext:socket-status (cons stream :input) (or timeout 0)) + #+clisp (ext:socket-status (cons stream :input) timeout) nil :timeout)) #+allegro ------------------------------ ------------------------------------------------------------------------- Take Surveys. Earn Cash. Influence the Future of IT Join SourceForge.net's Techsay panel and you'll get the chance to share your opinions on IT & business topics through brief surveys-and earn cash http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 10, Issue 4 **************************************** |