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 <gab...@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
------------------------------------------------------------------------------ Get your Android app more play: Bring it to the BlackBerry PlayBook in minutes. BlackBerry App World™ now supports Android™ Apps for the BlackBerry® PlayBook™. Discover just how easy and simple it is! http://p.sf.net/sfu/android-dev2dev
_______________________________________________ Ecls-list mailing list Ecls-list@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/ecls-list
