diff --git a/clx/image.lisp b/clx/image.lisp index 080043bc94cd0bcca7e50ab85cc28ad8b21bb9b5..f5c6c2e833c711391bf4eafd3d51f67580e7ae6d 100644 --- a/clx/image.lisp +++ b/clx/image.lisp @@ -2652,7 +2652,8 @@ (unless gcontext (xlib::required-arg gcontext)) (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) gcontext)) + (put-image pixmap gc image :x 0 :y 0 :bitmap-p (and (= image-depth 1) + (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