Pārlūkot izejas kodu

Remove DATE-TO-TIMESTAMP since it was unused.

Brit Butler 12 gadi atpakaļ
vecāks
revīzija
4b8145a7ca
1 mainītis faili ar 0 papildinājumiem un 8 dzēšanām
  1. 0 8
      src/feeds.lisp

+ 0 - 8
src/feeds.lisp

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