<html><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">
<br><div><div>On 2010-03-15, at 21:07 , Faré wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">On 14 March 2010 21:04, james anderson <<a href="mailto:james.anderson@setf.de">james.anderson@setf.de</a>> wrote:</div> <blockquote type="cite"><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><br></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">On 2010-03-15, at 01:36 , Faré wrote:</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><br></div> <blockquote type="cite"><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Dear James,</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><br></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">is there a tarball I can download with enough stuff to replace those</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">tests or yours?</div> </blockquote><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><br></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">?</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">the tests are all in the one asdf-pathname-test.lisp file.</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><br></div> </blockquote><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">The amazon host is down. Also, when I last glanced, it looked like you</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">needed some subdirectory with test files.</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Can you send on the list a tarball with the .lisp, .sh, and any</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">ancillary file or does your script already create the files?</div></blockquote><div><br></div>for now, amazon is up when i use it. the files are in github.[0],[1],[2]</div><div>as you read, below, the test creates everything it needs.</div><div><br><blockquote type="cite"><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><br></div> <blockquote type="cite"><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">if the pathname reference failed, the entry looks like</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><br></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "> CL-SOURCE-FILE "file"</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "> missing: #P"/ebs/test/asdf-src/system1/module1/</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">untyped-file.lisp"</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "> configuration: (#P"ASDFTEST:system1;"</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">#P"ASDFTEST:system2;module4;" #P"/ebs/test/asdf-src/system1/module1/</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">untyped-file")</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "> parent pathnames: (#P"ASDFTEST:system1;"</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">#P"ASDFTEST:system2;module4;")</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><br></div> </blockquote><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Does "missing" means that you tried that pathname in the end, and</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">failed? </div></blockquote><div><br></div>for a file component, it means that (open ... :if-does-not-exist :error) failed.[3]</div><div><font class="Apple-style-span" color="#3174A0" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px;"><font class="Apple-style-span" color="#000000" face="Monaco"><span class="Apple-style-span" style="font-size: medium;"><br></span></font></span></font></div><div><blockquote type="cite"><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">i.e. in that case, you were expecting a .lisp type, when</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">you're not providing one in an explicit pathname?</div></blockquote><div><br></div>the component name and the three configuration pathnames indicate what was supplied in the defsystem.</div><div>the missing is the actual component pathname form a source file component in a system of that configuration.</div><div>as it should not have been, no target file had been created for it.</div><div>thus, the failure.</div><div><br><blockquote type="cite"><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "> We explicitly won't</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">merge any type when a pathname object is specified, so that the user</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">can override component-provided types.</div></blockquote><div><br></div>i understand, that is your spec. the missing file is the reality with allegro. </div><div>i believe this error is specific to allegro. it is representative of many in the alisp/output.txt file which i sent to you.</div><div><br><blockquote type="cite"><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><br></div> <blockquote type="cite"><blockquote type="cite"><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Also, why do you map :unspecific to nil in merge-pathnames* ? What</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">issues does that solve? Isn't that against what we want?</div> </blockquote><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><br></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">i changed it to pass no argument when no value is intended.</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">on this topic clhs/make-pathname -> 19.2.1 lets you down.</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">you need to attend to 19.3.2.1 [1], to which it appears lispworks</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">pays attention.[2]</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><br></div> </blockquote><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Ouch. I had missed this section. What about I change merge-pathnames*</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">to squash :unspecific if and only if the host is a logical host?</div></blockquote><div><br></div>once that is in the a released version, i will test it.</div><div><br><blockquote type="cite"><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><br></div> <blockquote type="cite"><blockquote type="cite"><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Shouldn't we</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">rather have split-name-type return type :unspecific more often? Maybe</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">your function should compare namestrings instead of pathnames?</div> </blockquote><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><br></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">the test does not explicitly "compare". it create the files, then</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">uses the component pathnames to try to write to them (or just probe</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">for directories), and then confirms that it found all the intended</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">files by checking their modification times. at least, that is what it</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">is supposed to do.</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "><br></div> </blockquote><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">OK.</div></blockquote><br></div><div>---</div><div> [0] : <a href="http://github.com/lisp/de.setf.asdf.x/blob/master/test/asdf-pathname-test.sh">http://github.com/lisp/de.setf.asdf.x/blob/master/test/asdf-pathname-test.sh</a></div><div> [1] : <a href="http://github.com/lisp/de.setf.asdf.x/blob/master/test/test-init.lisp">http://github.com/lisp/de.setf.asdf.x/blob/master/test/test-init.lisp</a></div><div> [2] : <a href="http://github.com/lisp/de.setf.asdf.x/blob/master/test/asdf-pathname-test.lisp">http://github.com/lisp/de.setf.asdf.x/blob/master/test/asdf-pathname-test.lisp</a></div><div> [3] : <a href="http://github.com/lisp/de.setf.asdf.x/blob/master/test/asdf-pathname-test.lisp#L208">http://github.com/lisp/de.setf.asdf.x/blob/master/test/asdf-pathname-test.lisp#L208</a></div></body></html>