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

2
version.lisp
View file

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