diff options
Diffstat (limited to 'tracker.lisp')
| -rw-r--r-- | tracker.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tracker.lisp b/tracker.lisp index 40e65dc..a1ed7e9 100644 --- a/tracker.lisp +++ b/tracker.lisp @@ -104,7 +104,7 @@ (defun collect-status-tracking (id) (read-list-from-redis (format nil *tracking-key-fmt* id))) -(defun collect-tracking () +(defun collect-tracking (&key print) (redis:with-connection () (let* ((history-keys (red:keys (format nil *tracking-key-fmt* "*"))) (status-history (mapcar (lambda (history-key) @@ -114,7 +114,7 @@ (collect-status-tracking id)))) history-keys))) ;; status-history - (format nil "~{~a~%~}" + (format print "~{~a~%~}" (alexandria:flatten (mapcar (lambda (item) (mapcar @@ -126,6 +126,6 @@ (cdr (assoc 'reblogs entry)) (cdr (assoc 'replies entry)) (when (assoc 'age entry) - (cdr (assoc 'age entry))))) + (cdr (assoc 'age entry))))) (cdr item))) status-history)))))) |