accessor -> acceptor

master
not manx 4 years ago
parent cd8b6cd616
commit 13e5d456de
Signed by: C-xC-c
GPG Key ID: F52ED472284EF2F4

@ -15,7 +15,7 @@
do (setf (gethash chat *chats*) t))) do (setf (gethash chat *chats*) t)))
(toot:handle (loligram :get (str "/loli/" (config-item :loligram-url)) (toot:handle (loligram :get (str "/loli/" (config-item :loligram-url))
:accessor 'lolisp :acceptor 'lolisp
:content-type toot:@plain) :content-type toot:@plain)
() ()
(when (null (tbnl:raw-post-data)) (when (null (tbnl:raw-post-data))

@ -23,7 +23,7 @@
(hunchentoot:stop *serb* :soft t)) (hunchentoot:stop *serb* :soft t))
(toot:handle (get-loli :get "/loli/" (toot:handle (get-loli :get "/loli/"
:accessor 'lolisp) :acceptor 'lolisp)
(rating) (rating)
(let ((loli (rori:loli-get (or rating "s")))) (let ((loli (rori:loli-get (or rating "s"))))
(cl-who:with-html-output-to-string (page) (cl-who:with-html-output-to-string (page)

Loading…
Cancel
Save