anchor.diff:  
   (defmethod event-read ((sheet standard-sheet-input-mixin))
     (with-slots (queue) sheet
  -    (loop while (null queue)
  -	  do (process-next-event (port sheet)))
  -    (pop queue)))
  +    (event-queue-read 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)))
  +  ;; This one is not in the spec ;-( --GB
  +  (with-slots (queue) sheet
  +    (event-queue-read queue)))
   
   (defmethod event-read-no-hang ((sheet standard-sheet-input-mixin))
     (with-slots (queue) sheet
  -    (if (null queue)
  -	   nil
  -      (pop queue))))
  +    (event-queue-read-no-hang 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))))
  +        (event-queue-peek-if (lambda (x)
  +                               (typep x event-type))
  +                             queue)
  +        (event-queue-peek-if (lambda (x) (declare (ignore x)) t)
  +                             queue))))
   
   (defmethod event-unread ((sheet standard-sheet-input-mixin) event)
     (with-slots (queue) sheet
  -    (push event queue)))
  +    (event-queue-prepend queue event)))
   
   (defmethod event-listen ((sheet standard-sheet-input-mixin))
     (with-slots (queue) sheet
  -    (not (null queue))))
  +    (event-queue-listen queue)))
  +
  +;;;;
   
   (defclass immediate-sheet-input-mixin (standard-sheet-input-mixin)
     (
  
positive.code: 
  (defmethod queue-event ((sheet standard-sheet-input-mixin) event)
    (with-slots (queue) sheet
      (setq queue (nconc queue (list event)))))
    
  (defmethod handle-event ((sheet standard-sheet-input-mixin) event)
    ;; Standard practice is too ignore events
  
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
  