anchor.diff:      (when (and schedule-time (> (now) schedule-time))
         (let* ((event (pop schedule))
                (sheet (pop schedule)))
  +        (declare (ignore sheet))
           (setf schedule-time (pop schedule))
  -        (dispatch-event sheet event)))))
  +        (event-queue-prepend event-queue event)))))
   
   ;;; ugh. FIXME when I work - build a priority queue or something
   (defun schedule-event-queue (event-queue sheet event delay)
  
positive.code: 
  (defmethod event-queue-read-no-hang ((queue concurrent-event-queue))
    (do-port-force-output queue)
    (with-lock-held ((event-queue-lock queue))
      (%event-queue-read queue)))
  
  ;;; XXX Should we do something with the wait function? I suspect that
  
negative.code: 
  (defclass concurrent-event-queue (simple-event-queue)
    ((lock :initform (make-recursive-lock "event queue")
           :reader event-queue-lock)
     (processes
           :initform (make-condition-variable)
  