anchor.diff:    (defun send-event (obj)
       (bt:with-lock-held (lock)
         (enqueue queue obj)
  -      (bt:condition-notify wait)))
  -  )
  +      (bt:condition-notify wait))))
   
   (defun send-abort-event (editor-thread)
     (bt:interrupt-thread editor-thread
                          (lambda ()
                            (error 'editor-interrupt))))
  -
  -(defun send-resize-screen-event (width height)
  -  (send-event (list +resize-screen+ width height)))
   
   (defun receive-event (timeout)
     (loop
  
positive.code: 
  (export '(read-event
            send-event
            send-abort-event
            send-resize-screen-event))
  
  (declaim (inline make-queue enqueue dequeue empty-queue-p))
  
  
negative.code:             ((eql e :timeout)
               (assert timeout)
               (return nil))
              (t
               (return e))))))
  
  