Update of /project/mcclim/cvsroot/mcclim In directory cl-net:/tmp/cvs-serv7386

Modified Files: stream-input.lisp Log Message: Don't try to get the sheet of NIL. Patch from Juliusz Chroboczek.

(I don't know how to trigger this bug, but it's clearly a bug.)

--- /project/mcclim/cvsroot/mcclim/stream-input.lisp 2008/05/01 21:45:23 1.54 +++ /project/mcclim/cvsroot/mcclim/stream-input.lisp 2009/04/20 09:45:23 1.55 @@ -215,7 +215,7 @@ ;;; Do streams care about any other events? (defun handle-non-stream-event (buffer) (let* ((event (event-queue-peek buffer)) - (sheet (event-sheet event))) + (sheet (and event (event-sheet event)))) (if (and event (or (and (gadgetp sheet) (gadget-active-p sheet))