Ascertaining the binarity of LMFS files

[Chris Lindblad <cjl@WHEATIES.AI.MIT.EDU>]

    Date: Fri, 10 Jun 88 15:12 PDT
    From: EWeaver.pa@xerox.com


    To wit, how do you tell if a file stored on LMFS is binary or character,
    without actually opening it and seeing what stream you get?

    There is a bit in the dir entry, but it does not get shown in the file
    properties (although byte-size does).  How does one tell short of
    calling OPEN?

Are you willing to call OPEN with :direction :probe?  If so, try this:

(fs:%file-stream-file-element-type (open pathname :direction :probe))