<%= (flet ((todays-date-string () (multiple-value-bind (second minute hour date month year day-of-week dst-p tz) (get-decoded-time) (declare (ignorable second minute hour date month year day-of-week dst-p tz)) (format nil "~a ~d-~2,'0d-~2,'0d" (nth day-of-week '("Mon" "Tues" "Wed" "Thur" "Fri" "Sat" "Sun")) year month date)))) (todays-date-string)) %>