Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Extend-your-language/Emacs-Lisp/extend-your-language.l
+++ b/Task/Extend-your-language/Emacs-Lisp/extend-your-language.l
@ -0,0 +1,9 @@
+(defmacro if2 (cond1 cond2 both first second &rest neither)
+  (let ((res1 (gensym))
+        (res2 (gensym)))
+    `(let ((,res1 ,cond1)
+           (,res2 ,cond2))
+       (cond ((and ,res1 ,res2) ,both)
+             (,res1             ,first)
+             (,res2             ,second)
+             (t                 ,@neither)))))