From: Sam S. <sd...@gn...> - 2010-02-17 18:28:21
|
Don Cohen wrote: > Sam Steingold writes: > > 1. take the working 2009-08-15 tree > > 2. apply the suspicious patch (see above) > > 3. build clisp 2009-08-15 + the suspicious patch > After running the version of 2009-08-15 + the result of > cvs diff -D "20090815" -D "20090817" package.d > (a 535 line patch - 1.120) > for a week without incident I tried a new version adding to that > the result of > cvs diff -D "20090817" -D "20090822" package.d > (a 60 line patch - 1.121) > This promptly produced > > UNIX error 9 (EBADF): Bad file number > > Segmentation fault > > So I guess this is good news - it looks like the problem is in the > small patch rather than the big one. I hope you can find it. > I'm now back to running the previous version (8-17). Let me know > if you want me to try some intermediate version between 1.120 and > 1.121. Thanks for your effort! The patch between 1.120 & 1.121 looks quite innocuous. I see nothing wrong with it. One tiny tweak won't hurt though: --- package.d.~1.136.~ 2009-11-13 09:40:45.000000000 -0500 +++ package.d 2010-02-17 13:22:59.000737000 -0500 @@ -3009,10 +3009,9 @@ LISPFUNN(package_iterate,1) { shadowing-list of pack), 2. itself not already present in pack (because in this case the accessibility would be :INTERNAL or :EXTERNAL). */ - var object shadowingsym; if (!(eq(Car(PIS(state,FLAGS)),S(Kinherited)) && (shadowing_lookup(Symbol_name(value2),false, - PIS(state,PACK),&shadowingsym) + PIS(state,PACK),NULL) || symtab_find(value2, ThePackage(PIS(state,PACK))-> pack_internal_symbols) try applying this to the broken clisp and see if it fixes it. thanks. |