diff options
| -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)) |