diff options
Diffstat (limited to 'examples/kitchensink.lisp')
-rw-r--r-- | examples/kitchensink.lisp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/examples/kitchensink.lisp b/examples/kitchensink.lisp index 00a7f25..7fcf45b 100644 --- a/examples/kitchensink.lisp +++ b/examples/kitchensink.lisp @@ -54,7 +54,8 @@ (defclass hello () () - (:documentation "A Page that just says hello.") + (:documentation "A Page that just says hello to an identified user. Redirects users to +identify themselves if no name is known.") (:metaclass wknd:endpoint) (:method . :get) (:route-parts "hello") @@ -74,7 +75,8 @@ ((name :reader name :initarg :name :type string)) (:metaclass wknd::endpoint) (:method . :post) - (:route-parts "identify")) + (:route-parts "identify") + (:documentation "Endpoint for identifying oneself.")) (defmethod wknd::handle ((req identify)) (wknd:set-cookie "name" :value (name req)) |