From: Philippe Brochard <pbrochard@common-lisp.net>
Date: Fri, 23 Nov 2012 22:36:48 +0000 (+0100)
Subject: Minor object check fix
X-Git-Tag: R-1212~8
X-Git-Url: https://repo.or.cz/w/clfswm.git/commitdiff_plain/13e92da91f7a3e346c0e64646cdbfa6fae1b12da

Minor object check fix
---

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)