|
|
|
|
1
|
(in-package :coleslaw)
|
1
|
(in-package :coleslaw)
|
2
|
|
2
|
|
3
|
-(defun date-to-timestamp (date)
|
|
|
4
|
- "Convert a post DATE to a local-time timestamp."
|
|
|
5
|
- (destructuring-bind (date time) (cl-ppcre:split " " date)
|
|
|
6
|
- (apply 'local-time:encode-timestamp 0
|
|
|
7
|
- (mapcar #'parse-integer
|
|
|
8
|
- (append (reverse (cl-ppcre:split ":" time))
|
|
|
9
|
- (reverse (cl-ppcre:split "-" date)))))))
|
|
|
10
|
-
|
|
|
11
|
(defun make-pubdate (&optional date)
|
3
|
(defun make-pubdate (&optional date)
|
12
|
"Make a RFC1123 pubdate representing the current time or DATE, when supplied."
|
4
|
"Make a RFC1123 pubdate representing the current time or DATE, when supplied."
|
13
|
(let ((timestamp (if date
|
5
|
(let ((timestamp (if date
|