Procházet zdrojové kódy

Remove DATE-TO-TIMESTAMP since it was unused.

Brit Butler před 12 roky
rodič
revize
4b8145a7ca
1 změnil soubory, kde provedl 0 přidání a 8 odebrání
  1. 0 8
      src/feeds.lisp

+ 0 - 8
src/feeds.lisp

@@ -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