Opened 9 years ago

Last modified 8 years ago

#778 new defect

make-pathname :case :common changes the case of the :defaults argument, it should not.

Reported by: informatimago Owned by:
Priority: normal Milestone:
Component: ANSI CL Compliance Version: trunk
Keywords: make-pathname :case :common Cc:

Description (last modified by rme)

When given :case :common, make-pathname correctly downcases the upper case arguments, but it also invert the case of the defaults pathname. This should not occur. The defaults pathname components should not be affected by the :case parameter.

[pjb@kuiper :0.0 ~]$ ccl --no-init
Welcome to Clozure Common Lisp Version 1.5  (LinuxX8664)!
? (user-homedir-pathname)
#P"/home/pjb/"
? (make-pathname :name "TEST" :type "FILE" :case :common :defaults (user-homedir-pathname))
#P"/HOME/PJB/test.file"
? (merge-pathnames (make-pathname :name "TEST" :type "FILE" :case :common :defaults (user-homedir-pathname))
                   (user-homedir-pathname)
                   nil)
#P"/HOME/PJB/test.file"
? (quit)
[pjb@kuiper :0.0 ~]$ 

Attachments (1)

make-pathname-case-local.diff (5.3 KB) - added by informatimago 9 years ago.
Proposed patch for make-pathname casification, against svn trunk 1.5.

Download all attachments as: .zip

Change History (2)

Changed 9 years ago by informatimago

Proposed patch for make-pathname casification, against svn trunk 1.5.

comment:1 Changed 8 years ago by rme

  • Description modified (diff)
Note: See TracTickets for help on using tickets.