|
|
[Original bug](https://bugs.launchpad.net/asdf/+bug/1205653)
|
|
|
|
|
|
Test code:
|
|
|
```common-lisp
|
|
|
(format t "~{~a~%~}"
|
|
|
(list
|
|
|
(uiop:subdirectories "./")
|
|
|
(uiop:subdirectories (uiop:getcwd))
|
|
|
(uiop:directory-files "actual-dir/")
|
|
|
(uiop:directory-files "link-to-dir/")
|
|
|
(uiop:directory-files "./")
|
|
|
(uiop:directory-files (uiop:getcwd))))';
|
|
|
```
|
|
|
|
|
|
[Output](https://gitlab.common-lisp.net/snippets/14)
|
|
|
|
|
|
Interpretation of said output ([org-mode table](https://gitlab.common-lisp.net/snippets/15))
|
|
|
|
|
|
<table border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
|
|
|
|
|
|
|
|
|
<colgroup>
|
|
|
<col class="left" />
|
|
|
|
|
|
<col class="left" />
|
|
|
|
|
|
<col class="left" />
|
|
|
|
|
|
<col class="left" />
|
|
|
|
|
|
<col class="left" />
|
|
|
</colgroup>
|
|
|
<thead>
|
|
|
<tr>
|
|
|
<th scope="col" class="left">implementation</th>
|
|
|
<th scope="col" class="left">subdirectories</th>
|
|
|
<th scope="col" class="left">subdirectories</th>
|
|
|
<th scope="col" class="left">directory-files</th>
|
|
|
<th scope="col" class="left">directory-files</th>
|
|
|
</tr>
|
|
|
|
|
|
<tr>
|
|
|
<th scope="col" class="left"> </th>
|
|
|
<th scope="col" class="left">omits link-to-dir</th>
|
|
|
<th scope="col" class="left">returns link target</th>
|
|
|
<th scope="col" class="left">treats links as files</th>
|
|
|
<th scope="col" class="left">returns link target</th>
|
|
|
</tr>
|
|
|
</thead>
|
|
|
<tbody>
|
|
|
<tr>
|
|
|
<td class="left">abcl</td>
|
|
|
<td class="left">no</td>
|
|
|
<td class="left">yes</td>
|
|
|
<td class="left">no</td>
|
|
|
<td class="left">no</td>
|
|
|
</tr>
|
|
|
|
|
|
<tr>
|
|
|
<td class="left">allegro</td>
|
|
|
<td class="left">no</td>
|
|
|
<td class="left">no</td>
|
|
|
<td class="left">yes</td>
|
|
|
<td class="left">no</td>
|
|
|
</tr>
|
|
|
|
|
|
<tr>
|
|
|
<td class="left">ccl</td>
|
|
|
<td class="left">yes</td>
|
|
|
<td class="left">n/a</td>
|
|
|
<td class="left">yes</td>
|
|
|
<td class="left">no</td>
|
|
|
</tr>
|
|
|
|
|
|
<tr>
|
|
|
<td class="left">clisp</td>
|
|
|
<td class="left">no</td>
|
|
|
<td class="left">yes</td>
|
|
|
<td class="left">no</td>
|
|
|
<td class="left">yes</td>
|
|
|
</tr>
|
|
|
|
|
|
<tr>
|
|
|
<td class="left">cmucl</td>
|
|
|
<td class="left">no</td>
|
|
|
<td class="left">no</td>
|
|
|
<td class="left">no</td>
|
|
|
<td class="left">no</td>
|
|
|
</tr>
|
|
|
|
|
|
<tr>
|
|
|
<td class="left">ecl</td>
|
|
|
<td class="left">no</td>
|
|
|
<td class="left">yes</td>
|
|
|
<td class="left">no</td>
|
|
|
<td class="left">yes</td>
|
|
|
</tr>
|
|
|
|
|
|
<tr>
|
|
|
<td class="left">lispworks</td>
|
|
|
<td class="left">no</td>
|
|
|
<td class="left">no</td>
|
|
|
<td class="left">no</td>
|
|
|
<td class="left">no</td>
|
|
|
</tr>
|
|
|
|
|
|
<tr>
|
|
|
<td class="left">mkcl</td>
|
|
|
<td class="left">no</td>
|
|
|
<td class="left">yes</td>
|
|
|
<td class="left">yes</td>
|
|
|
<td class="left">yes</td>
|
|
|
</tr>
|
|
|
|
|
|
<tr>
|
|
|
<td class="left">sbcl</td>
|
|
|
<td class="left">no</td>
|
|
|
<td class="left">no</td>
|
|
|
<td class="left">no</td>
|
|
|
<td class="left">no</td>
|
|
|
</tr>
|
|
|
</tbody>
|
|
|
</table> |