Event handling question

Hi,

I'm developing a widget set for CLX and SBCL.   At this point it's for 
myself, but if all goes well I'll make it open source.

Everything is going very well, indeed, and I already have a stack of 
widgets running.  However, I have a problem with EVENT-CASE.   It works 
fine, all my events are reported, and the data assigned to them works 
correctly, etc.   But I don't understand exactly how it works and I'm 
getting a ton of warnings when I compile it.

To be specific for example:

      (xlib:event-case (*vl-display* :discard-p t :force-output-p t 
:timeout 1/2)
        (:exposure (event-window count)
           (setf cls (get-class (xlib:window-id event-window)))
           (if (equal count 0)
               (if (not (eql cls nil))
                   (expose cls)))
           t)

This code picks up an expose event and executes the expose event for the 
proper class.    I get warnings because event-window and count are 
unbound, as indeed they are.    I have no idea how to declare them and 
still make the code work.

Can anyone explain what I should be doing here so that I don't get all 
the warnings I get?

(note:   This code is in a loop that allows me to handle blinking 
cursors - therefore the timeout and the t.   The same issue is present 
without the loop)

Bill

_______________________________________________
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)