From ea81febcb8d11d51a11b931d544f5400d0a1808b Mon Sep 17 00:00:00 2001
From: Stelian Ionescu <sionescu@common-lisp.net>
Date: Tue, 15 May 2007 00:30:50 +0200
Subject: [PATCH] Fixed XNOR. Signed-off-by: Stelian Ionescu
 <sionescu@common-lisp.net>

---
 utils/misc.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/utils/misc.lisp b/utils/misc.lisp
index 621fdbb..e4982c1 100644
--- a/utils/misc.lisp
+++ b/utils/misc.lisp
@@ -45,6 +45,6 @@
                         (not (featurep (second feature))))))))
 
 (defun xnor (x1 x2)
-  (not (eq (not x1) (not x2))))
+  (eq (not x1) (not x2)))
 
 (export '(define-constant %check-bounds return-if featurep xnor))
-- 
2.11.4.GIT