From: <cli...@li...> - 2008-02-11 20:07:37
|
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 io.d,1.330,1.331 NEWS,1.421,1.422 ChangeLog,1.5984,1.5985 (Sam Steingold) 2. clisp/tests iofkts.tst,1.47,1.48 ChangeLog,1.530,1.531 (Sam Steingold) 3. clisp/sacla-tests tests.lisp,1.3,1.4 ChangeLog,1.9,1.10 (Sam Steingold) 4. clisp/src subrkw.d,1.58,1.59 (Sam Steingold) 5. clisp/src lispbibl.d,1.764,1.765 (Sam Steingold) 6. clisp/src makemake.in,1.724,1.725 ChangeLog,1.5985,1.5986 (Sam Steingold) 7. clisp/src ChangeLog,1.5986,1.5987 (Sam Steingold) 8. clisp/src io.d,1.331,1.332 ChangeLog,1.5987,1.5988 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Mon, 11 Feb 2008 16:05:15 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src io.d,1.330,1.331 NEWS,1.421,1.422 ChangeLog,1.5984,1.5985 To: cli...@li... Message-ID: <E1J...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv19386/src Modified Files: io.d NEWS ChangeLog Log Message: Fix handling of quoted objects by READ-PRESERVING-WHITESPACE. [ 1890854 ] (list2_reader): bind *READ-RECURSIVE-P* around read_recursive_no_dot() to avoid *READ-PRESERVE-WHITESPACE* being re-bound to NIL in read_recursive() Index: NEWS =================================================================== RCS file: /cvsroot/clisp/clisp/src/NEWS,v retrieving revision 1.421 retrieving revision 1.422 diff -u -d -r1.421 -r1.422 --- NEWS 6 Feb 2008 20:41:01 -0000 1.421 +++ NEWS 11 Feb 2008 16:05:10 -0000 1.422 @@ -8,6 +8,9 @@ * New command-line option -lp adds directories to *LOAD-PATHS*. See <http://clisp.cons.org/impnotes/clisp.html#opt-load-paths> for details. +* Bug fixes: + + Fix handling of quoted objects by READ-PRESERVING-WHITESPACE. [ 1890854 ] + 2.44 (2008-02-02) Index: io.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/io.d,v retrieving revision 1.330 retrieving revision 1.331 diff -u -d -r1.330 -r1.331 --- io.d 7 Feb 2008 17:44:45 -0000 1.330 +++ io.d 11 Feb 2008 16:05:10 -0000 1.331 @@ -2659,7 +2659,9 @@ modifies STACK, can trigger GC can trigger GC */ local maygc Values list2_reader (const gcv_object_t* stream_) { + dynamic_bind(S(read_recursive_p),T); var object obj = read_recursive_no_dot(stream_); /* read Object */ + dynamic_unbind(S(read_recursive_p)); if (!nullpSv(read_suppress)) { /* *READ-SUPPRESS* /= NIL ? */ VALUES1(NIL); /* yes -> don't cons up a list, just return NIL */ } else { Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5984 retrieving revision 1.5985 diff -u -d -r1.5984 -r1.5985 --- ChangeLog 10 Feb 2008 16:12:51 -0000 1.5984 +++ ChangeLog 11 Feb 2008 16:05:10 -0000 1.5985 @@ -1,3 +1,11 @@ +2008-02-11 Sam Steingold <sd...@gn...> + + fix bug #[ 1890854 ]: read-preserving-whitespace eats whitespace + after quoted object + * io.d (list2_reader): bind *READ-RECURSIVE-P* around + read_recursive_no_dot() to avoid *READ-PRESERVE-WHITESPACE* being + re-bound to NIL in read_recursive() + 2008-02-10 Sam Steingold <sd...@gn...> * clos-genfun2b.lisp (finalize-fast-gf): avoid calling ------------------------------ Message: 2 Date: Mon, 11 Feb 2008 16:05:12 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/tests iofkts.tst,1.47,1.48 ChangeLog,1.530,1.531 To: cli...@li... Message-ID: <E1J...@ma...> Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv19386/tests Modified Files: iofkts.tst ChangeLog Log Message: Fix handling of quoted objects by READ-PRESERVING-WHITESPACE. [ 1890854 ] (list2_reader): bind *READ-RECURSIVE-P* around read_recursive_no_dot() to avoid *READ-PRESERVE-WHITESPACE* being re-bound to NIL in read_recursive() Index: iofkts.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/iofkts.tst,v retrieving revision 1.47 retrieving revision 1.48 diff -u -d -r1.47 -r1.48 --- iofkts.tst 31 Jan 2008 02:56:46 -0000 1.47 +++ iofkts.tst 11 Feb 2008 16:05:10 -0000 1.48 @@ -857,6 +857,14 @@ #2=(\"null\" #1# \"zero\") #2#))")) T +;; https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1890854&group_id=1355 +(with-input-from-string (s "'a #'b c d") + (list (read-preserving-whitespace s) (read-char s) + (read-preserving-whitespace s) (read-char s) + (read-preserving-whitespace s) (read-char s) + (read-char s))) +((QUOTE A) #\Space (FUNCTION B) #\Space C #\Space #\d) + ;; http://sourceforge.net/tracker/index.php?func=detail&aid=1412454&group_id=1355&atid=101355 (let (#+clisp (*pprint-first-newline* nil)) (format nil "~{~a~}" (list "string1" "string2" Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.530 retrieving revision 1.531 diff -u -d -r1.530 -r1.531 --- ChangeLog 6 Feb 2008 16:40:42 -0000 1.530 +++ ChangeLog 11 Feb 2008 16:05:10 -0000 1.531 @@ -1,3 +1,8 @@ +2008-02-11 Sam Steingold <sd...@gn...> + + * iofkts.tst: test for bug #[ 1890854 ]: + read-preserving-whitespace eats whitespace after quoted obj + 2008-02-06 Sam Steingold <sd...@gn...> * macro8.tst ("test-crlf-print-read.lisp"): use ------------------------------ Message: 3 Date: Mon, 11 Feb 2008 17:24:12 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/sacla-tests tests.lisp,1.3,1.4 ChangeLog,1.9,1.10 To: cli...@li... Message-ID: <E1J...@ma...> Update of /cvsroot/clisp/clisp/sacla-tests In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv17763/sacla-tests Modified Files: tests.lisp ChangeLog Log Message: when loading tests/tests.lisp, use *load-pathname* instead of *load-truename* because build/tests/tests.lisp may have been compiled but *load-truename* will point us to the top-level directory without the compiled files Index: tests.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/sacla-tests/tests.lisp,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- tests.lisp 8 Nov 2005 23:27:45 -0000 1.3 +++ tests.lisp 11 Feb 2008 17:24:09 -0000 1.4 @@ -1,7 +1,7 @@ ;; Run Yuji Minejima's test suite (load (make-pathname :name "tests" :type nil - :defaults (merge-pathnames "../tests/" *load-truename*))) + :defaults (merge-pathnames "../tests/" *load-pathname*))) (setq *run-test-type* "lisp" *test-result-in-file* nil) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/sacla-tests/ChangeLog,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- ChangeLog 8 Nov 2005 23:27:45 -0000 1.9 +++ ChangeLog 11 Feb 2008 17:24:09 -0000 1.10 @@ -1,3 +1,10 @@ +2008-02-11 Sam Steingold <sd...@gn...> + + * tests.lisp: when loading tests/tests.lisp, use *load-pathname* + instead of *load-truename* because build/tests/tests.lisp may + have been compiled but *load-truename* will point us to the + top-level directory without the compiled files + 2005-11-08 Sam Steingold <sd...@gn...> * tests.lisp (run-all-tests): run "must-condition" with disabled ------------------------------ Message: 4 Date: Mon, 11 Feb 2008 17:29:04 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src subrkw.d,1.58,1.59 To: cli...@li... Message-ID: <E1J...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv19379/src Modified Files: subrkw.d Log Message: (make_thread): fix a typo Index: subrkw.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/subrkw.d,v retrieving revision 1.58 retrieving revision 1.59 diff -u -d -r1.58 -r1.59 --- subrkw.d 13 Jan 2008 01:38:37 -0000 1.58 +++ subrkw.d 11 Feb 2008 17:29:02 -0000 1.59 @@ -216,6 +216,6 @@ s(foreign_free) #endif #ifdef MULTITHREAD -v(1, kw(name)) +v(1, (kw(name))) s(make_thread) #endif ------------------------------ Message: 5 Date: Mon, 11 Feb 2008 17:35:20 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src lispbibl.d,1.764,1.765 To: cli...@li... Message-ID: <E1J...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv22007/src Modified Files: lispbibl.d Log Message: add space before LISPFUN* forms in comments to avoid confusing "make check-sources" Index: lispbibl.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/lispbibl.d,v retrieving revision 1.764 retrieving revision 1.765 diff -u -d -r1.764 -r1.765 --- lispbibl.d 4 Feb 2008 23:38:23 -0000 1.764 +++ lispbibl.d 11 Feb 2008 17:35:17 -0000 1.765 @@ -12633,7 +12633,7 @@ /* is used by CONTROL */ /* The macro LISPFUN initiates a declaration of a LISP functions. -LISPFUN(name,seclass,req_count,opt_count,rest_flag,key_flag,key_count,keywords) + LISPFUN(name,seclass,req_count,opt_count,rest_flag,key_flag,key_count,keywords) > name: the name of the function (a C-Identifier) > seclass: the side-effect class (seclass_t, see above) > req_count: number of required parameters (a number) @@ -12649,7 +12649,7 @@ /* used by all modules */ /* The macro LISPFUNN initiates a simple declaration of a LISP-function. -LISPFUNN(name,req_count) + LISPFUNN(name,req_count) > name: the function-name (a C-Identifier) > req_count: the (fixed) number of arguments (a number) LISPFUNNF - ditto, but seclass_foldable instead of seclass_default ------------------------------ Message: 6 Date: Mon, 11 Feb 2008 18:21:29 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src makemake.in,1.724,1.725 ChangeLog,1.5985,1.5986 To: cli...@li... Message-ID: <E1J...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv7620/src Modified Files: makemake.in ChangeLog Log Message: (check-sources): grep ${SRCDIR}*.d, not *.d Index: makemake.in =================================================================== RCS file: /cvsroot/clisp/clisp/src/makemake.in,v retrieving revision 1.724 retrieving revision 1.725 diff -u -d -r1.724 -r1.725 --- makemake.in 6 Feb 2008 20:41:01 -0000 1.724 +++ makemake.in 11 Feb 2008 18:21:26 -0000 1.725 @@ -3055,7 +3055,7 @@ echol "# 2. no variables of type gcv_object_t - only pointers to it" echol "check-sources : # lisp${LEXE} lispinit.mem" echotab '$(RUN) -M lispinit.mem -C -i '"${SRCDIR}"'check-lispfun.lisp -x "(check-lisp-defs \"'"${SRCDIR}"'\")"' - echotab "if egrep ' var gcv_object_t *[^* ]' *.d; then false; else true; fi" + echotab "if egrep ' var gcv_object_t *[^* ]' ${SRCDIR}*.d; then false; else true; fi" echol echol "# Test: recompile \$(LISPFILES) and compare their contents." Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5985 retrieving revision 1.5986 diff -u -d -r1.5985 -r1.5986 --- ChangeLog 11 Feb 2008 16:05:10 -0000 1.5985 +++ ChangeLog 11 Feb 2008 18:21:26 -0000 1.5986 @@ -1,5 +1,9 @@ 2008-02-11 Sam Steingold <sd...@gn...> + * makemake.in (check-sources): grep ${SRCDIR}*.d, not *.d + +2008-02-11 Sam Steingold <sd...@gn...> + fix bug #[ 1890854 ]: read-preserving-whitespace eats whitespace after quoted object * io.d (list2_reader): bind *READ-RECURSIVE-P* around ------------------------------ Message: 7 Date: Mon, 11 Feb 2008 18:22:23 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.5986,1.5987 To: cli...@li... Message-ID: <E1J...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv7992/src Modified Files: ChangeLog Log Message: (make_thread): fix a typo Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5986 retrieving revision 1.5987 diff -u -d -r1.5986 -r1.5987 --- ChangeLog 11 Feb 2008 18:21:26 -0000 1.5986 +++ ChangeLog 11 Feb 2008 18:22:21 -0000 1.5987 @@ -1,6 +1,7 @@ 2008-02-11 Sam Steingold <sd...@gn...> * makemake.in (check-sources): grep ${SRCDIR}*.d, not *.d + * subrkw.d (make_thread): fix a typo 2008-02-11 Sam Steingold <sd...@gn...> ------------------------------ Message: 8 Date: Mon, 11 Feb 2008 19:00:27 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src io.d,1.331,1.332 ChangeLog,1.5987,1.5988 To: cli...@li... Message-ID: <E1J...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv22406/src Modified Files: io.d ChangeLog Log Message: (pr_symbol_part): use pr_fasl_special only on fasl_streams Index: io.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/io.d,v retrieving revision 1.331 retrieving revision 1.332 diff -u -d -r1.331 -r1.332 --- io.d 11 Feb 2008 16:05:10 -0000 1.331 +++ io.d 11 Feb 2008 19:00:23 -0000 1.332 @@ -7108,7 +7108,7 @@ var uintL index = 0; do { var chart c = as_chart(((SstringX)TheVarobject(STACK_0))->data[index]); /* the next character */ - if (!pr_fasl_special(stream_,c,&pending_newline)) { + if (!fasl_stream || !pr_fasl_special(stream_,c,&pending_newline)) { if (case_inverted) c = invert_case(c); switch (syntax_table_get(STACK_1,c)) { /* its Syntaxcode */ Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5987 retrieving revision 1.5988 diff -u -d -r1.5987 -r1.5988 --- ChangeLog 11 Feb 2008 18:22:21 -0000 1.5987 +++ ChangeLog 11 Feb 2008 19:00:24 -0000 1.5988 @@ -1,5 +1,9 @@ 2008-02-11 Sam Steingold <sd...@gn...> + * io.d (pr_symbol_part): use pr_fasl_special only on fasl_streams + +2008-02-11 Sam Steingold <sd...@gn...> + * makemake.in (check-sources): grep ${SRCDIR}*.d, not *.d * subrkw.d (make_thread): fix a typo ------------------------------ ------------------------------------------------------------------------- This SF.net email is sponsored by: Microsoft Defy all challenges. Microsoft(R) Visual Studio 2008. 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 22, Issue 12 ***************************************** |