diff options
-rw-r--r-- | who.tl | 7 |
1 files changed, 2 insertions, 5 deletions
@@ -90,11 +90,8 @@ ^(macrolet ((,warn (f . rest) ^(compile-warning ,f "not recommended in attribute expr"))) - (macrolet ((htm (:form f . rest) (,warn f) f) - (noesc-fmt (:form f . rest) (,warn f) f) - (fmt (:form f . rest) (,warn f) f) - (esc (:form f . rest) (,warn f) f) - (str (:form f . rest) (,warn f) f)) + (macrolet ,(collect-each ((sym '(htm noesc-fmt fmt esc str))) + ^(,sym (:form f . rest) (,warn f) f)) ,form)))) ;; Helper function for convert-tag-to-string-list which converts the |