From 64dea8453d8b765e46c27ba84c6b8ea5b8d1996a Mon Sep 17 00:00:00 2001 From: Helmut Merz Date: Sun, 21 Jul 2024 10:10:26 +0200 Subject: [PATCH] web/dom: revert automatic export - explicit is better than implicit --- web/dom.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/web/dom.lisp b/web/dom.lisp index 78a31da..f78db49 100644 --- a/web/dom.lisp +++ b/web/dom.lisp @@ -5,7 +5,8 @@ (:local-nicknames (:util :scopes/util) (:alx :alexandria)) (:export #:elem #:element #:void-element #:render - #:dlist)) + #:dlist + #:div #:label)) (in-package :scopes/web/dom) @@ -49,10 +50,9 @@ (defmacro make-elements (tags &optional (elem-fn 'elem)) `(progn - ,@(mapcan (lambda (tag) ;`(make-element ,tag)) tags))) - (list `(defun ,tag (attrs &rest body) - (funcall #',elem-fn ',tag attrs body)) - `(export ',tag))) + ,@(mapcar (lambda (tag) ;`(make-element ,tag)) tags))) + `(defun ,tag (attrs &rest body) + (funcall #',elem-fn ',tag attrs body))) tags))) (eval-when (:compile-toplevel :load-toplevel :execute)