From: <cli...@li...> - 2004-12-10 17:01:01
|
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/syscalls syscalls.xml,1.18,1.19 (Sam Steingold) 2. clisp/src foreign.d,1.92.2.3,1.92.2.4 ChangeLog,1.2750.2.78,1.2750.2.79 (Bruno Haible) 3. clisp/src foreign.d,1.116,1.117 ChangeLog,1.3900,1.3901 (Bruno Haible) 4. clisp/src foreign.d,1.92.2.4,1.92.2.5 ChangeLog,1.2750.2.79,1.2750.2.80 (Bruno Haible) 5. clisp/src foreign.d,1.117,1.118 ChangeLog,1.3901,1.3902 (Bruno Haible) 6. clisp/src foreign.d,1.92.2.5,1.92.2.6 ChangeLog,1.2750.2.80,1.2750.2.81 (Bruno Haible) 7. clisp/src foreign.d,1.118,1.119 ChangeLog,1.3902,1.3903 (Bruno Haible) 8. clisp/src lisparit.d,1.60,1.60.2.1 ChangeLog,1.2750.2.81,1.2750.2.82 (Bruno Haible) 9. clisp/src lisparit.d,1.70,1.71 ChangeLog,1.3903,1.3904 (Bruno Haible) 10. clisp/src stream.d,1.415.2.9,1.415.2.10 ChangeLog,1.2750.2.82,1.2750.2.83 (Bruno Haible) 11. clisp/src stream.d,1.477,1.478 ChangeLog,1.3904,1.3905 (Bruno Haible) 12. clisp/emacs d-mode.el,1.56,1.57 (Sam Steingold) 13. clisp/doc impent.xml,1.183,1.184 (Bruno Haible) 14. clisp/src NEWS,1.213,1.214 (Bruno Haible) 15. clisp/src stream.d,1.478,1.479 ChangeLog,1.3905,1.3906 (Bruno Haible) 16. clisp/src describe.lisp,1.65,1.66 ChangeLog,1.3906,1.3907 (Bruno Haible) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/syscalls syscalls.xml,1.18,1.19 Date: Fri, 10 Dec 2004 16:24:30 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/syscalls In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11799/modules/syscalls Modified Files: syscalls.xml Log Message: formatting Index: syscalls.xml =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/syscalls.xml,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- syscalls.xml 10 Dec 2004 10:16:36 -0000 1.18 +++ syscalls.xml 10 Dec 2004 16:24:28 -0000 1.19 @@ -275,8 +275,8 @@ <listitem><para>Wrapper for the &win32; <function>IPropertyStorage</function> functionality. <variablelist><varlistentry><term>&filename-r;</term> - <listitem><simpara>name of a compound file (where properties are stored) or - (on NTFS) name of any file (properties are stored in the filesystem). + <listitem><simpara>name of a compound file (where properties are stored) + or (on NTFS) name of any file (properties are stored in the filesystem). For compound files on NTFS, file storage is preferred. </simpara></listitem></varlistentry> <varlistentry><term><replaceable>set</replaceable></term> --__--__-- Message: 2 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src foreign.d,1.92.2.3,1.92.2.4 ChangeLog,1.2750.2.78,1.2750.2.79 Date: Fri, 10 Dec 2004 16:28:42 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12523/src Modified Files: Tag: clisp_2_33-patched foreign.d ChangeLog Log Message: Fix GC-safety bug introduced on 2003-03-14. Index: foreign.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/foreign.d,v retrieving revision 1.92.2.3 retrieving revision 1.92.2.4 diff -u -d -r1.92.2.3 -r1.92.2.4 --- foreign.d 6 Dec 2004 12:16:03 -0000 1.92.2.3 +++ foreign.d 10 Dec 2004 16:28:36 -0000 1.92.2.4 @@ -117,14 +117,15 @@ LISPFUNN(set_foreign_pointer,2) { /* (setf (foreign-pointer f-ent) new-value) */ /* f-ent --> foreign-address */ - var object faddr = foreign_address(STACK_1,false); + STACK_1 = foreign_address(STACK_1,false); var object new_fp = STACK_0; if (eq(new_fp,S(Kcopy))) { - TheFaddress(faddr)->fa_base = - allocate_fpointer(TheFpointer(TheFaddress(faddr)->fa_base)->fp_pointer); + new_fp = allocate_fpointer(TheFpointer(TheFaddress(STACK_1)->fa_base)->fp_pointer); + TheFaddress(STACK_1)->fa_base = new_fp; VALUES1(S(Kcopy)); } else { new_fp = check_fpointer(new_fp,true); + var object faddr = STACK_1; TheFaddress(faddr)->fa_base = new_fp; TheFaddress(faddr)->fa_offset = (uintP)Faddress_value(faddr) - (uintP)Fpointer_value(new_fp); Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.2750.2.78 retrieving revision 1.2750.2.79 diff -u -d -r1.2750.2.78 -r1.2750.2.79 --- ChangeLog 10 Dec 2004 15:56:33 -0000 1.2750.2.78 +++ ChangeLog 10 Dec 2004 16:28:37 -0000 1.2750.2.79 @@ -1,5 +1,10 @@ 2004-12-08 Bruno Haible <br...@cl...> + * foreign.d (SET-FOREIGN-POINTER): Fix GC-safety bug introduced on + 2003-03-14. + +2004-12-08 Bruno Haible <br...@cl...> + * list.d (list_length): Mark as "can trigger GC". Fix GC-safety bug introduced on 2004-02-17. --__--__-- Message: 3 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src foreign.d,1.116,1.117 ChangeLog,1.3900,1.3901 Date: Fri, 10 Dec 2004 16:30:04 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12772/src Modified Files: foreign.d ChangeLog Log Message: Fix GC-safety bug introduced on 2003-03-14. Index: foreign.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/foreign.d,v retrieving revision 1.116 retrieving revision 1.117 diff -u -d -r1.116 -r1.117 --- foreign.d 6 Dec 2004 12:32:14 -0000 1.116 +++ foreign.d 10 Dec 2004 16:30:00 -0000 1.117 @@ -120,18 +120,19 @@ LISPFUNN(set_foreign_pointer,2) { /* TODO? restart that allows all of (OR (EQL :COPY) FOREIGN-xyz) */ + var object address = foreign_address(STACK_1,false); var object new_fp = STACK_0; - STACK_0 = foreign_address(STACK_1,false); + STACK_0 = address; /* Stack layout: f-entity f-entity-address. */ if (eq(new_fp,S(Kcopy))) { - var object fp = TheFaddress(STACK_0)->fa_base; + var object fp = TheFaddress(address)->fa_base; new_fp = allocate_fpointer(Fpointer_value(fp)); } else { /* extract other entity's FOREIGN-POINTER */ new_fp = foreign_pointer_strict(new_fp); - var sintP offset = (uintP)Faddress_value(STACK_0) - - (uintP)Fpointer_value(new_fp); - TheFaddress(STACK_0)->fa_offset = offset; + var sintP offset = + (uintP)Faddress_value(address) - (uintP)Fpointer_value(new_fp); + TheFaddress(address)->fa_offset = offset; } TheFaddress(STACK_0)->fa_base = new_fp; VALUES1(STACK_1); skipSTACK(2); Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.3900 retrieving revision 1.3901 diff -u -d -r1.3900 -r1.3901 --- ChangeLog 10 Dec 2004 16:09:22 -0000 1.3900 +++ ChangeLog 10 Dec 2004 16:30:00 -0000 1.3901 @@ -1,3 +1,8 @@ +2004-12-08 Bruno Haible <br...@cl...> + + * foreign.d (SET-FOREIGN-POINTER): Fix GC-safety bug introduced on + 2003-03-14. + 2004-12-10 Sam Steingold <sd...@gn...> New user variable CUSTOM:*PRINT-SYMBOL-PACKAGE-PREFIX-SHORTEST* --__--__-- Message: 4 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src foreign.d,1.92.2.4,1.92.2.5 ChangeLog,1.2750.2.79,1.2750.2.80 Date: Fri, 10 Dec 2004 16:31:40 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13139/src Modified Files: Tag: clisp_2_33-patched foreign.d ChangeLog Log Message: Fix long-standing GC-safety bug. Index: foreign.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/foreign.d,v retrieving revision 1.92.2.4 retrieving revision 1.92.2.5 diff -u -d -r1.92.2.4 -r1.92.2.5 --- foreign.d 10 Dec 2004 16:28:36 -0000 1.92.2.4 +++ foreign.d 10 Dec 2004 16:31:33 -0000 1.92.2.5 @@ -408,7 +408,11 @@ local object convert_function_to_foreign (object fun, object resulttype, object argtypes, object flags) { /* Convert to a function: */ - with_saved_back_trace(L(coerce),-1,fun = coerce_function(fun)); + if (!functionp(fun)) { + pushSTACK(resulttype); pushSTACK(argtypes); pushSTACK(flags); + with_saved_back_trace(L(coerce),-1, { fun = coerce_function(fun); }); + flags = popSTACK(); argtypes = popSTACK(); resulttype = popSTACK(); + } /* If it is already a foreign function, return it immediately: */ if (ffunctionp(fun)) { check_cc_match(fun, resulttype, argtypes, flags); Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.2750.2.79 retrieving revision 1.2750.2.80 diff -u -d -r1.2750.2.79 -r1.2750.2.80 --- ChangeLog 10 Dec 2004 16:28:37 -0000 1.2750.2.79 +++ ChangeLog 10 Dec 2004 16:31:33 -0000 1.2750.2.80 @@ -1,5 +1,10 @@ 2004-12-08 Bruno Haible <br...@cl...> + * foreign.d (convert_function_to_foreign): Fix long-standing GC-safety + bug. + +2004-12-08 Bruno Haible <br...@cl...> + * foreign.d (SET-FOREIGN-POINTER): Fix GC-safety bug introduced on 2003-03-14. --__--__-- Message: 5 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src foreign.d,1.117,1.118 ChangeLog,1.3901,1.3902 Date: Fri, 10 Dec 2004 16:32:21 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13301/src Modified Files: foreign.d ChangeLog Log Message: Fix long-standing GC-safety bug. Index: foreign.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/foreign.d,v retrieving revision 1.117 retrieving revision 1.118 diff -u -d -r1.117 -r1.118 --- foreign.d 10 Dec 2004 16:30:00 -0000 1.117 +++ foreign.d 10 Dec 2004 16:32:18 -0000 1.118 @@ -416,7 +416,11 @@ local object convert_function_to_foreign (object fun, object resulttype, object argtypes, object flags) { /* Convert to a function: */ - with_saved_back_trace(L(coerce),-1,fun = coerce_function(fun)); + if (!functionp(fun)) { + pushSTACK(resulttype); pushSTACK(argtypes); pushSTACK(flags); + with_saved_back_trace(L(coerce),-1, { fun = coerce_function(fun); }); + flags = popSTACK(); argtypes = popSTACK(); resulttype = popSTACK(); + } /* If it is already a foreign function, return it immediately: */ if (ffunctionp(fun)) { check_cc_match(fun, resulttype, argtypes, flags); Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.3901 retrieving revision 1.3902 diff -u -d -r1.3901 -r1.3902 --- ChangeLog 10 Dec 2004 16:30:00 -0000 1.3901 +++ ChangeLog 10 Dec 2004 16:32:18 -0000 1.3902 @@ -1,5 +1,10 @@ 2004-12-08 Bruno Haible <br...@cl...> + * foreign.d (convert_function_to_foreign): Fix long-standing GC-safety + bug. + +2004-12-08 Bruno Haible <br...@cl...> + * foreign.d (SET-FOREIGN-POINTER): Fix GC-safety bug introduced on 2003-03-14. --__--__-- Message: 6 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src foreign.d,1.92.2.5,1.92.2.6 ChangeLog,1.2750.2.80,1.2750.2.81 Date: Fri, 10 Dec 2004 16:36:29 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14035/src Modified Files: Tag: clisp_2_33-patched foreign.d ChangeLog Log Message: Fix GC-safety bug introduced on 2003-08-07. Index: foreign.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/foreign.d,v retrieving revision 1.92.2.5 retrieving revision 1.92.2.6 diff -u -d -r1.92.2.5 -r1.92.2.6 --- foreign.d 10 Dec 2004 16:31:33 -0000 1.92.2.5 +++ foreign.d 10 Dec 2004 16:36:25 -0000 1.92.2.6 @@ -3804,11 +3804,17 @@ local object object_address (object library, gcv_object_t *name, object offset) { /* return the foreign address of the foreign object named `name' */ var object lib_addr = Car(Cdr(library)); - if (nullp(offset)) - return make_faddress(lib_addr,(sintP)object_handle(library,name,true) - - (sintP)TheFpointer(lib_addr)->fp_pointer); - else - return make_faddress(lib_addr,(sintP)I_to_sint32(offset)); + var sintP result_offset; + if (nullp(offset)) { + pushSTACK(lib_addr); + var void* name_handle = object_handle(library,name,true); + lib_addr = popSTACK(); + result_offset = + (sintP)name_handle - (sintP)TheFpointer(lib_addr)->fp_pointer; + } else { + result_offset = (sintP)I_to_sint32(offset); + } + return make_faddress(lib_addr,result_offset); } /* add foreign object obj to the acons (name addr obj1 ...) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.2750.2.80 retrieving revision 1.2750.2.81 diff -u -d -r1.2750.2.80 -r1.2750.2.81 --- ChangeLog 10 Dec 2004 16:31:33 -0000 1.2750.2.80 +++ ChangeLog 10 Dec 2004 16:36:25 -0000 1.2750.2.81 @@ -1,5 +1,9 @@ 2004-12-08 Bruno Haible <br...@cl...> + * foreign.d (object_address): Fix GC-safety bug introduced on 2003-08-07. + +2004-12-08 Bruno Haible <br...@cl...> + * foreign.d (convert_function_to_foreign): Fix long-standing GC-safety bug. --__--__-- Message: 7 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src foreign.d,1.118,1.119 ChangeLog,1.3902,1.3903 Date: Fri, 10 Dec 2004 16:37:04 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14167/src Modified Files: foreign.d ChangeLog Log Message: Fix GC-safety bug introduced on 2003-08-07. Index: foreign.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/foreign.d,v retrieving revision 1.118 retrieving revision 1.119 diff -u -d -r1.118 -r1.119 --- foreign.d 10 Dec 2004 16:32:18 -0000 1.118 +++ foreign.d 10 Dec 2004 16:37:02 -0000 1.119 @@ -4022,11 +4022,17 @@ local object object_address (object library, gcv_object_t *name, object offset) { /* return the foreign address of the foreign object named `name' */ var object lib_addr = Car(Cdr(library)); - if (nullp(offset)) - return make_faddress(lib_addr,(sintP)object_handle(library,name,true) - - (sintP)TheFpointer(lib_addr)->fp_pointer); - else - return make_faddress(lib_addr,(sintP)I_to_sint32(offset)); + var sintP result_offset; + if (nullp(offset)) { + pushSTACK(lib_addr); + var void* name_handle = object_handle(library,name,true); + lib_addr = popSTACK(); + result_offset = + (sintP)name_handle - (sintP)TheFpointer(lib_addr)->fp_pointer; + } else { + result_offset = (sintP)I_to_sint32(offset); + } + return make_faddress(lib_addr,result_offset); } /* add foreign object obj to the acons (name addr obj1 ...) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.3902 retrieving revision 1.3903 diff -u -d -r1.3902 -r1.3903 --- ChangeLog 10 Dec 2004 16:32:18 -0000 1.3902 +++ ChangeLog 10 Dec 2004 16:37:02 -0000 1.3903 @@ -1,5 +1,9 @@ 2004-12-08 Bruno Haible <br...@cl...> + * foreign.d (object_address): Fix GC-safety bug introduced on 2003-08-07. + +2004-12-08 Bruno Haible <br...@cl...> + * foreign.d (convert_function_to_foreign): Fix long-standing GC-safety bug. --__--__-- Message: 8 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src lisparit.d,1.60,1.60.2.1 ChangeLog,1.2750.2.81,1.2750.2.82 Date: Fri, 10 Dec 2004 16:38:14 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14392/src Modified Files: Tag: clisp_2_33-patched lisparit.d ChangeLog Log Message: Fix GC-safety bug introduced on 2002-10-06. Index: lisparit.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/lisparit.d,v retrieving revision 1.60 retrieving revision 1.60.2.1 diff -u -d -r1.60 -r1.60.2.1 --- lisparit.d 8 Mar 2004 11:37:27 -0000 1.60 +++ lisparit.d 10 Dec 2004 16:38:08 -0000 1.60.2.1 @@ -914,10 +914,12 @@ var object base = STACK_0; if (!boundp(base)) { /* LOG with one argument */ var object arg = STACK_1; - if (complexp(arg)) - STACK_0 = R_R_contagion_R(TheComplex(arg)->c_real, - TheComplex(arg)->c_imag); - else STACK_0 = STACK_1; + /* Determine the floating-point format to use for the result. */ + if (complexp(arg)) { + STACK_0 = R_R_contagion_R(TheComplex(arg)->c_real,TheComplex(arg)->c_imag); + arg = STACK_1; + } else + STACK_0 = arg; VALUES1(N_log_N(arg,true,&STACK_0)); } else { /* LOG with two arguments */ base = check_number(base); Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.2750.2.81 retrieving revision 1.2750.2.82 diff -u -d -r1.2750.2.81 -r1.2750.2.82 --- ChangeLog 10 Dec 2004 16:36:25 -0000 1.2750.2.81 +++ ChangeLog 10 Dec 2004 16:38:09 -0000 1.2750.2.82 @@ -1,5 +1,9 @@ 2004-12-08 Bruno Haible <br...@cl...> + * lisparit.d (LOG): Fix GC-safety bug introduced on 2002-10-06. + +2004-12-08 Bruno Haible <br...@cl...> + * foreign.d (object_address): Fix GC-safety bug introduced on 2003-08-07. 2004-12-08 Bruno Haible <br...@cl...> --__--__-- Message: 9 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src lisparit.d,1.70,1.71 ChangeLog,1.3903,1.3904 Date: Fri, 10 Dec 2004 16:39:06 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14556/src Modified Files: lisparit.d ChangeLog Log Message: Fix GC-safety bug introduced on 2002-10-06. Index: lisparit.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/lisparit.d,v retrieving revision 1.70 retrieving revision 1.71 diff -u -d -r1.70 -r1.71 --- lisparit.d 6 Dec 2004 12:38:57 -0000 1.70 +++ lisparit.d 10 Dec 2004 16:39:03 -0000 1.71 @@ -946,10 +946,12 @@ var object base = STACK_0; if (!boundp(base)) { /* LOG with one argument */ var object arg = STACK_1; - if (complexp(arg)) - STACK_0 = R_R_contagion_R(TheComplex(arg)->c_real, - TheComplex(arg)->c_imag); - else STACK_0 = STACK_1; + /* Determine the floating-point format to use for the result. */ + if (complexp(arg)) { + STACK_0 = R_R_contagion_R(TheComplex(arg)->c_real,TheComplex(arg)->c_imag); + arg = STACK_1; + } else + STACK_0 = arg; VALUES1(N_log_N(arg,true,&STACK_0)); } else { /* LOG with two arguments */ base = check_number(base); Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.3903 retrieving revision 1.3904 diff -u -d -r1.3903 -r1.3904 --- ChangeLog 10 Dec 2004 16:37:02 -0000 1.3903 +++ ChangeLog 10 Dec 2004 16:39:03 -0000 1.3904 @@ -1,5 +1,9 @@ 2004-12-08 Bruno Haible <br...@cl...> + * lisparit.d (LOG): Fix GC-safety bug introduced on 2002-10-06. + +2004-12-08 Bruno Haible <br...@cl...> + * foreign.d (object_address): Fix GC-safety bug introduced on 2003-08-07. 2004-12-08 Bruno Haible <br...@cl...> --__--__-- Message: 10 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src stream.d,1.415.2.9,1.415.2.10 ChangeLog,1.2750.2.82,1.2750.2.83 Date: Fri, 10 Dec 2004 16:40:54 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14767/src Modified Files: Tag: clisp_2_33-patched stream.d ChangeLog Log Message: Fix GC-safety bug introduced on 2002-05-22. Index: stream.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/stream.d,v retrieving revision 1.415.2.9 retrieving revision 1.415.2.10 diff -u -d -r1.415.2.9 -r1.415.2.10 --- stream.d 10 Dec 2004 15:40:54 -0000 1.415.2.9 +++ stream.d 10 Dec 2004 16:40:25 -0000 1.415.2.10 @@ -2174,6 +2174,7 @@ var object chararray = *chararray_; simple_array_to_storage(chararray); elt_copy(string,srcoffset+index,chararray,start,count); + stream = *stream_; TheStream(stream)->strm_str_in_index = fixnum_inc(TheStream(stream)->strm_str_in_index,count); return count; } else { Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.2750.2.82 retrieving revision 1.2750.2.83 diff -u -d -r1.2750.2.82 -r1.2750.2.83 --- ChangeLog 10 Dec 2004 16:38:09 -0000 1.2750.2.82 +++ ChangeLog 10 Dec 2004 16:40:49 -0000 1.2750.2.83 @@ -1,3 +1,8 @@ +2004-12-09 Bruno Haible <br...@cl...> + + * stream.d (rd_ch_array_str_in): Fix GC-safety bug introduced on + 2002-05-22. + 2004-12-08 Bruno Haible <br...@cl...> * lisparit.d (LOG): Fix GC-safety bug introduced on 2002-10-06. --__--__-- Message: 11 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src stream.d,1.477,1.478 ChangeLog,1.3904,1.3905 Date: Fri, 10 Dec 2004 16:41:37 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15080/src Modified Files: stream.d ChangeLog Log Message: Fix GC-safety bug introduced on 2002-05-22. Index: stream.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/stream.d,v retrieving revision 1.477 retrieving revision 1.478 diff -u -d -r1.477 -r1.478 --- stream.d 10 Dec 2004 15:42:16 -0000 1.477 +++ stream.d 10 Dec 2004 16:41:34 -0000 1.478 @@ -2226,6 +2226,7 @@ var object chararray = *chararray_; sstring_un_realloc(chararray); elt_copy(string,srcoffset+index,chararray,start,count); + stream = *stream_; TheStream(stream)->strm_str_in_index = fixnum_inc(TheStream(stream)->strm_str_in_index,count); return count; } else { Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.3904 retrieving revision 1.3905 diff -u -d -r1.3904 -r1.3905 --- ChangeLog 10 Dec 2004 16:39:03 -0000 1.3904 +++ ChangeLog 10 Dec 2004 16:41:35 -0000 1.3905 @@ -1,3 +1,8 @@ +2004-12-09 Bruno Haible <br...@cl...> + + * stream.d (rd_ch_array_str_in): Fix GC-safety bug introduced on + 2002-05-22. + 2004-12-08 Bruno Haible <br...@cl...> * lisparit.d (LOG): Fix GC-safety bug introduced on 2002-10-06. --__--__-- Message: 12 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/emacs d-mode.el,1.56,1.57 Date: Fri, 10 Dec 2004 16:43:55 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/emacs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15551 Modified Files: d-mode.el Log Message: (d-extra-keywords): added "maygc" Index: d-mode.el =================================================================== RCS file: /cvsroot/clisp/clisp/emacs/d-mode.el,v retrieving revision 1.56 retrieving revision 1.57 diff -u -d -r1.56 -r1.57 --- d-mode.el 28 May 2004 14:06:07 -0000 1.56 +++ d-mode.el 10 Dec 2004 16:43:53 -0000 1.57 @@ -171,7 +171,7 @@ (defvar d-extra-keywords (eval-when-compile (regexp-opt '("var" "local" "global" "true" "false" "NIL" "T" "loop" - "inline" "NULL" "nullobj" + "inline" "NULL" "nullobj" "maygc" "popSTACK" "pushSTACK" "skipSTACK" "skipSTACKop" "STACKop" "dotimespC" "dotimesC" "dotimespL" "dotimesL" "dotimespW" "dotimesW" "nonreturning_function" "return_Values" --__--__-- Message: 13 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/doc impent.xml,1.183,1.184 Date: Fri, 10 Dec 2004 16:55:22 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17845/doc Modified Files: impent.xml Log Message: Fix typo. Index: impent.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impent.xml,v retrieving revision 1.183 retrieving revision 1.184 diff -u -d -r1.183 -r1.184 --- impent.xml 10 Dec 2004 16:09:24 -0000 1.183 +++ impent.xml 10 Dec 2004 16:55:20 -0000 1.184 @@ -153,7 +153,7 @@ <!-- *** local *** --> <!ENTITY absolute-pathname "<link linkend='absolute-pathname'><function>EXT:ABSOLUTE-PATHNAME</function></link>"> -<!ENTITY ansi "<olink targetdoc='impnotes' targetptr='ansi'><varname>CUSTOM:mpex*ANSI*</varname></olink>"> +<!ENTITY ansi "<olink targetdoc='impnotes' targetptr='ansi'><varname>CUSTOM:*ANSI*</varname></olink>"> <!ENTITY ansi-opt "<olink targetdoc='man' targetptr='opt-ansi'><option>-ansi</option></olink>"> <!ENTITY apropos-do-more "<link linkend='apropos'><varname>CUSTOM:*APROPOS-DO-MORE*</varname></link>"> <!ENTITY apropos-matcher "<link linkend='apropos'><varname>CUSTOM:*APROPOS-MATCHER*</varname></link>"> --__--__-- Message: 14 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src NEWS,1.213,1.214 Date: Fri, 10 Dec 2004 16:56:02 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17972/src Modified Files: NEWS Log Message: The _clisprc change is important for the users. Index: NEWS =================================================================== RCS file: /cvsroot/clisp/clisp/src/NEWS,v retrieving revision 1.213 retrieving revision 1.214 diff -u -d -r1.213 -r1.214 --- NEWS 10 Dec 2004 16:09:21 -0000 1.213 +++ NEWS 10 Dec 2004 16:55:59 -0000 1.214 @@ -7,6 +7,10 @@ Set CUSTOM:*LOAD-OBSOLETE-ACTION* to :COMPILE to automate this. See <http://clisp.cons.org/impnotes.html#loadfile> for details. +* The name of the Run-Control file has changed from '_clisprc' to + '.clisprc' on all platforms. + If you are using woe32, please rename your Run-Control file. + User visible changes -------------------- @@ -321,10 +325,6 @@ * Weak hash tables now also work on platforms without mmap(). -* The name of the Run-Control file has changed from '_clisprc' to - '.clisprc' on all platforms. - If you are using woe32, please rename your Run-Control file. - 2.33.2 (2004-06-02) --__--__-- Message: 15 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src stream.d,1.478,1.479 ChangeLog,1.3905,1.3906 Date: Fri, 10 Dec 2004 16:57:34 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18261/src Modified Files: stream.d ChangeLog Log Message: Parenthesize the TIME_EQ arguments. Index: stream.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/stream.d,v retrieving revision 1.478 retrieving revision 1.479 diff -u -d -r1.478 -r1.479 --- stream.d 10 Dec 2004 16:41:34 -0000 1.478 +++ stream.d 10 Dec 2004 16:57:28 -0000 1.479 @@ -3486,8 +3486,9 @@ if (!GetFileInformationByHandle(handle1,&fileinfo1)) { OS_error(); } if (!GetFileInformationByHandle(handle2,&fileinfo2)) { OS_error(); } end_system_call(); - #define TIME_EQ(ft1,ft2) (ft1.dwLowDateTime == ft2.dwLowDateTime && \ - ft1.dwHighDateTime == ft2.dwHighDateTime) + #define TIME_EQ(ft1,ft2) \ + ((ft1).dwLowDateTime == (ft2).dwLowDateTime \ + && (ft1).dwHighDateTime == (ft2).dwHighDateTime) return (fileinfo1.dwVolumeSerialNumber == fileinfo2.dwVolumeSerialNumber && fileinfo1.nFileIndexLow == fileinfo2.nFileIndexLow && fileinfo1.nFileIndexHigh == fileinfo2.nFileIndexHigh @@ -3500,7 +3501,7 @@ && fileinfo1.nFileSizeLow == fileinfo2.nFileSizeLow && fileinfo1.nFileSizeHigh == fileinfo2.nFileSizeHigh && fileinfo1.nNumberOfLinks == fileinfo2.nNumberOfLinks); - #undef TIME_EQ + #undef TIME_EQ } else if (filetype1 == FILE_TYPE_CHAR) { /* Same console? */ var DWORD console_mode; Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.3905 retrieving revision 1.3906 diff -u -d -r1.3905 -r1.3906 --- ChangeLog 10 Dec 2004 16:41:35 -0000 1.3905 +++ ChangeLog 10 Dec 2004 16:57:30 -0000 1.3906 @@ -1,3 +1,7 @@ +2004-12-07 Bruno Haible <br...@cl...> + + * stream.d (same_handle_p): Parenthesize the TIME_EQ arguments. + 2004-12-09 Bruno Haible <br...@cl...> * stream.d (rd_ch_array_str_in): Fix GC-safety bug introduced on --__--__-- Message: 16 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src describe.lisp,1.65,1.66 ChangeLog,1.3906,1.3907 Date: Fri, 10 Dec 2004 16:59:00 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18677/src Modified Files: describe.lisp ChangeLog Log Message: Make it possible for the user to call describe with a fill-stream as target. Index: describe.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/describe.lisp,v retrieving revision 1.65 retrieving revision 1.66 diff -u -d -r1.65 -r1.66 --- describe.lisp 1 Dec 2004 17:40:02 -0000 1.65 +++ describe.lisp 10 Dec 2004 16:58:52 -0000 1.66 @@ -531,8 +531,13 @@ (format stream "~&~s:~%~s" (car tail) (cadr tail))))))) (finish-output stream)) +;; A private class through which we can distinguish recursive describe calls +;; from top-level calls. +(defclass describe-stream (fill-stream) + ()) + (defun describe (obj &optional stream) - (cond ((typep stream 'fill-stream) ; Recursive call + (cond ((typep stream 'describe-stream) ; Recursive call ;; flush the pending output _before_ increasing indentation (force-output stream) (let ((*describe-nesting* (1+ *describe-nesting*)) @@ -547,8 +552,8 @@ (let ((*print-circle* t) (*describe-nesting* 0) (*describe-done* nil)) - (describe1 obj (clos:make-instance - 'fill-stream :stream stream + (describe1 obj (clos:make-instance 'describe-stream + :stream stream :text-indent '*describe-nesting*))))) (values)) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.3906 retrieving revision 1.3907 diff -u -d -r1.3906 -r1.3907 --- ChangeLog 10 Dec 2004 16:57:30 -0000 1.3906 +++ ChangeLog 10 Dec 2004 16:58:52 -0000 1.3907 @@ -1,3 +1,8 @@ +2004-11-29 Bruno Haible <br...@cl...> + + * describe.lisp (describe-stream): New class. + (describe): Use it instead of fill-stream. + 2004-12-07 Bruno Haible <br...@cl...> * stream.d (same_handle_p): Parenthesize the TIME_EQ arguments. --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |