diff options
| author | colin <colin@cicadas.surf> | 2024-05-31 14:41:57 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-05-31 14:41:57 -0700 |
| commit | c4dd08d03d4440744a4061141f8cec54f1360a29 (patch) | |
| tree | 7769b1df23fecd7a14ca5fe6124aa14fc4f177cc /src | |
| parent | 5f704108a1b0471cd2f61a6b7e1c586c2e94303f (diff) | |
Add: slot definition documentation printed in API doc gen
Diffstat (limited to 'src')
| -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 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)) "")))) |