From 13e92da91f7a3e346c0e64646cdbfa6fae1b12da Mon Sep 17 00:00:00 2001
From: Philippe Brochard <pbrochard@common-lisp.net>
Date: Fri, 23 Nov 2012 23:36:48 +0100
Subject: [PATCH] Minor object check fix

---
 src/clfswm-internal.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/clfswm-internal.lisp b/src/clfswm-internal.lisp
index e358998..90a75a0 100644
--- a/src/clfswm-internal.lisp
+++ b/src/clfswm-internal.lisp
@@ -840,7 +840,7 @@ XINERAMA version 1.1 opcode: 150
         (remove-if (lambda (size)
                      (destructuring-bind (x y w h) size
                        (dolist (s sizes)
-                         (unless (equal s size)
+                         (unless (eq s size)
                            (destructuring-bind (x1 y1 w1 h1) s
                              (when (and (>= x x1)
                                         (>= y y1)
-- 
2.11.4.GIT