marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove DATE-TO-TIMESTAMP since it was unused.

Browse source
This commit is contained in:
Brit Butler 2012-11-28 16:35:41 -05:00
parent 3ddd50bf7f
commit 4b8145a7ca
1 changed files with 0 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/feeds.lisp
View file

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