diff options
Diffstat (limited to 'examples')
-rw-r--r-- | examples/dice-roller.lisp | 2 | ||||
-rw-r--r-- | examples/kitchensink.lisp | 6 |
2 files changed, 5 insertions, 3 deletions
diff --git a/examples/dice-roller.lisp b/examples/dice-roller.lisp index d87faf4..465d252 100644 --- a/examples/dice-roller.lisp +++ b/examples/dice-roller.lisp @@ -20,7 +20,7 @@ :initform (wknd:slot-required 'roller 'rolls) :type integer :documentation "The number of sides")) - (:documentation "") + (:documentation "Rolls a virtual dices with SIDES sides ROLLS number of times.") (:metaclass wknd::endpoint) (:method . :get) (:route-parts "roll" +digits+ "d" +digits+) 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)) |