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))
[ 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@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))))
-
Christophe Rhodes -
Juliusz Chroboczek -
Juliusz Chroboczek