On Sun, Jun 27, 2010 at 6:56 AM, Pascal J. Bourguignon <pjb@informatimago.com> wrote:

AFAIUI, the :CASE argument of MAKE-PATHNAME should not apply to
:DEFAULTS, but only to the other arguments given to MAKE-PATHNAME.

Hopefully this is fixed in ECL CVS/git now

$ ecl
ECL (Embeddable Common-Lisp) 10.4.2
Top level.
> (let ((x "ABC"))
   (values
     (make-pathname :directory (list :absolute x) :name x :type x :case :common)
     (make-pathname :directory (list :absolute x) :case :common
                    :defaults (make-pathname :name x :case :common
                                             :defaults (make-pathname :type x :case :common)))))

#P"/abc/abc.abc"
#P"/abc/abc.abc"

--
Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28006 (Spain)
http://juanjose.garciaripoll.googlepages.com