From 1394e3140ed808ce5061c3ec4dd77b8ac89bfa29 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 5 Mar 2020 21:13:34 -0800 Subject: tags: handle define-option-struct. * tags.tl (collect-tags): Generate tags for the define-option-struct macro, indexing both the long and short forms. --- tags.tl | 6 ++++++ 1 file changed, 6 insertions(+) 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) -- cgit v1.2.3