From c29d65e45212355c1755cc95249934b3429f7c06 Mon Sep 17 00:00:00 2001
From: Gene Pasquet <dev@etenil.net>
Date: Thu, 13 Mar 2025 23:46:56 +0000
Subject: Remove debug code, fix export

---
 package.lisp  | 7 +++----
 reporter.lisp | 4 ----
 2 files changed, 3 insertions(+), 8 deletions(-)

diff --git a/package.lisp b/package.lisp
index 42bb6d9..f772683 100644
--- a/package.lisp
+++ b/package.lisp
@@ -26,7 +26,8 @@
   (:import-from :phaser.unhtml #:text-excerpt)
   (:import-from :phaser.tracker #:track-statuses)
   (:export
-   #:reblog-top-statuses))
+   #:reblog-top-statuses
+   #:summarize-and-post-top-statuses))
 
 (defpackage #:phaser
   (:use
@@ -35,9 +36,7 @@
    #:phaser.toots
    #:phaser.tracker
    #:phaser.reporter)
-  (:shadowing-import-from #:phaser.reporter #:block)
-  (:export
-   #:summarize-and-post-top-statuses))
+  (:shadowing-import-from #:phaser.reporter #:block))
 
 (dolist (package '(#:phaser.reporter #:phaser.tracker))
   (do-symbols (symbol package)
diff --git a/reporter.lisp b/reporter.lisp
index 2ebe6b9..93635e9 100644
--- a/reporter.lisp
+++ b/reporter.lisp
@@ -99,7 +99,3 @@
 (defun summarize-and-post-top-statuses ()
   (let ((summaries (summarize-top-statuses)))
     (post-toot (format nil "~{~a~%~%~}" summaries))))
-
-(when nil
-  (summarize-top-statuses)
-  (summarize-and-post-top-statuses))
-- 
cgit v1.2.3