accessor -> acceptor

4 years ago · 13e5d456de
parent cd8b6cd616
commit 13e5d456de
2 changed files with 2 additions and 2 deletions
--- a/loligram.lisp
+++ b/loligram.lisp
@ -15,7 +15,7 @@
        do (setf (gethash chat *chats*) t)))

 (toot:handle (loligram :get (str "/loli/" (config-item :loligram-url))
-                       :accessor 'lolisp
+                       :acceptor 'lolisp
                       :content-type toot:@plain)
    ()
  (when (null (tbnl:raw-post-data))
--- a/main.lisp
+++ b/main.lisp
@ -23,7 +23,7 @@
  (hunchentoot:stop *serb* :soft t))

 (toot:handle (get-loli :get "/loli/"
-                       :accessor 'lolisp)
+                       :acceptor 'lolisp)
    (rating)
  (let ((loli (rori:loli-get (or rating "s"))))
    (cl-who:with-html-output-to-string (page)