[...@kuiper :0.0 tools]$ ecl -norc
ECL (Embeddable Common-Lisp) 10.4.2
Copyright (C) 1984 Taiichi Yuasa and Masami Hagiya
Copyright (C) 1993 Giuseppe Attardi
Copyright (C) 2000 Juan J. Garcia-Ripoll
ECL is free software, and you are welcome to redistribute it
under certain conditions; see file 'Copyright' for details.
Type :h for Help.
Top level in: #<process SI:TOP-LEVEL 0000000000642f60>.
> (make-pathname :name "DIRECTORIES" :type "TXT"
:version nil :case :common
:defaults (user-homedir-pathname))
#P"/HOME/PJB/directories.txt"
> (user-homedir-pathname)
#P"/home/pjb/"
>
AFAIUI, the :CASE argument of MAKE-PATHNAME should not apply to
:DEFAULTS, but only to the other arguments given to MAKE-PATHNAME.
(make-pathname :directory (list :absolute x) :case :common
:defaults (make-pathname :name x :case :common
:defaults (make-pathname :type x :case
:common)))
should be equivalent to
(make-pathname :directory (list :absolute x) :name x :type x :case :common)
But this is not the case:
(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"
--
__Pascal Bourguignon__ http://www.informatimago.com/
------------------------------------------------------------------------------
This SF.net email is sponsored by Sprint
What will you do first with EVO, the first 4G phone?
Visit sprint.com/first -- http://p.sf.net/sfu/sprint-com-first
_______________________________________________
Ecls-list mailing list
Ecls-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/ecls-list
