Skip to content
Snippets Groups Projects
Commit 12989cc4 authored by Philipp Marek's avatar Philipp Marek
Browse files

Fix #18 and a typo. Thanks, Michał!

parent f16ad0ef
No related branches found
No related tags found
No related merge requests found
...@@ -78,10 +78,11 @@ argument evaluates to a true value no further DATUMS are evaluated, and NIL is ...@@ -78,10 +78,11 @@ argument evaluates to a true value no further DATUMS are evaluated, and NIL is
returned as both primary and secondary value. If exactly one argument returned as both primary and secondary value. If exactly one argument
evaluates to true, its value is returned as the primary value after all the evaluates to true, its value is returned as the primary value after all the
arguments have been evaluated, and T is returned as the secondary value. If no arguments have been evaluated, and T is returned as the secondary value. If no
arguments evaluate to true NIL is retuned as primary, and T as secondary arguments evaluate to true NIL is returned as primary, and T as secondary
value." value."
(with-gensyms (xor tmp true) (with-gensyms (xor tmp true)
`(let (,tmp ,true) `(let (,tmp ,true)
(declare (ignorable ,tmp))
(block ,xor (block ,xor
,@(mapcar (lambda (datum) ,@(mapcar (lambda (datum)
`(if (setf ,tmp ,datum) `(if (setf ,tmp ,datum)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment