ファイルのタイムスタンプを取得【その２】

ファイルのタイムスタンプを取得【その１】 - Shammerismを少し改良した。月や時間の桁数を揃えるようにしてみた。

(defun get-decoded-file-timestamp-as-string (file)
  (labels ((padding (n)
		   (if (< (length (write-to-string n)) 2)
		       (concatenate 'string "0" (write-to-string n))
		     (write-to-string n))))
    (multiple-value-bind
	(second minute hour date month year day-of-week dst-p time-zone)
	(decode-universal-time (file-write-date file))
      (concatenate 'string
		   "[" (write-to-string year) "/" (padding month) "/" (padding date) 
		   " " (padding hour) ":" (padding minute) ":" (padding second) "]"))))

やればやるほど綻びが目立ってくる。曜日、月は英語表記にした方がよさそう。