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

Simplify hsx macro

Browse source
This commit is contained in:
paku 2024-06-01 07:22:01 +09:00
parent 813ca38857
commit d7a2f391f0
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/hsx.lisp
View file

@ -3,10 +3,8 @@
(:export #:hsx)) (:export #:hsx))
(in-package #:hsx/hsx) (in-package #:hsx/hsx)
(defmacro hsx (&body form) (defmacro hsx (form)
(when (not (= (length form) 1)) (find-builtin-symbols form))
(error "The body of the hsx macro must be a single form."))
(find-builtin-symbols (car form)))
(defun find-builtin-symbols (node) (defun find-builtin-symbols (node)
(if (atom node) (if (atom node)