Fix last commit

2026-04-17 16:01:50 -07:00
parent c744d397fa
commit c37532b9eb
1 changed files with 1 additions and 1 deletions
--- 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)."