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

Corrections suggested by tin.

Browse source
This commit is contained in:
Circling Skies 2026-08-24 11:31:22 -03:00
parent b345a8d544
commit 2b92954cea
3 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
loop.lisp
View file

@ -159,7 +159,7 @@
(let ((g-var (gensym)))
`(let ((,g-var (client-group *client*)))
(if (not ,g-var)
(bad-input r "must say GROUP first")
(bad-input r "must say GROUP first" :code 412)
,@body))))
(defmacro with-auth (&rest body)
@ -917,13 +917,13 @@
:request r)))
(defun overview-fmt-lines ()
'("From:"
'("Subject:"
"From:"
"Date:"
"Message-ID:"
"References:"
"Bytes:"
"Lines:"
"Xref:full"))
"Lines:"))
(defun build-groups-lines (ls)
(reverse
@ -1274,7 +1274,7 @@
(make-response :code 240 :request r :data "Thank you! Your article has been saved."))))
(article-syntax-error (c)
(make-response
:code 400 :request r
:code 441 :request r
:data (fmt "Sorry. Your article doesn't conform: ~a." c)))
(already-seen-article (c)
(make-response :code 441 :request r :data (fmt "~a" c))))

10
loop.nw
View file

@ -1541,13 +1541,13 @@ the future for a moment.
:request r)))
(defun overview-fmt-lines ()
'("From:"
'("Subject:"
"From:"
"Date:"
"Message-ID:"
"References:"
"Bytes:"
"Lines:"
"Xref:full"))
"Lines:"))
(defun build-groups-lines (ls)
(reverse
@ -2383,7 +2383,7 @@ of trying to stop them.
(make-response :code 240 :request r :data "Thank you! Your article has been saved."))))
(article-syntax-error (c)
(make-response
:code 400 :request r
:code 441 :request r
:data (fmt "Sorry. Your article doesn't conform: ~a." c)))
(already-seen-article (c)
(make-response :code 441 :request r :data (fmt "~a" c))))
@ -3573,7 +3573,7 @@ any more.
(let ((g-var (gensym)))
`(let ((,g-var (client-group *client*)))
(if (not ,g-var)
(bad-input r "must say GROUP first")
(bad-input r "must say GROUP first" :code 412)
,@body))))
(defmacro with-auth (&rest body)

2
version.lisp
View file

@ -1,2 +1,2 @@
(in-package :loop)
(defparameter *git-hash* "1536193")
(defparameter *git-hash* "b345a8d")