paku/hsx
1
0
Fork 0
Code Issues Pull requests Projects Releases 1 Packages Wiki Activity Actions

Delete *builtin-elements*

Browse source
This commit is contained in:
paku 2024-05-27 19:23:39 +09:00
parent d10b24c2c8
commit 184b25466c
1 changed files with 0 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/builtin.lisp
View file

@ -6,13 +6,10 @@
#:defhsx)) #:defhsx))
(in-package #:hsx/builtin) (in-package #:hsx/builtin)
(defparameter *builtin-elements* (make-hash-table))
(defmacro define-and-export-builtin-elements (&rest names) (defmacro define-and-export-builtin-elements (&rest names)
`(progn `(progn
,@(mapcan (lambda (name) ,@(mapcan (lambda (name)
(list `(defhsx ,name ,(string-downcase name)) (list `(defhsx ,name ,(string-downcase name))
`(setf (gethash (make-keyword ',name) *builtin-elements*) t)
`(export ',name))) `(export ',name)))
names))) names)))