mbk/lisp
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

acond improvements

Browse source
This commit is contained in:
mehbark 2024-12-20 03:37:02 -05:00
parent 1410aa68c8
commit 468cfad8b4
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
utils.lisp
View file

@ -463,12 +463,17 @@
((null (cdr args)) (car args)) ((null (cdr args)) (car args))
(t `(aif ,(car args) (aand ,@(cdr args)))))) (t `(aif ,(car args) (aand ,@(cdr args))))))
; improvements inspired by SBCL https://github.com/sbcl/sbcl/blob/42d939ea06063bcddd29d628a4ba6613edf4bcf8/src/code/primordial-extensions.lisp#L321 (should probably destructure too :P)
(defmacro acond (&rest clauses) (defmacro acond (&rest clauses)
(if (null clauses) (if (null clauses)
nil nil
(once-only ((test (caar clauses))) (once-only ((test (caar clauses)))
`(if ,test `(if ,test
(let ((it ,test)) ,@(cdar clauses)) ,(aif (cdar clauses)
`(let ((it ,test))
(declare (ignorable it))
,@it)
test)
(acond ,@(cdr clauses)))))) (acond ,@(cdr clauses))))))
(defmacro alambda (args &body body) (defmacro alambda (args &body body)