[Ecls-list] UPDATE: Filenames with two periods

[Carlo Capocasa]

--- Workaround ---
To read all files of the same extension in /tmp:

  (directory (make-pathname :type type)

call

  (union
    (directory (make-pathname :type type))
    (directory (make-pathname
                :type (concatenate 'string "*." type)))

when file names with more than one period sign are to be expected.

Or, to make directory-calls cross-platform:

  #-ecl(directory (make-pathname :type type)
  #+ecl(directory (make-pathname
                   :type (concatenate 'string "*." type)))

Note: This assumes *directory-defaults-dir* is set to:

  (make-pathname
    :name :wild
    :type :wild
    :directory "/tmp"
    :version :wild))

Carlo