(multiple-value-bind (sec min hr day mon year dow daylight-p zone)
(decode-universal-time ut)
(declare (ignore daylight-p zone))
- (format nil "~[Mon~;Tue~;Wed~;Thu~;Fri~;Sat~;Sun~], ~d ~[Jan~;Feb~;Mar~;Apr~;May~;Jun~;Jul~;Aug~;Sep~;Oct~;Nov~;Dec~] ~d ~2,'0d:~2,'0d:~2,'0d"
+ (format nil "~[Mon~;Tue~;Wed~;Thu~;Fri~;Sat~;Sun~], ~d ~[Jan~;Feb~;Mar~;Apr~;May~;Jun~;Jul~;Aug~;Sep~;Oct~;Nov~;Dec~] ~d ~2,'0d:~2,'0d:~2,'0d"
dow
day
(1- mon)
(defun posix-time-to-utime (time)
(+ time +posix-epoch+))
+(defun utime-to-posix-time (utime)
+ (- utime +posix-epoch+))
+
;; Monthnames taken from net-telent-date to support lml2
(defvar *monthnames*
(defun monthname (stream arg colon-p at-p &optional width (mincol 0) (colinc 1) (minpad 0) (padchar #\Space))
"Print the name of the month (1=January) corresponding to ARG on STREAM. This is intended for embedding in a FORMAT directive: WIDTH governs the number of characters of text printed, MINCOL, COLINC, MINPAD, PADCHAR work as for ~A"
+ (declare (ignore colon-p))
(let ((monthstring (cdr (assoc arg *monthnames*))))
(if (not monthstring) (return-from monthname nil))
(let ((truncate (if width (min width (length monthstring)) nil)))
mincol colinc minpad padchar
(subseq monthstring 0 truncate)))))
-;;;; Daylight Saving Time calculations
+;;;; Daylight Saving Time calculations
;; Daylight Saving Time begins for most of the United States at 2
;; a.m. on the first Sunday of April. Time reverts to standard time at