On Mar 18, 2014, at 03:55 , Faré <fahree@gmail.commailto:fahree@gmail.com> wrote:

Is there a mailing-list where to report such issues, and where to contact vendors so they fix their bugs?

Each vendor has his/her own mailing list or other contact point where to submit bug reports and other requests. It looks like most vendors are here though.

mkdir -p /tmp/x ; touch "/tmp/x/" ; for i in sbcl ccl clisp cmucl ecl abcl scl allegro lispworks gcl xcl ; do echo $i ; cl -l $i -iw '(let ((x (directory "/tmp/x/"))) (list "'$i'" x (pathname-name (first x))))' ; done #cl

Escape properly: ("sbcl" (#P"/tmp/x/\") "") ("cmucl" (#P"/tmp/x/\") "") ("ccl" (#P"/tmp/x/\") "\") ("lispworks" (#P"/tmp/x/\") "\") ("scl" (#P"file://localhost/tmp/x/") "")

Read badly: ("clisp" (#P"/tmp/x/*") :WILD) ("ecl" (#P"/tmp/x/*") :WILD) ("allegro" (#P"/tmp/x/*") :WILD) ("xcl" (#P"/tmp/x/*") :WILD)

Error out: abcl Fatal condition: Bad place for a wild pathname.

gcl: Fatal condition: Condition in LET [or a callee]: INTERNAL-SIMPLE-FILE-ERROR: File error on "/tmp/x/": File "/tmp/x/" is wild

Some of the results are obviously erroneous, but I don’t quite understand some of the others… (my POSIX-fu being very rusty).

The script you posted is (reformatted)

mkdir -p /tmp/x # Creates directory /tmp/x/ touch "/tmp/x/“ # What is the intended effect here? for i in sbcl ccl clisp cmucl ecl abcl scl allegro lispworks gcl xcl do echo $i cl -l $i -iw '(let ((x (directory "/tmp/x/"))) (list "'$i'" x (pathname-name (first x))))' done #cl

If you execute the first two commands on a Mac the result is a just to create the /tmp/x/ directory.

The call to DIRECTORY in CCL then returns:

Welcome to Clozure Common Lisp Version 1.8-store-r15418 (DarwinX8664)! ? (directory "/tmp/x/") (#P"/private/tmp/x/“) ; Which may be correct by interpreting the CLHS.

The call to DIRECTORY in LW returns

CL-USER 1 > (directory "/tmp/x/") NIL ; Which may be not be appropriate...

In SBCL you get

This is SBCL 1.0.49, an implementation of ANSI Common Lisp. More information about SBCL is available at http://www.sbcl.org/.

SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information.

* (directory "/tmp/x/") (#P"/private/tmp/x/“) ; Which may be correct; ditto.

In SBCL and CCL the PATHNAME-NAME returned is NIL. I would have expected no escaping and NIL as pathname names.

Cheers

-- Marco Antoniotti

My apologies: blindly copying and pasting from Google+ was a bad idea.

Here is the command I ran, where cl is the latest cl-launch 4:

mkdir -p /tmp/x ; touch "/tmp/x/*" ; for i in sbcl ccl clisp cmucl ecl abcl \ scl allegro lispworks gcl xcl ; do echo $i ; cl -l $i -iw \ '(let ((x (directory "/tmp/x/*"))) (list "'$i'" x (pathname-name (first x))))' ; done

And the summarized results are:

Escape properly: ("sbcl" (#P"/tmp/x/\*") "*") ("ccl" (#P"/tmp/x/\*") "\*") ("cmucl" (#P"/tmp/x/\*") "*") ("lispworks" (#P"/tmp/x/\*") "\*") ("scl" (#P"file://localhost/tmp/x/*") "*")

Read badly: ("clisp" (#P"/tmp/x/*") :WILD) ("ecl" (#P"/tmp/x/*") :WILD) ("allegro" (#P"/tmp/x/*") :WILD) ("xcl" (#P"/tmp/x/*") :WILD)

Error out: abcl Fatal condition: Bad place for a wild pathname.

gcl: Fatal condition: Condition in LET [or a callee]: INTERNAL-SIMPLE-FILE-ERROR: File error on "/tmp/x/*": File "/tmp/x/*" is wild

—♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org The older I grow, the more I distrust the familiar doctrine that age brings wisdom. — H.L. Mencken