ちょっと気になったので、書いてみた。
(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"
ちょっと気になったので、書いてみた。
(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"