diff options
| author | colin <colin@cicadas.surf> | 2024-10-20 07:28:41 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-10-20 07:28:41 -0700 |
| commit | 907732050e35ac0f8c2e607b636552ee80c0a65b (patch) | |
| tree | 7c8be025439793bffa31eb0928de5bda755ffa1c | |
| parent | ff535d7f4819ef36441460b7ea8220aa1d704e3b (diff) | |
Modifiy doc gen to show return type
| -rw-r--r-- | src/endpoint.lisp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/endpoint.lisp b/src/endpoint.lisp index 4ec68b6..2d70aea 100644 --- a/src/endpoint.lisp +++ b/src/endpoint.lisp @@ -124,9 +124,11 @@ endpoints are dispatching on which routes and methods.") (loop :repeat 80 :do (princ "_")) (terpri) (terpri) - (format stream "~a ~a~%" + (format stream "~a ~a ~:[~;→~] ~a~%" (request-method class) - (route class)) + (route class) + (content-type class) + (or (content-type class) "")) (let ((*print-case* :downcase)) (loop :for slotdef :in (mop:class-slots class) :for initarg := (first (mop:slot-definition-initargs slotdef)) |