Minor object check fix
authorPhilippe Brochard <pbrochard@common-lisp.net>
Fri, 23 Nov 2012 22:36:48 +0000 (23 23:36 +0100)
committerPhilippe Brochard <pbrochard@common-lisp.net>
Fri, 23 Nov 2012 22:36:48 +0000 (23 23:36 +0100)
src/clfswm-internal.lisp

index e358998..90a75a0 100644 (file)
@@ -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)