aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/endpoint.lisp6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/endpoint.lisp b/src/endpoint.lisp
index ebc6399..52bce27 100644
--- a/src/endpoint.lisp
+++ b/src/endpoint.lisp
@@ -122,7 +122,8 @@ endpoints are dispatching on which routes and methods.")
(flet ((extractor-arg (extractor)
(if (symbolp extractor) extractor (first extractor))))
(loop :repeat 80 :do (princ "_"))
- (terpri) (terpri)
+ (terpri)
+ (terpri)
(format stream "~a ~a~%"
(request-method class)
(route class))
@@ -131,9 +132,10 @@ endpoints are dispatching on which routes and methods.")
:for initarg := (first (mop:slot-definition-initargs slotdef))
:for route-pos := (position initarg extractors :key #'extractor-arg)
:when initarg
- :do (format stream "~10@a : ~10a ~a~%" ;;"~10@a : ~a ~a~%"
+ :do (format stream "~10@a : ~10a ~a~a~%" ;;"~10@a : ~a ~a~%"
initarg
(or (mop:slot-definition-type slotdef) t)
+ (documentation slotdef t)
(if route-pos
(format nil "(~:r in route)" (1+ route-pos))
""))))