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

Fix hsx macro

Browse source
This commit is contained in:
paku 2024-05-27 17:00:58 +09:00
parent 0343f01263
commit a57e572c8e
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/hsx.lisp
View file

@ -39,8 +39,10 @@
;;;; hsx macro to find hsx symbols ;;;; hsx macro to find hsx symbols
(defmacro hsx (form) (defmacro hsx (&body form)
(find-builtin-symbols form)) (when (not (= (length form) 1))
(error "The body of the hsx macro must be a single form."))
(find-builtin-symbols (car form)))
(defun find-builtin-symbols (tree) (defun find-builtin-symbols (tree)
(if tree (if tree