パス文字列のドライブレターを大文字にする

ちょっと気になったので、書いてみた。

(defun upcase-drive-letter (s)
(if (char= #\: (char s 1))
(string-upcase s :start 0 :end 1)
s))

;; test
(let (( s "d:/util/xyzzy"))
(upcase-drive-letter s))
"D:/util/xyzzy"