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

[informatimago]

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 ~]$ 

[informatimago]

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