Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fix utils, drawable screen

  • Loading branch information...
commit 0ba5b53d80e2d8ef914a47d7fac7b762c2ffece8 1 parent c708494
@filonenko-mikhail authored
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)))
Please sign in to comment.
Something went wrong with that request. Please try again.