<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;">
<br>
On Mar 18, 2014, at 03:55 , Faré <<a href="mailto:fahree@gmail.com">fahree@gmail.com</a>> wrote:<br>
<br>
<blockquote type="cite">Is there a mailing-list where to report such issues, and where to<br>
contact vendors so they fix their bugs?<br>
</blockquote>
<div><br>
</div>
<div>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.</div>
<div><br>
</div>
<div><br>
</div>
<blockquote type="cite">mkdir -p /tmp/x ; touch "/tmp/x/" ; for i in sbcl ccl clisp cmucl ecl<br>
abcl scl allegro lispworks gcl xcl ; do echo $i ; cl -l $i -iw '(let<br>
((x (directory "/tmp/x/"))) (list "'$i'" x (pathname-name (first<br>
x))))' ; done #cl</blockquote>
<blockquote type="cite"><br>
<br>
Escape properly:<br>
("sbcl" (#P"/tmp/x/\\") "")<br>
("cmucl" (#P"/tmp/x/\\") "")<br>
("ccl" (#P"/tmp/x/\\") "\\")<br>
("lispworks" (#P"/tmp/x/\\") "\\")<br>
("scl" (#P"<a href="file://localhost/tmp/x/">file://localhost/tmp/x/</a>") "")<br>
<br>
Read badly:<br>
("clisp" (#P"/tmp/x/*") :WILD)<br>
("ecl" (#P"/tmp/x/*") :WILD)<br>
("allegro" (#P"/tmp/x/*") :WILD)<br>
("xcl" (#P"/tmp/x/*") :WILD)<br>
<br>
Error out:<br>
abcl<br>
Fatal condition:<br>
Bad place for a wild pathname.<br>
<br>
gcl:<br>
Fatal condition:<br>
Condition in LET [or a callee]: INTERNAL-SIMPLE-FILE-ERROR: File error<br>
on "/tmp/x/": File "/tmp/x/" is wild</blockquote>
<div><br>
</div>
<div>Some of the results are obviously erroneous, but I don’t quite understand some of the others… (my POSIX-fu being very rusty).</div>
<div><br>
</div>
<div>The script you posted is (reformatted)</div>
<div><br>
</div>
<div><font face="Courier New">mkdir -p /tmp/x <font color="#ff2600"># Creates directory /tmp/x/</font><br>
touch "/tmp/x/“ <font color="#ff2600"># What is the intended effect here? </font><br>
for i in sbcl ccl clisp cmucl ecl abcl scl allegro lispworks gcl xcl<br>
do<br>
echo $i<br>
cl -l $i -iw '(let ((x (directory "/tmp/x/"))) (list "'$i'" x (pathname-name (first x))))'<br>
done #cl<br>
</font><br>
</div>
<div><br>
</div>
If you execute the first two commands on a Mac the result is a just to create the /tmp/x/ directory.
<div><br>
</div>
<div>The call to DIRECTORY in CCL then returns:</div>
<div><br>
</div>
<div>
<div><font face="Courier New">Welcome to Clozure Common Lisp Version 1.8-store-r15418 (DarwinX8664)!</font></div>
<div><font face="Courier New">? (directory "/tmp/x/")</font></div>
<div><font face="Courier New">(#P"/private/tmp/x/“) <font color="#ff2600">; Which may be correct by interpreting the CLHS.</font></font></div>
</div>
<div><br>
</div>
<div><br>
</div>
<div>The call to DIRECTORY in LW returns</div>
<div><br>
</div>
<div>
<div><font face="Courier New">CL-USER 1 > (directory "/tmp/x/")</font></div>
<div><font face="Courier New">NIL <font color="#ff2600">; Which may be not be appropriate...</font></font></div>
</div>
<div><br>
</div>
<div><br>
</div>
<div>In SBCL you get</div>
<div><br>
</div>
<div><font face="Courier New">This is SBCL 1.0.49, an implementation of ANSI Common Lisp.<br>
More information about SBCL is available at <<a href="http://www.sbcl.org/">http://www.sbcl.org/</a>>.<br>
<br>
SBCL is free software, provided as is, with absolutely no warranty.<br>
It is mostly in the public domain; some portions are provided under<br>
BSD-style licenses. See the CREDITS and COPYING files in the<br>
distribution for more information.</font></div>
<div><font face="Courier New"><br>
</font></div>
<div>
<div><font face="Courier New">* (directory "/tmp/x/")</font></div>
<div><font face="Courier New">(#P"/private/tmp/x/“) <font color="#ff2600">; Which may be correct; ditto.</font></font></div>
</div>
<div><br>
</div>
<div><br>
</div>
<div>In SBCL and CCL the PATHNAME-NAME returned is NIL. I would have expected no escaping and NIL as pathname names.</div>
<div><br>
</div>
<div>Cheers</div>
<div><br>
<div>--<br>
Marco Antoniotti<br>
<br>
</div>
<br>
</div>
</body>
</html>