From e6eb95aaecce20c3a8883022de6e300ac15cdd4f Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 27 Oct 2022 07:36:38 -0700 Subject: txrtags: maintain due to new defstruct syntax. * txrtags.tl (process-form): Handle :postfini in the same way as :fini. In fallback case, reject clauses headed by a keyword symbol. --- txrtags.tl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/txrtags.tl b/txrtags.tl index 042aa993..8e13f120 100755 --- a/txrtags.tl +++ b/txrtags.tl @@ -191,10 +191,11 @@ (t :))) ((word (arg) . body) (caseq word - ((:init :postinit :fini)) + ((:init :postinit :fini :postfini)) (t :))) ((name . rest) - (add (ntag slot-tag name struct-name))) + (unless (keywordp name) + (add (ntag slot-tag name struct-name)))) (name (add (ntag slot-tag name struct-name struct-obj)))))))))))) -- cgit v1.2.3