tags: handle define-option-struct.

* tags.tl (collect-tags): Generate tags for the
define-option-struct macro, indexing both the long
and short forms.

1 files changed, 6 insertions, 0 deletions

diff --git a/tags.tl b/tags.tl
index 7f28701b..93ffa965 100755
--- a/tags.tl
+++ b/tags.tl
@@ -96,6 +96,12 @@
                           (add (ntag type-tag (cadr obj))))
                          ((defpackage)
                           (add (ntag struct-tag (cadr obj))))
+                         ((define-option-struct)
+                          (let ((struct-name (cadr obj)))
+                            (add (ntag struct-tag struct-name))
+                            (each ((obj (cdddr obj)))
+                              (add (ntag slot-tag (car obj) struct-name))
+                              (add (ntag slot-tag (cadr obj) struct-name)))))
                          ((defstruct)
                           (let ((struct-obj obj)
                                 (struct-name (tree-case (cadr obj)