[mcclim-devel] Fix crash

Index: stream-input.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/stream-input.lisp,v retrieving revision 1.54 diff -u -r1.54 stream-input.lisp --- stream-input.lisp 1 May 2008 21:45:23 -0000 1.54 +++ stream-input.lisp 2 Mar 2009 22:12:58 -0000 @@ -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))