[Ecls-list] not to resolve symlinks

[Juan Jose Garcia-Ripoll]

Ok, several things. The first one, which I noticed right now, is that ECL
defaults to :RESOLVE-SYMLINKS NIL. This may be unusual and I will change
it. The second one is that I do not get your results with
:RESOLVE-SYMNLINKS NIL (See below).

What type and version of the operating system is this? What version of ECL?

$ ls -l
total 16
drwxr-xr-x  3 jjgarcia  jjgarcia  102 Oct 29 20:11 dir
lrwxr-xr-x  1 jjgarcia  jjgarcia    3 Oct 29 20:11 dir_link -> dir
-rw-r--r--  1 jjgarcia  jjgarcia    0 Oct 29 20:11 file
lrwxr-xr-x  1 jjgarcia  jjgarcia    4 Oct 29 20:11 file_link -> file

$ ecl -norc
ECL (Embeddable Common-Lisp) 11.1.1
Copyright (C) 1984 Taiichi Yuasa and Masami Hagiya
Copyright (C) 1993 Giuseppe Attardi
Copyright (C) 2000 Juan J. Garcia-Ripoll
ECL is free software, and you are welcome to redistribute it
under certain conditions; see file 'Copyright' for details.
Type :h for Help.
Top level in: #<process TOP-LEVEL>.
> (directory "./*" :resolve-symlinks t)

(#P"/Users/jjgarcia/build/ecl/tmp/file"
#P"/Users/jjgarcia/build/ecl/tmp/file")
> (directory "./*" :resolve-symlinks nil)

(#P"/Users/jjgarcia/build/ecl/tmp/file_link"
 #P"/Users/jjgarcia/build/ecl/tmp/file"
 #P"/Users/jjgarcia/build/ecl/tmp/dir_link")
> (directory "./*/" :resolve-symlinks t)

(#P"/Users/jjgarcia/build/ecl/tmp/dir/"
#P"/Users/jjgarcia/build/ecl/tmp/dir/")
> (directory "./*/" :resolve-symlinks nil)

(#P"/Users/jjgarcia/build/ecl/tmp/dir/")


2011/10/26 Gábor Balázs <gabalz at gmail.com>

>
> If it should, then maybe there is a bug:
>
> TEST> ls -l
> total 4
> drwxr-xr-x 2 bege users 4096 Oct 25 23:25 dir
> lrwxrwxrwx 1 bege users    3 Oct 25 23:25 dir-link -> dir
> -rw-r--r-- 1 bege users    0 Oct 25 23:25 file
> lrwxrwxrwx 1 bege users    4 Oct 25 23:25 file-link -> file
>
> ECL (Embeddable Common-Lisp) 11.1.1
> Copyright (C) 1984 Taiichi Yuasa and Masami Hagiya
> Copyright (C) 1993 Giuseppe Attardi
> Copyright (C) 2000 Juan J. Garcia-Ripoll
>
> > (directory "./*")
> (#P"/home/bege/TEST/file" #P"/home/bege/TEST/file")
>
>
This one is due to the defaulting method I mention above. An implied
:resolve-symlinks nil is assumed.


> > (directory "./*" :resolve-symlinks nil)
> (#P"/home/bege/TEST/file" #P"/home/bege/TEST/file") ; no difference (file
> symlinks are resolved)


I do not get this one. See above.

> (directory "./*/")
> (#P"/home/bege/TEST/dir/" #P"/home/bege/TEST/dir/")
>
>
Same as above


> > (directory "./*/" :resolve-symlink nil)
> (#P"/home/bege/TEST/dir/" #P"/home/bege/TEST/dir/")    ; no difference
> (directory symlinks are resolved)


Again, I do not see this here.

Juanjo

-- 
Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28006 (Spain)
http://juanjose.garciaripoll.googlepages.com
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/ecl-devel/attachments/20111029/f4c79a13/attachment.html>