[mcclim-cvs] CVS mcclim

[crhodes]

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