diff --git a/clx/image.lisp b/clx/image.lisp index f5c6c2e833c711391bf4eafd3d51f67580e7ae6d..35ed7f106a5a9bed3d9845d9bcf9dbd51bb6c8dd 100644 --- a/clx/image.lisp +++ b/clx/image.lisp @@ -2653,7 +2653,7 @@ (error "Pixmap depth ~d incompatable with image depth ~d" depth image-depth))) (put-image pixmap gc image :x 0 :y 0 :bitmap-p (and (= image-depth 1) - (not (null gcontext))) + (not (null gcontext)))) ;; Tile when image-width is less than the pixmap width, or ;; the image-height is less than the pixmap height. ;; ??? Would it be better to create a temporary pixmap and