From: <cli...@li...> - 2004-08-09 03:22:33
|
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.242,1.243 NEWS,1.168,1.169 ChangeLog,1.3398,1.3399 (Bruno Haible) 2. clisp/src io.d,1.243,1.244 NEWS,1.169,1.170 ChangeLog,1.3399,1.3400 (Bruno Haible) 3. clisp/src spvw.d,1.304,1.305 ChangeLog,1.3400,1.3401 (Bruno Haible) 4. clisp/utils clispload.lsp,1.22,1.23 (Bruno Haible) 5. clisp/src ChangeLog,1.3401,1.3402 (Bruno Haible) --__--__-- Message: 1 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src io.d,1.242,1.243 NEWS,1.168,1.169 ChangeLog,1.3398,1.3399 Date: Sun, 08 Aug 2004 14:48:20 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29900/src Modified Files: io.d NEWS ChangeLog Log Message: READ-DELIMITED-LIST now returns NIL when *READ-SUPPRESS* is true. Index: NEWS =================================================================== RCS file: /cvsroot/clisp/clisp/src/NEWS,v retrieving revision 1.168 retrieving revision 1.169 diff -u -d -r1.168 -r1.169 --- NEWS 8 Aug 2004 14:46:24 -0000 1.168 +++ NEWS 8 Aug 2004 14:48:18 -0000 1.169 @@ -144,6 +144,7 @@ + An attempt to create a condition from an invalid condition designator now always results in a TYPE-ERROR being signalled. + The reader's errors are now of type READER-ERROR when they should be. + + READ-DELIMITED-LIST now returns NIL when *READ-SUPPRESS* is true. Thanks to Paul F. Dietz <di...@dl...> and his ANSI compliance suite, which helped detect some of these deficiencies. Thanks to Yuji Minejima <ggb...@ni...> and his ANSI compliance Index: io.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/io.d,v retrieving revision 1.242 retrieving revision 1.243 diff -u -d -r1.242 -r1.243 --- io.d 8 Aug 2004 14:47:15 -0000 1.242 +++ io.d 8 Aug 2004 14:48:17 -0000 1.243 @@ -2339,6 +2339,10 @@ ergebnis = read_delimited_list_recursive(stream_,endch,ifdotted); dynamic_unbind(S(read_recursive_p)); } + # ANSI CL spec of *READ-SUPPRESS* says that if *READ-SUPPRESS* is true, + # READ-DELIMITED-LIST must return NIL. + if (!nullpSv(read_suppress)) /* *READ-SUPPRESS* /= NIL ? */ + ergebnis = NIL; if (terminal_read_open_object_bind) dynamic_unbind(S(terminal_read_open_object)); dynamic_unbind(S(read_line_number)); Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.3398 retrieving revision 1.3399 diff -u -d -r1.3398 -r1.3399 --- ChangeLog 8 Aug 2004 14:47:15 -0000 1.3398 +++ ChangeLog 8 Aug 2004 14:48:18 -0000 1.3399 @@ -1,3 +1,7 @@ +2004-08-07 Bruno Haible <br...@cl...> + + * io.d (read_delimited_list): If *read-suppress* is true, return NIL. + 2004-08-08 Bruno Haible <br...@cl...> * io.d (read_token_1, read_macro, read_internal, make_references, --__--__-- Message: 2 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src io.d,1.243,1.244 NEWS,1.169,1.170 ChangeLog,1.3399,1.3400 Date: Sun, 08 Aug 2004 14:49:34 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30033/src Modified Files: io.d NEWS ChangeLog Log Message: Printing of multidimensional arrays now respects *PRINT-LEVEL*. Index: NEWS =================================================================== RCS file: /cvsroot/clisp/clisp/src/NEWS,v retrieving revision 1.169 retrieving revision 1.170 diff -u -d -r1.169 -r1.170 --- NEWS 8 Aug 2004 14:48:18 -0000 1.169 +++ NEWS 8 Aug 2004 14:49:31 -0000 1.170 @@ -145,6 +145,7 @@ always results in a TYPE-ERROR being signalled. + The reader's errors are now of type READER-ERROR when they should be. + READ-DELIMITED-LIST now returns NIL when *READ-SUPPRESS* is true. + + Printing of multidimensional arrays now respects *PRINT-LEVEL*. Thanks to Paul F. Dietz <di...@dl...> and his ANSI compliance suite, which helped detect some of these deficiencies. Thanks to Yuji Minejima <ggb...@ni...> and his ANSI compliance Index: io.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/io.d,v retrieving revision 1.243 retrieving revision 1.244 diff -u -d -r1.243 -r1.244 --- io.d 8 Aug 2004 14:48:17 -0000 1.243 +++ io.d 8 Aug 2004 14:49:31 -0000 1.244 @@ -7826,7 +7826,14 @@ # (recursively, with decreased depth, and locals->info.index # is passed from one call to the next call # without requiring further action) - pr_array_recursion(locals,depth,rdepth); + if (depth > 0) { + if (!level_check(locals->stream_)) { + pr_array_recursion(locals,depth,rdepth); + level_end(locals->stream_); + } + } else { + pr_array_recursion(locals,depth,rdepth); + } length++; # increment length :-) # locals->info.index is already incremented } Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.3399 retrieving revision 1.3400 diff -u -d -r1.3399 -r1.3400 --- ChangeLog 8 Aug 2004 14:48:18 -0000 1.3399 +++ ChangeLog 8 Aug 2004 14:49:32 -0000 1.3400 @@ -1,5 +1,10 @@ 2004-08-07 Bruno Haible <br...@cl...> + * io.d (pr_array_recursion): Check *PRINT-LEVEL* before calling + pr_array_recursion recursively. + +2004-08-07 Bruno Haible <br...@cl...> + * io.d (read_delimited_list): If *read-suppress* is true, return NIL. 2004-08-08 Bruno Haible <br...@cl...> --__--__-- Message: 3 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src spvw.d,1.304,1.305 ChangeLog,1.3400,1.3401 Date: Sun, 08 Aug 2004 15:28:25 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2435 Modified Files: spvw.d ChangeLog Log Message: Change default value of *DEFUN-ACCEPT-SPECIALIZED-LAMBDA-LIST*. Index: spvw.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/spvw.d,v retrieving revision 1.304 retrieving revision 1.305 diff -u -d -r1.304 -r1.305 --- spvw.d 12 Jul 2004 20:13:23 -0000 1.304 +++ spvw.d 8 Aug 2004 15:28:22 -0000 1.305 @@ -1317,7 +1317,7 @@ define_variable(S(load_print),NIL); /* *LOAD-PRINT* := NIL */ define_variable(S(compile_print),NIL); /* *COMPILE-PRINT* := NIL */ define_variable(S(compile_verbose),T); /* *COMPILE-VERBOSE* := T */ - define_variable(S(defun_accept_spelalist),T); /* *DEFUN-ACCEPT-SPECIALIZED-LAMBDA-LIST* */ + define_variable(S(defun_accept_spelalist),NIL); /* CUSTOM:*DEFUN-ACCEPT-SPECIALIZED-LAMBDA-LIST* := NIL */ # for FOREIGN: #ifdef DYNAMIC_FFI define_constant(S(fv_flag_readonly),fixnum(fv_readonly)); # FFI::FV-FLAG-READONLY Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.3400 retrieving revision 1.3401 diff -u -d -r1.3400 -r1.3401 --- ChangeLog 8 Aug 2004 14:49:32 -0000 1.3400 +++ ChangeLog 8 Aug 2004 15:28:22 -0000 1.3401 @@ -1,3 +1,8 @@ +2004-08-08 Bruno Haible <br...@cl...> + + * spvw.d (init_symbol_values): Initialize + *DEFUN-ACCEPT-SPECIALIZED-LAMBDA-LIST* to NIL. + 2004-08-07 Bruno Haible <br...@cl...> * io.d (pr_array_recursion): Check *PRINT-LEVEL* before calling --__--__-- Message: 4 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/utils clispload.lsp,1.22,1.23 Date: Sun, 08 Aug 2004 15:56:40 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/utils In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6293/utils Modified Files: clispload.lsp Log Message: Many new failures to be revisited. Index: clispload.lsp =================================================================== RCS file: /cvsroot/clisp/clisp/utils/clispload.lsp,v retrieving revision 1.22 retrieving revision 1.23 diff -u -d -r1.22 -r1.23 --- clispload.lsp 26 Jul 2004 08:59:34 -0000 1.22 +++ clispload.lsp 8 Aug 2004 15:56:38 -0000 1.23 @@ -107,7 +107,36 @@ PRINT.ARRAY.2.19 ; To be revisited: - ; none + BIGNUM.FLOAT.COMPARE.1A BIGNUM.FLOAT.COMPARE.1B BIGNUM.FLOAT.COMPARE.2A + BIGNUM.FLOAT.COMPARE.2B BIGNUM.FLOAT.COMPARE.3A BIGNUM.FLOAT.COMPARE.3B + BIGNUM.FLOAT.COMPARE.4A BIGNUM.FLOAT.COMPARE.4B BIGNUM.FLOAT.COMPARE.5A + BIGNUM.FLOAT.COMPARE.5B BIGNUM.FLOAT.COMPARE.6A BIGNUM.FLOAT.COMPARE.6B + BIGNUM.FLOAT.COMPARE.7 BIGNUM.FLOAT.COMPARE.8 + BIGNUM.SHORT-FLOAT.RANDOM.COMPARE.1 RATIONAL.SHORT-FLOAT.RANDOM.COMPARE.1 + RATIONAL.SINGLE-FLOAT.RANDOM.COMPARE.1 COPY-PPRINT-DISPATCH.1 + COPY-PPRINT-DISPATCH.2 COPY-PPRINT-DISPATCH.3 COPY-PPRINT-DISPATCH.4 + PRINT.ARRAY.2.21 PRINT.ARRAY.2.22 PRINT.ARRAY.2.23 PPRINT-TABULAR.6 + PPRINT-TABULAR.7 PPRINT-TABULAR.8 PPRINT-TABULAR.9 PPRINT-TABULAR.10 + PPRINT-TABULAR.11 PPRINT-TABULAR.12 PPRINT-TABULAR.13 PPRINT-TABULAR.14 + PPRINT-TABULAR.15 PPRINT-TABULAR.16 PPRINT-TABULAR.17 PPRINT-TABULAR.18 + PPRINT-TABULAR.19 PPRINT-TABULAR.20 PPRINT-TABULAR.21 PPRINT-TABULAR.22 + PPRINT-TABULAR.24 PPRINT-INDENT.9 PPRINT-INDENT.10 PPRINT-INDENT.19 + PPRINT-INDENT.21 PPRINT-INDENT.22 PPRINT-INDENT.23 + PPRINT-LOGICAL-BLOCK.ERROR.1 PPRINT-LOGICAL-BLOCK.ERROR.2 + PPRINT-LOGICAL-BLOCK.ERROR.3 PPRINT-POP.6 PPRINT-POP.7 PPRINT-POP.8 + PPRINT-NEWLINE.1 PPRINT-NEWLINE.2 PPRINT-NEWLINE.3 PPRINT-NEWLINE.LINEAR.1 + PPRINT-NEWLINE.LINEAR.2 PPRINT-NEWLINE.LINEAR.6 PPRINT-NEWLINE.LINEAR.7 + PPRINT-NEWLINE.LINEAR.8 PPRINT-NEWLINE.MISER.4 PPRINT-NEWLINE.MISER.6 + PPRINT-NEWLINE.MISER.7 PPRINT-NEWLINE.MISER.8 PPRINT-NEWLINE.MISER.9 + PPRINT-NEWLINE.MISER.10 PPRINT-NEWLINE.MISER.11 PPRINT-NEWLINE.FILL.1 + PPRINT-NEWLINE.FILL.2 PPRINT-NEWLINE.FILL.3 PPRINT-NEWLINE.FILL.4 + PPRINT-NEWLINE.FILL.5 PPRINT-NEWLINE.FILL.6 PPRINT-NEWLINE.FILL.7 + PPRINT-NEWLINE.MANDATORY.1 PPRINT-NEWLINE.MANDATORY.2 + PPRINT-NEWLINE.MANDATORY.3 PPRINT-NEWLINE.MANDATORY.5 PPRINT-TAB.NON-PRETTY.1 + PPRINT-TAB.NON-PRETTY.2 PPRINT-TAB.NON-PRETTY.3 PPRINT-TAB.NON-PRETTY.4 + PPRINT-TAB.NON-PRETTY.5 PPRINT-TAB.NON-PRETTY.6 PPRINT-TAB.NON-PRETTY.7 + PPRINT-TAB.NON-PRETTY.8 PPRINT-TAB.SECTION-RELATIVE.1 + PRINT-UNREADABLE-OBJECT.2 PRINT-UNREADABLE-OBJECT.3 )) ;; A few tests call DISASSEMBLE. Make it work without user intervention. --__--__-- Message: 5 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src ChangeLog,1.3401,1.3402 Date: Sun, 08 Aug 2004 15:56:41 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6293/src Modified Files: ChangeLog Log Message: Many new failures to be revisited. Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.3401 retrieving revision 1.3402 diff -u -d -r1.3401 -r1.3402 --- ChangeLog 8 Aug 2004 15:28:22 -0000 1.3401 +++ ChangeLog 8 Aug 2004 15:56:38 -0000 1.3402 @@ -1,5 +1,10 @@ 2004-08-08 Bruno Haible <br...@cl...> + * utils/clispload.lsp (*expected-failures*): Many new failures to be + revisited. + +2004-08-08 Bruno Haible <br...@cl...> + * spvw.d (init_symbol_values): Initialize *DEFUN-ACCEPT-SPECIALIZED-LAMBDA-LIST* to NIL. --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |