diff options
| author | Mistivia <i@mistivia.com> | 2025-06-21 16:58:47 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2025-06-21 16:58:47 +0800 |
| commit | 1de8cda84460198e764a94c1f0f106ecaf001331 (patch) | |
| tree | 48bd2e09256c689b120183cf0026f2532617b555 /tests/lisp/control-flow.lisp | |
| parent | ca22ae606ca674a91e28597a96641c01f7eacb24 (diff) | |
add format
Diffstat (limited to 'tests/lisp/control-flow.lisp')
| -rw-r--r-- | tests/lisp/control-flow.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/lisp/control-flow.lisp b/tests/lisp/control-flow.lisp index 5d7290d..75095ec 100644 --- a/tests/lisp/control-flow.lisp +++ b/tests/lisp/control-flow.lisp @@ -1,5 +1,7 @@ (assert-error (if (error "") 1 2)) +(defmacro inmacro x (progn ,@x)) + (let ((i 0)) (while #t (if (> i 4) @@ -28,6 +30,7 @@ (assert-error (funcall (lambda () (break)))) (assert-error (funcall (lambda () (continue)))) (assert (= 1 (funcall (lambda () (return 1))))) +(assert (= 1 (funcall (lambda () (inmacro (return 1) (return 2)))))) (assert (= 1 (funcall (lambda () (while #t (return 1)))))) (assert (= 1 (funcall (lambda () (let () (return 1)))))) (assert (= 1 (funcall (lambda () (let ((x (return 1))) (return 2)))))) |