There is no portable way to distinguish between the many filesystem
errors, anyway.
Is there a good reason to not let LOAD report whatever error it wants?
Otherwise, we could use this function:
(defun file-readable-p (path)
(with-open-file
(s path
:direction :input
:if-does-not-exist nil
:element-type '(unsigned-byte 8))
(and s t)))
[ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ]
Only presidents, editors, and people with tapeworms have the right
to use the editorial "we."
— Mark Twain
On 28 March 2010 19:04, Samium Gromoff <[email protected]> wrote:
> On Sat, 27 Mar 2010 12:44:08 -0400, Faré <[email protected]> wrote:
>> Samium,
>>
>> you're the one who seemingly introduced this with-open-file in
>> 2ca05589. Why do we need such a fancy and not-that-portable way of
>> testing the file is there?
>
> PROBE-FILE fails to catch dead symlinks, and I need a meaningful
> condition from which I can deduce /what/ is being failed upon,
> whereas the subtype of FILE-ERROR used by, for example, SBCL,
> doesn't give me this information.
>
>
> regards,
> Samium Gromoff
_______________________________________________
asdf-devel mailing list
[email protected]
http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
