|
@@ -1,13 +1,5 @@
|
1
|
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
|
3
|
(defun make-pubdate (&optional date)
|
12
|
4
|
"Make a RFC1123 pubdate representing the current time or DATE, when supplied."
|
13
|
5
|
(let ((timestamp (if date
|