[mcclim-devel] Fix crash

[Christophe Rhodes]

[ It appears that this mail, and three others like it, didn't make it
  to mcclim-devel, and I didn't realise this until today... ]

This fix seems uncontroversial, so I have merged it; thank you.  I've
never run into this problem myself; do you remember how you triggered
it?

Thanks,

Christophe

Juliusz Chroboczek <jch at pps.jussieu.fr> writes:

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