Hojun-Cho/clisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add macro to lib.lisp

Browse Source
This commit is contained in:
yoyo 2024-09-12 11:26:04 +09:00
parent ba39b84914
commit 023758b4a7
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/lib.lisp
View File

@ -20,5 +20,13 @@
(cond (expr) (`(or ,@rest))) (cond (expr) (`(or ,@rest)))
expr)) expr))
(macro when (test . rest)
`(if ,test
(progn ,@rest)))
(macro unless (test . rest)
`(if (not ,test)
(progn ,@rest)))
(defun list (x . y) (cons x y)) (defun list (x . y) (cons x y))