From: <cli...@li...> - 2008-05-11 19:06:44
|
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/clx/new-clx configure.in,1.14,1.15 (Sam Steingold) 2. clisp/src ChangeLog,1.6171,1.6172 (Sam Steingold) 3. clisp/modules/clx/new-clx configure,1.25,1.26 (Sam Steingold) 4. clisp/src clos-genfun4.lisp,1.46,1.47 ChangeLog,1.6172,1.6173 (Sam Steingold) 5. clisp/src condition.lisp,1.93,1.94 ChangeLog,1.6173,1.6174 (Sam Steingold) 6. clisp/src stream.d, 1.606, 1.607 NEWS, 1.448, 1.449 ChangeLog, 1.6174, 1.6175 (Sam Steingold) 7. clisp/src lispbibl.d,1.782,1.783 (Sam Steingold) 8. clisp/src comptran.d,1.50,1.51 ChangeLog,1.6175,1.6176 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Sun, 11 May 2008 01:06:09 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/clx/new-clx configure.in,1.14,1.15 To: cli...@li... Message-ID: <E1J...@ma...> Update of /cvsroot/clisp/clisp/modules/clx/new-clx In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv5838/modules/clx/new-clx Modified Files: configure.in Log Message: when testing for XauGetAuthByAddr, must #include <X11/Xauth.h> for g++ Index: configure.in =================================================================== RCS file: /cvsroot/clisp/clisp/modules/clx/new-clx/configure.in,v retrieving revision 1.14 retrieving revision 1.15 diff -u -d -r1.14 -r1.15 --- configure.in 12 Mar 2008 17:49:01 -0000 1.14 +++ configure.in 11 May 2008 01:06:06 -0000 1.15 @@ -69,7 +69,8 @@ LIBS="$X_LIBS $X_PRE_LIBS -lX11 $LIBS" CFLAGS="$CFLAGS $X_CFLAGS" AC_TRY_LINK([#include <sys/socket.h> -#include <X11/Xlib.h>], +#include <X11/Xlib.h> +#include <X11/Xauth.h>], [XauGetAuthByAddr(AF_INET,0,"",13,"localhost:0.0",13,"localhost:0.0");], gb_cv_need_lXau=no, gb_cv_need_lXau=maybe) @@ -77,7 +78,8 @@ LIBS="$X_LIBS -lXau $X_PRE_LIBS $LIBS" CFLAGS="$CFLAGS $X_CFLAGS" AC_TRY_LINK([#include <sys/socket.h> -#include <X11/Xlib.h>], +#include <X11/Xlib.h> +#include <X11/Xauth.h>], [XauGetAuthByAddr(AF_INET,0,"",13,"localhost:0.0",13,"localhost:0.0");], gb_cv_need_lXau=yes, AC_MSG_FAILURE([XauGetAuthByAddr was not found])) ------------------------------ Message: 2 Date: Sun, 11 May 2008 01:06:08 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.6171,1.6172 To: cli...@li... Message-ID: <E1J...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv5838/src Modified Files: ChangeLog Log Message: when testing for XauGetAuthByAddr, must #include <X11/Xauth.h> for g++ Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6171 retrieving revision 1.6172 diff -u -d -r1.6171 -r1.6172 --- ChangeLog 9 May 2008 17:58:31 -0000 1.6171 +++ ChangeLog 11 May 2008 01:06:04 -0000 1.6172 @@ -1,3 +1,8 @@ +2008-05-10 Sam Steingold <sd...@gn...> + + * modules/clx/new-clx/configure.in: when testing for + XauGetAuthByAddr, must #include <X11/Xauth.h> for g++ + 2008-05-09 Sam Steingold <sd...@gn...> * describe.lisp (clisp-data-file): put the error message through i18n ------------------------------ Message: 3 Date: Sun, 11 May 2008 01:06:18 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/clx/new-clx configure,1.25,1.26 To: cli...@li... Message-ID: <E1J...@ma...> Update of /cvsroot/clisp/clisp/modules/clx/new-clx In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv6199/modules/clx/new-clx Modified Files: configure Log Message: regenerated Index: configure =================================================================== RCS file: /cvsroot/clisp/clisp/modules/clx/new-clx/configure,v retrieving revision 1.25 retrieving revision 1.26 diff -u -d -r1.25 -r1.26 --- configure 12 Mar 2008 18:00:51 -0000 1.25 +++ configure 11 May 2008 01:06:16 -0000 1.26 @@ -5456,6 +5456,7 @@ /* end confdefs.h. */ #include <sys/socket.h> #include <X11/Xlib.h> +#include <X11/Xauth.h> int main () { @@ -5503,6 +5504,7 @@ /* end confdefs.h. */ #include <sys/socket.h> #include <X11/Xlib.h> +#include <X11/Xauth.h> int main () { ------------------------------ Message: 4 Date: Sun, 11 May 2008 01:07:24 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src clos-genfun4.lisp,1.46,1.47 ChangeLog,1.6172,1.6173 To: cli...@li... Message-ID: <E1J...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv6578/src Modified Files: clos-genfun4.lisp ChangeLog Log Message: (no-next-method): signal SYS::SIMPLE-PROGRAM-ERROR instead of PROGRAM-ERROR because only the former accepts :FORMAT-CONTROL & :FORMAT-ARGUMENTS Index: clos-genfun4.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/clos-genfun4.lisp,v retrieving revision 1.46 retrieving revision 1.47 diff -u -d -r1.46 -r1.47 --- clos-genfun4.lisp 2 Mar 2008 03:52:38 -0000 1.46 +++ clos-genfun4.lisp 11 May 2008 01:07:22 -0000 1.47 @@ -167,10 +167,10 @@ '(call-next-method))) (let ((qualifiers (method-qualifiers method))) (if qualifiers - (cerror cont-mesg 'program-error + (cerror cont-mesg 'sys::simple-program-error :format-control (TEXT "~S: ~S is invalid within ~{~S~^ ~} methods") :format-arguments (list gf 'CALL-NEXT-METHOD qualifiers)) - (cerror cont-mesg 'program-error + (cerror cont-mesg 'sys::simple-program-error :format-control (TEXT "~S: ~S is invalid within primary methods") :format-arguments (list gf 'CALL-NEXT-METHOD))))))) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6172 retrieving revision 1.6173 diff -u -d -r1.6172 -r1.6173 --- ChangeLog 11 May 2008 01:06:04 -0000 1.6172 +++ ChangeLog 11 May 2008 01:07:22 -0000 1.6173 @@ -1,5 +1,11 @@ 2008-05-10 Sam Steingold <sd...@gn...> + * clos-genfun4.lisp (no-next-method): signal + SYS::SIMPLE-PROGRAM-ERROR instead of PROGRAM-ERROR because only + the former accepts :FORMAT-CONTROL & :FORMAT-ARGUMENTS + +2008-05-10 Sam Steingold <sd...@gn...> + * modules/clx/new-clx/configure.in: when testing for XauGetAuthByAddr, must #include <X11/Xauth.h> for g++ ------------------------------ Message: 5 Date: Sun, 11 May 2008 01:21:24 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src condition.lisp,1.93,1.94 ChangeLog,1.6173,1.6174 To: cli...@li... Message-ID: <E1J...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv11832/src Modified Files: condition.lisp ChangeLog Log Message: (coerce-to-condition): fix last patch: INVOKE-DEBUGGER --> ERROR Index: condition.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/condition.lisp,v retrieving revision 1.93 retrieving revision 1.94 diff -u -d -r1.93 -r1.94 --- condition.lisp 9 May 2008 17:45:23 -0000 1.93 +++ condition.lisp 11 May 2008 01:21:22 -0000 1.94 @@ -230,7 +230,7 @@ (handler-case (apply #'try-coerce-to-condition datum arguments caller-name default-type more-initargs) - (TYPE-ERROR (error) (invoke-debugger error)) + (TYPE-ERROR (error) (error error)) (ERROR (error) ;; ANSI CL wants a type error here. (error-of-type 'type-error Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6173 retrieving revision 1.6174 diff -u -d -r1.6173 -r1.6174 --- ChangeLog 11 May 2008 01:07:22 -0000 1.6173 +++ ChangeLog 11 May 2008 01:21:22 -0000 1.6174 @@ -15,8 +15,8 @@ 2008-05-09 Sam Steingold <sd...@gn...> - * condition.lisp (coerce-to-condition): use INVOKE-DEBUGGER instead - of SIGNAL to report TYPE-ERROR so that COERCE-TO-CONDITION never + * condition.lisp (coerce-to-condition): use ERROR instead of + SIGNAL to report TYPE-ERROR so that COERCE-TO-CONDITION never returns NIL (http://article.gmane.org/gmane.lisp.clisp.general/12208) 2008-05-09 Sam Steingold <sd...@gn...> ------------------------------ Message: 6 Date: Sun, 11 May 2008 02:09:55 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src stream.d, 1.606, 1.607 NEWS, 1.448, 1.449 ChangeLog, 1.6174, 1.6175 To: cli...@li... Message-ID: <E1J...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv29515/src Modified Files: stream.d NEWS ChangeLog Log Message: fix bug #[ 1961475 ]: Hang on read-char-no-hang (listen_char_buffered): when the next byte is '\n' and ChannelStream_ignore_next_LF is true, discard it and retry Index: NEWS =================================================================== RCS file: /cvsroot/clisp/clisp/src/NEWS,v retrieving revision 1.448 retrieving revision 1.449 diff -u -d -r1.448 -r1.449 --- NEWS 8 May 2008 02:28:32 -0000 1.448 +++ NEWS 11 May 2008 02:09:51 -0000 1.449 @@ -66,6 +66,7 @@ + Improved accuracy of LOG on complex numbers. [ 1934968 ] + Fix COERCE for compound float result-types. [ 1942246 ] + Fix $http_proxy parsing. [ 1959436 ] + + Fix LISTEN on buffered streams when the last character was CRLF. [ 1961475 ] + Cross-compilation process has been restored to its former glory, thanks to the valiant and persistent testing by Vladimir Volovich <vv...@us...>. Index: stream.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/stream.d,v retrieving revision 1.606 retrieving revision 1.607 diff -u -d -r1.606 -r1.607 --- stream.d 14 Apr 2008 19:17:08 -0000 1.606 +++ stream.d 11 May 2008 02:09:44 -0000 1.607 @@ -6571,9 +6571,19 @@ ls_eof if EOF is reached, ls_wait if no character is available, but not because of EOF */ local signean listen_char_buffered (object stream) { - uintB* buf = buffered_nextbyte(stream,persev_immediate); + listen_char_buffered_retry: + var uintB* buf = buffered_nextbyte(stream,persev_immediate); if (buf == (uintB*)NULL) return ls_eof; /* EOF */ if (buf == (uintB*)-1) return ls_wait; /* will hang */ + if (*buf == '\n' && ChannelStream_ignore_next_LF(stream)) { /* discard LF */ + /* assume that '\n' is LF in all encodings */ + BufferedStream_index(stream) += 1; + BufferedStream_position(stream) += 1; + ChannelStream_ignore_next_LF(stream) = false; + goto listen_char_buffered_retry; + /* we might extract rd_ch_buffered_low from above instead, + but it seems too much work for little gain */ + } /* In case of UNICODE, the presence of a byte does not guarantee the presence of a multi-byte character. Returning ls_avail here is therefore not correct. But this doesn't matter since programs seeing Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6174 retrieving revision 1.6175 diff -u -d -r1.6174 -r1.6175 --- ChangeLog 11 May 2008 01:21:22 -0000 1.6174 +++ ChangeLog 11 May 2008 02:09:51 -0000 1.6175 @@ -1,5 +1,11 @@ 2008-05-10 Sam Steingold <sd...@gn...> + fix bug #[ 1961475 ]: Hang on read-char-no-hang + * stream.d (listen_char_buffered): when the next byte is '\n' and + ChannelStream_ignore_next_LF is true, discard it and retry + +2008-05-10 Sam Steingold <sd...@gn...> + * clos-genfun4.lisp (no-next-method): signal SYS::SIMPLE-PROGRAM-ERROR instead of PROGRAM-ERROR because only the former accepts :FORMAT-CONTROL & :FORMAT-ARGUMENTS ------------------------------ Message: 7 Date: Sun, 11 May 2008 14:10:23 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src lispbibl.d,1.782,1.783 To: cli...@li... Message-ID: <E1J...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv31072/src Modified Files: lispbibl.d Log Message: avoid ' in #error Index: lispbibl.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/lispbibl.d,v retrieving revision 1.782 retrieving revision 1.783 diff -u -d -r1.782 -r1.783 --- lispbibl.d 8 May 2008 03:43:40 -0000 1.782 +++ lispbibl.d 11 May 2008 14:10:17 -0000 1.783 @@ -12054,7 +12054,7 @@ /* Bits for Symbols in VAR-Frames: bit(active_bit),bit(dynam_bit),bit(svar_bit) must fit into one uintB: */ #if !((active_bit<intBsize) && (dynam_bit<intBsize) && (svar_bit<intBsize)) - #error Symbol bits don't fit in a single byte -- Symbol-Bits passen nicht in ein Byte! + #error Symbol bits do not fit in a single byte -- Symbol-Bits passen nicht in ein Byte! #endif #ifdef NO_symbolflags /* Bits are separatly stored on the Stack as Fixnums. */ ------------------------------ Message: 8 Date: Sun, 11 May 2008 14:11:29 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src comptran.d,1.50,1.51 ChangeLog,1.6175,1.6176 To: cli...@li... Message-ID: <E1J...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv31464/src Modified Files: comptran.d ChangeLog Log Message: (N_log_abs_R): fix a GC-safety bug (R_R_comp - comparison! - turned out to maygc) Index: comptran.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/comptran.d,v retrieving revision 1.50 retrieving revision 1.51 diff -u -d -r1.50 -r1.51 --- comptran.d 23 Apr 2008 18:52:26 -0000 1.50 +++ comptran.d 11 May 2008 14:11:25 -0000 1.51 @@ -105,20 +105,20 @@ } else { /* 1/2 * lnx1 (x^2 + y^2 - 1) */ pushSTACK(z); pushSTACK(R_abs_R(TheComplex(z)->c_real)); - z = R_abs_R(TheComplex(STACK_1)->c_imag); - if (R_R_comp(z,SF_two_thirds) < 0 && R_R_comp(STACK_0,SF_two_thirds) < 0) { + pushSTACK(R_abs_R(TheComplex(STACK_1)->c_imag)); + if ( R_R_comp(STACK_0,SF_two_thirds) < 0 + && R_R_comp(STACK_1,SF_two_thirds) < 0) { /* z is small ==> log(x^2 + y^2) */ - pushSTACK(R_square_R(z)); /* y^2 */ + STACK_0 = R_square_R(STACK_0); /* y^2 */ STACK_1 = R_square_R(STACK_1); /* x^2 */ z = R_R_plus_R(STACK_1,STACK_0); /* x^2 + y^2 */ z = R_ln_R(z,end_p); /* log (x^2 + y^2) */ - skipSTACK(1); } else { /* z is big => log(1 + (x^2 + y^2 - 1)) */ - z = R_R_comp(z,STACK_0) < 0 - ? R_R_norm2_1_R(TheComplex(STACK_1)->c_real, - TheComplex(STACK_1)->c_imag) - : R_R_norm2_1_R(TheComplex(STACK_1)->c_imag, - TheComplex(STACK_1)->c_real); + z = R_R_comp(STACK_0,STACK_1) < 0 + ? R_R_norm2_1_R(TheComplex(STACK_2)->c_real, + TheComplex(STACK_2)->c_imag) + : R_R_norm2_1_R(TheComplex(STACK_2)->c_imag, + TheComplex(STACK_2)->c_real); if (R_R_equal(z,Fixnum_minus1)) divide_0(); z = R_ln1_R(z,end_p); /* log(1 + (x^2 + y^2 - 1)) */ @@ -126,7 +126,7 @@ z = floatp(z) /* log(x^2 + y^2)/2 */ ? F_I_scale_float_F(z,Fixnum_minus1) : RA_RA_div_RA(z,fixnum(2)); - skipSTACK(2); + skipSTACK(3); return z; } } Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6175 retrieving revision 1.6176 diff -u -d -r1.6175 -r1.6176 --- ChangeLog 11 May 2008 02:09:51 -0000 1.6175 +++ ChangeLog 11 May 2008 14:11:25 -0000 1.6176 @@ -1,3 +1,8 @@ +2008-05-11 Sam Steingold <sd...@gn...> + + * comptran.d (N_log_abs_R): fix a GC-safety bug (R_R_comp - + comparison! - turned out to maygc) + 2008-05-10 Sam Steingold <sd...@gn...> fix bug #[ 1961475 ]: Hang on read-char-no-hang ------------------------------ ------------------------------------------------------------------------- This SF.net email is sponsored by the 2008 JavaOne(SM) Conference Don't miss this year's exciting event. There's still time to save $100. Use priority code J8TL2D2. http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 25, Issue 17 ***************************************** |