From d7a2f391f08bfa976dd9496d0fe02ca92bffbc18 Mon Sep 17 00:00:00 2001 From: paku Date: Sat, 1 Jun 2024 07:22:01 +0900 Subject: [PATCH] Simplify hsx macro --- src/hsx.lisp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/hsx.lisp b/src/hsx.lisp index 599796a..d23ab9c 100644 --- a/src/hsx.lisp +++ b/src/hsx.lisp @@ -3,10 +3,8 @@ (:export #:hsx)) (in-package #:hsx/hsx) -(defmacro hsx (&body form) - (when (not (= (length form) 1)) - (error "The body of the hsx macro must be a single form.")) - (find-builtin-symbols (car form))) +(defmacro hsx (form) + (find-builtin-symbols form)) (defun find-builtin-symbols (node) (if (atom node)