diff options
| author | colin <colin@cicadas.surf> | 2024-10-20 07:54:00 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-10-20 07:54:00 -0700 |
| commit | b4af1527f1a6070adc90e5dd03fc694f5567e275 (patch) | |
| tree | bfda29ec8c86024d814783271559c594053b99e5 /src/endpoint.lisp | |
| parent | 907732050e35ac0f8c2e607b636552ee80c0a65b (diff) | |
More tweaks to API doc generation
Diffstat (limited to 'src/endpoint.lisp')
| -rw-r--r-- | src/endpoint.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/endpoint.lisp b/src/endpoint.lisp index 2d70aea..cb71658 100644 --- a/src/endpoint.lisp +++ b/src/endpoint.lisp @@ -134,10 +134,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~a~%" ;;"~10@a : ~a ~a~%" + :do (format stream "~10@a : ~10a ~a~a~%" initarg (or (mop:slot-definition-type slotdef) t) - (documentation slotdef t) + (or (documentation slotdef t) "") (if route-pos (format nil "(~:r in route)" (1+ route-pos)) "")))) |