Remakes the binary if we said ``make release'' earlier.

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
 

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)

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

loop.nw

@@ -658,7 +658,7 @@ An NNTP server for a circle of friends.
 @ 
 
 <<Version>>=
-77c4117
+afe7d0e
 @ 
 
 \section{Parsing of requests}