Zander671/truth-table
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix last commit

Browse Source
This commit is contained in:
Alexander Rosenberg
2026-04-17 16:01:50 -07:00
parent c744d397fa
commit c37532b9eb
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
eval.lisp
View File

@@ -46,7 +46,7 @@ and the maximum number (or nil for infinity) as a second value."
(defun logical-xor (&rest args) (defun logical-xor (&rest args)
"Logical xor (not equal) each argument in turn with its following argument." "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) (defun logical-and (&rest args)
"Logical and (all true)." "Logical and (all true)."