+(defun universal-time-to-apache-date (utime)
+ (multiple-value-bind
+ (second minute hour day-of-month month year day-of-week daylight-p zone)
+ (decode-universal-time utime)
+ (declare (ignore second day-of-week daylight-p zone))
+ (format nil
+ (formatter "~2,'0D-~3/kmrcl::monthname/-~4,'0D ~2,'0D:~2,'0D")
+ day-of-month month year hour minute)))
+