loop/srv
1
0
Fork 0
Code Issues Pull requests Activity

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

Browse source
This commit is contained in:
Circling Skies 2024-12-20 13:38:51 -03:00
parent afe7d0e809
commit a89e088212
4 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Anyfile
View file

@ -8,7 +8,7 @@ scripts/build-index-from-fs.lisp \
scripts/cron-remove-inactive-users.lisp \ scripts/cron-remove-inactive-users.lisp \
scripts/migrate-add-creation-date.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 sbcl --script scripts/build-exe.lisp
(test -f loop.exe && cmp loop loop.exe) || cp loop loop.exe (test -f loop.exe && cmp loop loop.exe) || cp loop loop.exe

2
loop.asd
View file

@ -1,6 +1,6 @@
;;; -*- Mode: LISP; Syntax: COMMON-LISP; -*- ;;; -*- Mode: LISP; Syntax: COMMON-LISP; -*-
(asdf:defsystem :LOOP (asdf:defsystem :LOOP
:version "77c4117" :version "afe7d0e"
:description "An NNTP server for a circle of friends." :description "An NNTP server for a circle of friends."
:depends-on (:lisp-unit :str :uiop :cl-ppcre :local-time :clsql-sqlite3 :clingon :depends-on (:lisp-unit :str :uiop :cl-ppcre :local-time :clsql-sqlite3 :clingon
:filesystem-utils :ironclad/digest/sha256) :filesystem-utils :ironclad/digest/sha256)

7
loop.lisp
View file

@ -197,8 +197,7 @@
(node result)) (node result))
((null node) (delete nil result)) ((null node) (delete nil result))
(cond ((consp (car node)) (cond ((consp (car node))
(when (cdar node) (push (when (cdar node) (push (cdar node) (cdr node)))
(cdar node) (cdr node)))
(setf (car node) (caar node))) (setf (car node) (caar node)))
(t (setf node (cdr node)))))) (t (setf node (cdr node))))))
@ -1414,7 +1413,7 @@
(clingon:make-command (clingon:make-command
:name "loop" :name "loop"
:description "An NNTP server for a circle of friends." :description "An NNTP server for a circle of friends."
:version "77c4117" :version "afe7d0e"
:license "GPL v3" :license "GPL v3"
:options (cli/options) :options (cli/options)
:handler #'cli/main-with-handlers)) :handler #'cli/main-with-handlers))
@ -1444,7 +1443,7 @@
(send-response! (send-response!
(make-response (make-response
:code 200 :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) (setq lisp-unit:*print-failures* t)
(define-test dispatching (define-test dispatching

2
loop.nw
View file

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