diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/endpoint.lisp | 4 | ||||
| -rw-r--r-- | src/package.lisp | 7 |
2 files changed, 9 insertions, 2 deletions
diff --git a/src/endpoint.lisp b/src/endpoint.lisp index 9064c9f..4f44a41 100644 --- a/src/endpoint.lisp +++ b/src/endpoint.lisp @@ -141,6 +141,10 @@ endpoints are dispatching on which routes and methods.") (terpri) (princ doc))))) +(defun print-all-route-documentation (&key (stream *standard-output*)) + (loop :for class :being :the :hash-keys :of *endpoint-registry* + :do (print-route-documentation class :stream stream) + (terpri stream))) ;;; BODY PARSER REGISTRATION diff --git a/src/package.lisp b/src/package.lisp index e8f56b3..bb74e5f 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -29,8 +29,11 @@ #:handle-static-file #:set-cookie - ;; METACLASS #:endpoint - #:register-body-parser)) + #:register-body-parser + + ;; DOCGEN + #:print-route-documentation + #:print-all-route-documentation)) |