<div dir="ltr"><br><div class="gmail_extra"><br><div class="gmail_quote">On Sat, Oct 19, 2013 at 3:34 PM, Faré <span dir="ltr"><<a href="mailto:fahree@gmail.com" target="_blank">fahree@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><div class="im">>> But I am still getting stamp-propagation failures on Windows with mlisp<br>

>> after having run mlisp8 (and I think it would also fail if running mlisp8<br>
>> after mlisp). I will send the console output from that separately.<br>
><br>
</div>That makes sense: the test includes a test of the time propagation bug<br>
for the native defsystem, and then the lack of output-translations on<br>
said native defsystem will cause issues.<br>
<br>
Maybe we should just disable the native test for now. It's not testing<br>
ASDF itself, anyway.<br>
<br>
If you have time, you can add a clearing of the fasls in the native<br>
defsystem test.<br></blockquote><div><br></div><div><br></div><div>Ok here's a patch for that. </div><div><br></div><div>It seems to fix things for allegro/Windows, but now it reared its head again on sbcl/Windows. </div>
<div><br></div><div>The failure is always the same:</div><div><br></div><div><div>These two expressions fail comparison with EQUAL:</div><div> (ASDF-TEST::SANITIZE-LOG (ASDF-TEST::RELOAD ASDF/DEFSYSTEM:DEFSYSTEM)) evaluates to ((:COMPILING :SYSTEM))</div>
<div> (QUOTE ((:COMPILING :SYSTEM) (:LOAD-TOPLEVEL :FILE1) (:COMPILE-TOPLEVEL :FILE2) (:LOAD-TOPLEVEL :FILE2))) evaluates to ((:COMPILING :SYSTEM) (:LOAD-TOPLEVEL :FILE1) (:COMPILE-TOPLEVEL :FILE2) (:LOAD-TOPLEVEL :FILE2))</div>
</div><div><br></div><div><br></div><div><br></div><div>A couple of things I cannot figure out:</div><div><br></div><div><br></div><div> 1. How on earth does the following work on Windows without throwing an error:</div><div>
<br></div><div>    (uiop:run-program `("touch" ,(native-namestring filename))</div><div>                     :output t :error-output t)</div><div><br></div><div>   as far as I know there is no "touch" command on Windows, and when I try this at the command line I get "starting shell command resulted in error..."    </div>
<div><br></div><div><br></div><div> 2. By the way, for the ASDF tests, am I clearing the correct fasl files?</div><div><br></div><div><br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">
And with even more time, transform the test so that in the ASDF case,<br>
it touches or deletes files in the asdf timestamp cache rather than do<br>
it in the filesystem (the trick obviously won't work for the native<br>
defsystem test).</blockquote><div><br></div><div><br></div><div>I'm fairly sure I would screw things up if I tried that with my current level of understanding...</div><div><br></div><div><br></div><div> <br></div></div>
</div></div>