<br>If it should, then maybe there is a bug:<br><br><span class="gI"></span><span style="font-family: courier new,monospace;">TEST> ls -l</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">total 4</span><br style="font-family: courier new,monospace;">

<span style="font-family: courier new,monospace;">drwxr-xr-x 2 bege users 4096 Oct 25 23:25 dir</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">lrwxrwxrwx 1 bege users    3 Oct 25 23:25 dir-link -> dir</span><br style="font-family: courier new,monospace;">

<span style="font-family: courier new,monospace;">-rw-r--r-- 1 bege users    0 Oct 25 23:25 file</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">lrwxrwxrwx 1 bege users    4 Oct 25 23:25 file-link -> file</span><br>

<br><span style="font-family: courier new,monospace;">ECL (Embeddable Common-Lisp) 11.1.1</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">Copyright (C) 1984 Taiichi Yuasa and Masami Hagiya</span><br style="font-family: courier new,monospace;">

<span style="font-family: courier new,monospace;">Copyright (C) 1993 Giuseppe Attardi</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">Copyright (C) 2000 Juan J. Garcia-Ripoll</span><br style="font-family: courier new,monospace;">

<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">> (directory "./*")</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">(#P"/home/bege/TEST/file" #P"/home/bege/TEST/file")</span><br style="font-family: courier new,monospace;">

<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">> (directory "./*" :resolve-symlinks nil)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">(#P"/home/bege/TEST/file" #P"/home/bege/TEST/file") ; no difference (file symlinks are resolved)</span><br style="font-family: courier new,monospace;">

<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">> (directory "./*/")</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">(#P"/home/bege/TEST/dir/" #P"/home/bege/TEST/dir/")</span><br style="font-family: courier new,monospace;">

<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">> (directory "./*/" :resolve-symlink nil)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">(#P"/home/bege/TEST/dir/" #P"/home/bege/TEST/dir/")    ; no difference (directory symlinks are resolved)</span><br>

<br>Or maybe I just don't know what is the proper keyword as ECL accepts everything.<br>From ECL's unixfsys.d file:<br><br><div style="margin-left: 40px;"><span style="font-family: courier new,monospace;">@(defun directory (mask &key &allow_other_keys)</span><br>

</div><br>Furthermore by checking the list_directory function, the resolve-symlink functionality doesn't seem to be implemented:<br><br><div style="margin-left: 40px;"><span style="font-family: courier new,monospace;">component_path = file_truename(component_path, component);</span><br style="font-family: courier new,monospace;">

<span style="font-family: courier new,monospace;">kind = VALUES(1);</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">out = CONS(CONS(component_path, kind), out);</span><br>

</div><br>Or maybe I just cannot figure out how to use it...<br>Thanks,<br>`bg`<br><br><br><div class="gmail_quote">2011/10/26 Juan Jose Garcia-Ripoll <span dir="ltr"><<a href="mailto:juanjose.garciaripoll@googlemail.com">juanjose.garciaripoll@googlemail.com</a>></span><br>

<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;"><div class="im"><div class="gmail_quote">2011/10/26 Gábor Balázs <span dir="ltr"><<a href="mailto:gabalz@gmail.com" target="_blank">gabalz@gmail.com</a>></span><br>

<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">

Is there a way with ECL not to resolve symlinks in directory listings?<br>Like other Lisp implementations (eg. SBCL) usually have an option like : <span style="font-family: courier new,monospace;">(directory "/tmp/*" :resolve-symlinks nil)</span></blockquote>



</div><div><br></div></div>Same syntax (:resolve-symlinks) should work.<div><br></div><div>Juanjo<br clear="all"><font color="#888888"><div><br></div>-- <br>Instituto de Física Fundamental, CSIC<br>c/ Serrano, 113b, Madrid 28006 (Spain) <br>

<a href="http://juanjose.garciaripoll.googlepages.com" target="_blank">http://juanjose.garciaripoll.googlepages.com</a><br>


</font></div>
</blockquote></div><br>