CLX+SBCL Hangs with default font

This is a multi-part message in MIME format.
--------------030807040804080103030003
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit

Here is some more information on CLX+SBCL hanging. It seems to be
associated with the with-buffer-flush-inhibited macro. When forms are
enclosed with that macro, buffer-flush-inhibit is set to true. This, in
combination with not specifying the font causes the window to stop
responding to input. It seems to make a request for the default font,
but hangs trying to get the answer. Or maybe the request never gets sent
because of the flush being inhibited. I'm not sure. Anyway, the little
scratch code I've been using to identify the error is below. I'm too
tired at this point to figure out anything else.

Please email me with any suggestions or questions.

Regards,

Tom

-- 
=== Thomas M. Hermann ===

(defun test-clx ()
  (let* ((display (xlib:open-display ""))
	 (screen (first (xlib:display-roots display)))
	 (black (xlib:screen-black-pixel screen))
	 (white (xlib:screen-white-pixel screen))
	 (root-window (xlib:screen-root screen))
	 (gcontext (xlib:create-gcontext
		    :drawable root-window
		    :foreground white
		    :background black))
		    ;:font "-xos4-terminus-medium-r-normal--12-120-72-72-c-60-iso8859-1"))
	 (my-window (xlib:create-window
		     :parent root-window
		     :x 0
		     :y 0
		     :width 256
		     :height 128
		     :background black
		     :event-mask (xlib:make-event-mask :exposure
						       :button-press))))
    (xlib:map-window my-window)
    (xlib:event-case (display :force-output-p t
			      :discard-p t)
      (:exposure ()
		 (xlib::with-buffer-flush-inhibited (display)
		   (let ((font-id (xlib::font-id (xlib:gcontext-font gcontext t))))
		     (xlib::with-buffer-request-and-reply
			 (display xlib::+x-queryfont+ 60)
			 ((resource-id font-id))
		       (describe
			(xlib::query-font (xlib:gcontext-font gcontext t))))))
		 nil)
      (:button-press () t))
    (xlib:destroy-window my-window)
    (xlib:close-display display)))



--------------030807040804080103030003
Content-Type: text/x-vcard; charset=utf-8;
 name="tmh.public.vcf"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
 filename="tmh.public.vcf"

YmVnaW46dmNhcmQNCmZuOlRob21hcyBNLiBIZXJtYW5uDQpuOkhlcm1hbm47VGhvbWFzDQpl
bWFpbDtpbnRlcm5ldDp0bWgucHVibGljQGdtYWlsLmNvbQ0KdGVsO2NlbGw6MzE2LjYxNy40
NDUzDQp4LW1vemlsbGEtaHRtbDpGQUxTRQ0KdmVyc2lvbjoyLjENCmVuZDp2Y2FyZA0KDQo=
--------------030807040804080103030003--

_______________________________________________
Portable-clx mailing list
[email protected]
http://lists.metacircles.com/cgi-bin/mailman/listinfo/portable-clx
See http://www.cliki.net/clx for darcs URL(s)