<div dir="ltr"><div>Hello Luis;<br></div><div><br></div><div>Thanks for the query, and sorry for the delay.  Here is a cut-and-paste of what passes for a test-case.  Basically, I have an old symbolic link hanging about, which has ":0" at the end (the X11 display number?), and which further happens to be a symbolic link to yet another old file - they are presumably created by Linux' DCOP (although I am not familiar with the details)...  SBCL returns a (long) list of pathnames that includes both the symlink (with the ":0" in the pathname) and the pointed-to file.</div>
<div><br></div><div>-jm</div><div><br></div><div><br></div><div>[jm@jm7 ~]$ lx86cl64 <br>Welcome to Clozure Common Lisp Version 1.9-r15870  (LinuxX8664)!<br>? (ql:quickload :osicat)<br>To load "osicat":<br>  Load 1 ASDF system:<br>
    osicat<br>; Loading "osicat"<br><br>(:OSICAT)<br>? (osicat:list-directory #P"/home/jm")<br>> Error: ".DCOPserver_jm4_" is not a defined logical host<br>> While executing: CCL::PATHNAME-HOST-SSTR, in process listener(1).<br>
> Type :POP to abort, :R for a list of available restarts.<br>> Type :? for other options.<br>1 > :b<br> (2B1F9EEA9710) : 0 (PATHNAME-HOST-SSTR ".DCOPserver_jm4_:0" 0 18 NIL) 365<br> (2B1F9EEA9768) : 1 (STRING-TO-PATHNAME ".DCOPserver_jm4_:0" 0 18 NIL #P"") 789<br>
 (2B1F9EEA9830) : 2 (MERGE-PATHNAMES ".DCOPserver_jm4_:0" #P"" :NEWEST) 213<br> (2B1F9EEA9888) : 3 (TRANSLATED-NAMESTRING ".DCOPserver_jm4_:0") 37<br> (2B1F9EEA98A0) : 4 (NATIVE-TRANSLATED-NAMESTRING ".DCOPserver_jm4_:0") 85<br>
 (2B1F9EEA98D8) : 5 (GET-FILE-KIND ".DCOPserver_jm4_:0" T) 45<br> (2B1F9EEA98F8) : 6 (FUNCALL #'#<(:INTERNAL OSICAT::ONE-ITER OSICAT::CALL-WITH-DIRECTORY-ITERATOR)>) 205<br> (2B1F9EEA9918) : 7 (FUNCALL #'#<(:INTERNAL OSICAT:LIST-DIRECTORY)> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL OSICAT::ONE-ITER OSICAT::CALL-WITH-DIRECTORY-ITERATOR) #x302001C8A24F>) 197<br>
 (2B1F9EEA9958) : 8 (CALL-WITH-DIRECTORY-ITERATOR #P"/home/jm/" #<COMPILED-LEXICAL-CLOSURE (:INTERNAL OSICAT:LIST-DIRECTORY) #x302001C8A4FF>) 493<br> (2B1F9EEA99E8) : 9 (LIST-DIRECTORY #P"/home/jm" :BARE-PATHNAMES NIL) 285<br>
 (2B1F9EEA9A20) : 10 (CALL-CHECK-REGS OSICAT:LIST-DIRECTORY #P"/home/jm") 221<br> (2B1F9EEA9A58) : 11 (TOPLEVEL-EVAL (OSICAT:LIST-DIRECTORY #P"/home/jm") NIL) 709<br> (2B1F9EEA9AF8) : 12 (READ-LOOP :INPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #x3020006B541D> :OUTPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #x3020006B52BD> :BREAK-LEVEL 0 :PROMPT-FUNCTION #<Compiled-function (:INTERNAL CCL::READ-LOOP) (Non-Global)  #x30000052D2BF>) 2309<br>
 (2B1F9EEA9D58) : 13 (RUN-READ-LOOP :BREAK-LEVEL 0) 157<br> (2B1F9EEA9D80) : 14 (TOPLEVEL-LOOP) 101<br> (2B1F9EEA9DA8) : 15 (FUNCALL #'#<(:INTERNAL (TOPLEVEL-FUNCTION (CCL::LISP-DEVELOPMENT-SYSTEM T)))>) 101<br>
 (2B1F9EEA9DC8) : 16 (FUNCALL #'#<(:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS)>) 645<br> (2B1F9EEA9E60) : 17 (RUN-PROCESS-INITIAL-FORM #<TTY-LISTENER listener(1) [Active] #x3020006B439D> (#<COMPILED-LEXICAL-CLOSURE # #x3020006B3ECF>)) 709<br>
 (2B1F9EEA9EF0) : 18 (FUNCALL #'#<(:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (PROCESS)))> #<TTY-LISTENER listener(1) [Active] #x3020006B439D> (#<COMPILED-LEXICAL-CLOSURE # #x3020006B3ECF>)) 573<br> (2B1F9EEA9F98) : 19 (FUNCALL #'#<(:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION)>) 277<br>
1 > :q<br>? (quit)<br>[jm@jm7 ~]$ ls -lh .*DCOPserver_jm4*<br>-rw-r--r--. 1 jm users 50 Jan  9  2009 .DCOPserver_jm4__0<br>lrwxrwxrwx. 1 jm users 27 Sep  6  2008 .DCOPserver_jm4_:0 -> /home/jm/.DCOPserver_jm4__0<br>
[jm@jm7 ~]$ <br><br><br><br><br></div><div><br></div><div><br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Mon, Jan 6, 2014 at 7:34 PM, Luís Oliveira <span dir="ltr"><<a href="mailto:loliveira@common-lisp.net" target="_blank">loliveira@common-lisp.net</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div class="im">On Tue, Dec 31, 2013 at 1:11 AM, John Morrison<br>
<<a href="mailto:jm@symbolic-simulation.com">jm@symbolic-simulation.com</a>> wrote:<br>
> ? (merge-pathnames "foo:bar" #P"" :newest)<br>
>> Error: "foo" is not a defined logical host<br>
<br>
</div>One could use make-pathname instead:<br>
<br>
(make-pathname :name "foo:bar" :type nil)<br>
=> #P"foo:bar"<br>
<br>
How does this issue relate to osicat? Do you have a test case?<br>
<br>
Cheers,<br>
<span class="HOEnZb"><font color="#888888"><br>
--<br>
Luís Oliveira<br>
<a href="http://kerno.org/~luis/" target="_blank">http://kerno.org/~luis/</a><br>
</font></span></blockquote></div><br></div>