From: <cli...@li...> - 2005-03-25 04:13:57
|
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 pathname.d,1.359,1.360 ChangeLog,1.4405,1.4406 (Sam Steingold) 2. clisp/tests excepsit.tst,1.33,1.34 (Sam Steingold) 3. clisp/src TODO,1.81,1.82 (Sam Steingold) 4. clisp/doc impext.xml,1.319,1.320 (Sam Steingold) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src pathname.d,1.359,1.360 ChangeLog,1.4405,1.4406 Date: Thu, 24 Mar 2005 23:36:18 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12479/src Modified Files: pathname.d ChangeLog Log Message: (parse_logical_pathnamestring): when version is blank, parse_logical_word() returns NIL, but all_digits() assumes a string Index: pathname.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/pathname.d,v retrieving revision 1.359 retrieving revision 1.360 diff -u -d -r1.359 -r1.360 --- pathname.d 17 Mar 2005 20:54:19 -0000 1.359 +++ pathname.d 24 Mar 2005 23:35:53 -0000 1.360 @@ -1348,9 +1348,9 @@ if (eq(version,S(Kwild))) { } else if (equal(version,Symbol_name(S(Knewest)))) { version = S(Knewest); - } else if (all_digits(version)) { /* convert version into Integer */ + } else if (stringp(version) && all_digits(version)) { pushSTACK(version); funcall(L(parse_integer),1); - version = value1; + version = value1; /* version: string -> integer */ } else { version = NIL; } Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4405 retrieving revision 1.4406 diff -u -d -r1.4405 -r1.4406 --- ChangeLog 22 Mar 2005 21:48:35 -0000 1.4405 +++ ChangeLog 24 Mar 2005 23:35:56 -0000 1.4406 @@ -1,3 +1,9 @@ +2005-03-24 Sam Steingold <sd...@gn...> + + * pathname.d (parse_logical_pathnamestring): when version is blank, + parse_logical_word() returns NIL, but all_digits() assumes a string + Reported by Pascal J.Bourguignon <pj...@in...> + 2005-03-22 Sam Steingold <sd...@gn...> fixed bug #[ 1167991 ]: Compiler bug, Occurred in SP-DEPTH at <0. --__--__-- Message: 2 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/tests excepsit.tst,1.33,1.34 Date: Thu, 24 Mar 2005 23:35:55 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12479/tests Modified Files: excepsit.tst Log Message: (parse_logical_pathnamestring): when version is blank, parse_logical_word() returns NIL, but all_digits() assumes a string Index: excepsit.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/excepsit.tst,v retrieving revision 1.33 retrieving revision 1.34 diff -u -d -r1.33 -r1.34 --- excepsit.tst 8 Mar 2005 20:16:16 -0000 1.33 +++ excepsit.tst 24 Mar 2005 23:35:52 -0000 1.34 @@ -825,6 +825,9 @@ (parse-namestring "foo48:a" (logical-pathname "foo49:")) error +(logical-pathname "sys:foo.bar.") +parse-error + (pathname-match-p 34 "*") type-error --__--__-- Message: 3 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src TODO,1.81,1.82 Date: Fri, 25 Mar 2005 00:01:54 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28450/src Modified Files: TODO Log Message: more comments on the next release Index: TODO =================================================================== RCS file: /cvsroot/clisp/clisp/src/TODO,v retrieving revision 1.81 retrieving revision 1.82 diff -u -d -r1.81 -r1.82 --- TODO 22 Mar 2005 17:13:40 -0000 1.81 +++ TODO 25 Mar 2005 00:01:52 -0000 1.82 @@ -7,9 +7,16 @@ Readline interface problem: [2]> (macroexü *** - AREF: Index 9 für "(macroexü" ist zu groÃ. +this appears to be a readline bug: +Breakpoint 15, lisp_completion_matches (text=0x822c1d8 "macroexü", start=1, + end=10) at stream.d:9309 +(gdb) p strlen(text) +$1 = 9 Restore interpretation of command-line options. - [sds: what does this mean?] +[sds: what does this mean? bad command line should result in an error message + and a note about "--help", and not the full - potentially multi-page! - + help message ] MUST-FIX BEFORE RELEASE 2.35 --__--__-- Message: 4 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/doc impext.xml,1.319,1.320 Date: Fri, 25 Mar 2005 03:00:26 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5767/doc Modified Files: impext.xml Log Message: more markup Index: impext.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impext.xml,v retrieving revision 1.319 retrieving revision 1.320 diff -u -d -r1.319 -r1.320 --- impext.xml 14 Mar 2005 21:06:30 -0000 1.319 +++ impext.xml 25 Mar 2005 03:00:22 -0000 1.320 @@ -4426,8 +4426,8 @@ is <envar>$0</envar> in &sh;, can be found in &load-truename-var; and &load-pathname-var;).</simpara></listitem> <listitem><simpara>Before it is loaded, the variable &args; is bound - to a list of strings, representing the arguments given to the Lisp - script (i.e., <envar>$1</envar> in &sh; becomes <code>(&first; + to a &list-t; of &string-t;s, representing the arguments given to the + Lisp script (i.e., <envar>$1</envar> in &sh; becomes <code>(&first; &args;)</code> etc).</simpara></listitem> <listitem><simpara>The standard &unix; i/o facilities (see &stdio-h;) are used: &standard-input-var; is bound to &stdin;, @@ -4601,7 +4601,7 @@ <replaceable>arg&sub-2;</replaceable> ...)</code> executes an external program. Its name is &program-r; (a full pathname). - It is given the strings <replaceable>arg&sub-1;</replaceable>, + It is given the &string-t;s <replaceable>arg&sub-1;</replaceable>, <replaceable>arg&sub-2;</replaceable>, ... as arguments. </simpara></listitem></varlistentry> <!-- #endif --> @@ -4653,8 +4653,8 @@ &env-var; <envar>PATH</envar> will be searched for it. </simpara></listitem></varlistentry> <varlistentry><term>&arguments-k;</term> - <listitem><simpara>a list of arguments (strings) that are given to the - program.</simpara></listitem></varlistentry> + <listitem><simpara>a list of arguments (&string-t;s) that are given + to the program.</simpara></listitem></varlistentry> <varlistentry><term>&input-k;</term> <listitem><simpara>where the program's input is to come from: either <constant>:TERMINAL</constant> (the standard input, default) or --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |