[Ecls-list] Buglet in TRANSLATE-LOGICAL-PATHNAME ?

[Marco Antoniotti]

Here it is

(setf (logical-pathname-translations "FOO")
     `(("**;*.*.*" ,(make-pathname :directory '(:absolute "foo" 
:wild-inferiors) :name :wild :type :wild :version :wild))))

(translate-logical-pathname "FOO:bar;baz.gnao")
==> ERROR.

Cheers

--
Marco Antoniotti					http://bioinformatics.nyu.edu
NYU Courant Bioinformatics Group		tel. +1 - 212 - 998 3488
715 Broadway 10th FL				fax. +1 - 212 - 998 3484
New York, NY, 10003, U.S.A.