From c37532b9eb6b5f665af128d1397da18c6731e72d Mon Sep 17 00:00:00 2001 From: Alexander Rosenberg Date: Fri, 17 Apr 2026 16:01:50 -0700 Subject: [PATCH] Fix last commit --- eval.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/eval.lisp b/eval.lisp index 36984a3..e3635cf 100644 --- a/eval.lisp +++ b/eval.lisp @@ -46,7 +46,7 @@ and the maximum number (or nil for infinity) as a second value." (defun logical-xor (&rest args) "Logical xor (not equal) each argument in turn with its following argument." - (eql 1 (count-if #'identity args))) + (oddp (count-if #'identity args))) (defun logical-and (&rest args) "Logical and (all true)."