From a89e088212e2cbf3dabcccc555320c191c204aaf Mon Sep 17 00:00:00 2001
From: Circling Skies <loop@antartida.xyz>
Date: Fri, 20 Dec 2024 13:38:51 -0300
Subject: [PATCH] Remakes the binary if we said ``make release'' earlier.

---
 Anyfile   | 2 +-
 loop.asd  | 2 +-
 loop.lisp | 7 +++----
 loop.nw   | 2 +-
 4 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/Anyfile b/Anyfile
index 12585eb..028b1d9 100644
--- a/Anyfile
+++ b/Anyfile
@@ -8,7 +8,7 @@ scripts/build-index-from-fs.lisp \
 scripts/cron-remove-inactive-users.lisp \
 scripts/migrate-add-creation-date.lisp
 
-loop.exe: scripts/build-exe.lisp loop.lisp loop.asd
+loop.exe: scripts/build-exe.lisp loop.lisp loop.asd loop.nw
 	sbcl --script scripts/build-exe.lisp
 	(test -f loop.exe && cmp loop loop.exe) || cp loop loop.exe
 
diff --git a/loop.asd b/loop.asd
index 5d13b57..e4fea15 100644
--- a/loop.asd
+++ b/loop.asd
@@ -1,6 +1,6 @@
 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; -*-
 (asdf:defsystem :LOOP
-  :version "77c4117"
+  :version "afe7d0e"
   :description "An NNTP server for a circle of friends."
   :depends-on (:lisp-unit :str :uiop :cl-ppcre :local-time :clsql-sqlite3 :clingon
                :filesystem-utils :ironclad/digest/sha256)
diff --git a/loop.lisp b/loop.lisp
index a178897..1b831ff 100644
--- a/loop.lisp
+++ b/loop.lisp
@@ -197,8 +197,7 @@
         (node result))
        ((null node) (delete nil result))
     (cond ((consp (car node))
-           (when (cdar node) (push
-                              (cdar node) (cdr node)))
+           (when (cdar node) (push (cdar node) (cdr node)))
            (setf (car node) (caar node)))
           (t (setf node (cdr node))))))
 
@@ -1414,7 +1413,7 @@
   (clingon:make-command
    :name "loop"
    :description "An NNTP server for a circle of friends."
-   :version "77c4117"
+   :version "afe7d0e"
    :license "GPL v3"
    :options (cli/options)
    :handler #'cli/main-with-handlers))
@@ -1444,7 +1443,7 @@
   (send-response! 
    (make-response 
     :code 200 
-    :data "Welcome! I am LOOP 77c4117. Say ``help'' for a menu.")))
+    :data "Welcome! I am LOOP afe7d0e. Say ``help'' for a menu.")))
 
 (setq lisp-unit:*print-failures* t)
 (define-test dispatching
diff --git a/loop.nw b/loop.nw
index 68523a3..d28f1c7 100644
--- a/loop.nw
+++ b/loop.nw
@@ -658,7 +658,7 @@ An NNTP server for a circle of friends.
 @ 
 
 <<Version>>=
-77c4117
+afe7d0e
 @ 
 
 \section{Parsing of requests}