From: <cli...@li...> - 2007-11-27 20:14:49
|
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 eval.d,1.207,1.208 (Sam Steingold) 2. clisp/src io.d,1.311,1.312 ChangeLog,1.5790,1.5791 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Tue, 27 Nov 2007 17:58:07 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src eval.d,1.207,1.208 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv3439/src Modified Files: eval.d Log Message: (c)year Index: eval.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/eval.d,v retrieving revision 1.207 retrieving revision 1.208 diff -u -d -r1.207 -r1.208 --- eval.d 27 Nov 2007 17:56:28 -0000 1.207 +++ eval.d 27 Nov 2007 17:58:04 -0000 1.208 @@ -1,7 +1,7 @@ /* * EVAL, APPLY and bytecode interpreter for CLISP * Bruno Haible 1990-2005 - * Sam Steingold 1998-2005 + * Sam Steingold 1998-2006 * German comments translated into English: Stefan Kain 2001-08-13 */ #include "lispbibl.c" ------------------------------ Message: 2 Date: Tue, 27 Nov 2007 18:35:41 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src io.d,1.311,1.312 ChangeLog,1.5790,1.5791 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv17498/src Modified Files: io.d ChangeLog Log Message: error_doubl --> error_colon Index: io.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/io.d,v retrieving revision 1.311 retrieving revision 1.312 diff -u -d -r1.311 -r1.312 --- io.d 27 Nov 2007 17:56:29 -0000 1.311 +++ io.d 27 Nov 2007 18:35:38 -0000 1.312 @@ -2,7 +2,7 @@ * Input/Output for CLISP * Bruno Haible 1990-2005 * Marcus Daniels 11.3.1997 - * Sam Steingold 1998-2006 + * Sam Steingold 1998-2007 * German comments translated into English: Stefan Kain 2001-06-12 */ @@ -3184,12 +3184,12 @@ if (len > 0) { var uintB* attrptr = &TheSbvector(TheIarray(buff_2)->data)->data[0]; # Test, if one of the len Attribut-Codes starting at attrptr and afterwards is an a_pack_m: - dotimespL(len,len, { if (*attrptr++ == a_pack_m) goto error_doubl; } ); + dotimespL(len,len, { if (*attrptr++ == a_pack_m) goto error_colon; } ); } } # build uninterned Symbol with this Name: VALUES1(make_symbol(string)); skipSTACK(2); return; - error_doubl: + error_colon: pushSTACK(*stream_); # STREAM-ERROR slot STREAM pushSTACK(string); # Token pushSTACK(*stream_); # Stream Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5790 retrieving revision 1.5791 diff -u -d -r1.5790 -r1.5791 --- ChangeLog 27 Nov 2007 17:56:27 -0000 1.5790 +++ ChangeLog 27 Nov 2007 18:35:39 -0000 1.5791 @@ -2,7 +2,7 @@ <03_fehler_label> * io.d: rename labels fehler_nur01 to error_nur01, - fehler_dopp to error_doubl, + fehler_dopp to error_colon, remove english function translations in comments. * eval.d: rename labels fehler_zuwenig to error_toofew, fehler_zuviele_werte to error_toomany_values, ------------------------------ ------------------------------------------------------------------------- This SF.net email is sponsored by: Microsoft Defy all challenges. Microsoft(R) Visual Studio 2005. http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/ ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 19, Issue 43 ***************************************** |