lisp_eval_should_be '(progn (and (setq fnord 42) false (setq fnord 86)) fnord)' '42' 'and macro short circuit'
lisp_eval_should_be '(progn (or (setq fnord 42) false (setq fnord 86)) fnord)' '42' 'or macro short circuit'
lisp_eval_should_be '(and true true true true false)' 'false' 'and macro logical result'
lisp_eval_should_be '(and true true true true true 42)' 'true' 'and macro returns true when all truthy'
lisp_eval_should_be '(and true nil true (print "fnord") true true)' 'false' 'and macro returns false for first falsy result'
lisp_eval_should_be '(or false false false 42 false)' '42' 'or macro returns first non-false'

(macro or (lambda (args)
            (label ((clause (lambda (form) `(,form))))
                   `(cond ,@(mapcar clause args)
                          (true false)))))
(macro and (lambda (args)
             (label ((clause (lambda (form) `((not ,form) false))))
                    `(cond ,@(mapcar clause args)
                           (true)))))