[mcclim-devel] Fix crash

[Juliusz Chroboczek]

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