Skip to content
Browse files

fix utils, drawable screen

  • Loading branch information...
1 parent c708494 commit 0ba5b53d80e2d8ef914a47d7fac7b762c2ffece8 @filonenko-mikhail committed Sep 15, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 clx-utils.lisp
View
2 clx-utils.lisp
@@ -6,7 +6,7 @@
(typecase drawable
(xlib:drawable
(dolist (screen (xlib:display-roots (xlib:drawable-display drawable)))
- (when (equalp (xlib:screen-root screen) (xlib:drawable-root drawable))
+ (when (xlib:drawable-equal (xlib:screen-root screen) (xlib:drawable-root drawable))
(return screen))))
(xlib:screen drawable)
(t nil)))

0 comments on commit 0ba5b53

Please sign in to comment.
Something went wrong with that request. Please try again.