anchor.diff:  
   (defmethod queue-event ((sheet standard-sheet-input-mixin) event)
     (with-slots (queue) sheet
  -    (setq queue (nconc queue (list event)))))
  +    (event-queue-append queue event)))
     
   (defmethod handle-event ((sheet standard-sheet-input-mixin) event)
     ;; Standard practice is too ignore events
  
positive.code: 
  (defmethod event-read ((sheet standard-sheet-input-mixin))
    (with-slots (queue) sheet
      (loop while (null queue)
  	  do (process-next-event (port sheet)))
      (pop queue)))
  
  (defmethod event-read-with-timeout ((sheet standard-sheet-input-mixin)
  				    &key (timeout nil) (wait-function nil))
    (with-slots (queue) sheet
      (loop while (null queue)
  	  do (process-next-event (port sheet) :timeout timeout :wait-function wait-function))
      (pop queue)))
  
  (defmethod event-read-no-hang ((sheet standard-sheet-input-mixin))
    (with-slots (queue) sheet
      (if (null queue)
  	   nil
        (pop queue))))
  
  (defmethod event-peek ((sheet standard-sheet-input-mixin) &optional event-type)
    (with-slots (queue) sheet
      (if event-type
  	(loop while (and queue (not (typep (first queue) event-type)))
  	    do (pop queue)))
      (if (null queue)
  	nil
        (first queue))))
  
  (defmethod event-unread ((sheet standard-sheet-input-mixin) event)
    (with-slots (queue) sheet
      (push event queue)))
  
  (defmethod event-listen ((sheet standard-sheet-input-mixin))
    (with-slots (queue) sheet
      (not (null queue))))
  
  (defclass immediate-sheet-input-mixin (standard-sheet-input-mixin)
    (
  
negative.code: ;;; -*- Mode: Lisp; Package: CLIM-INTERNALS -*-
  
  ;;;  (c) copyright 1998,1999,2000 by Michael McDonald (mikemac@mikemac.com)
  ;;;  (c) copyright 2002 by Gilbert Baumann <unk6@rz.uni-karlsruhe.de>
  
  ;;; This library is free software; you can redistribute it and/or
  ;;; modify it under the terms of the GNU Library General Public
  