anchor.diff:                (did-something-p nil))
             (labels ((fun (xs)
   		     (cond ((null xs)
  -                          ;; We reached the queue's tail: Append the new event, construct a new
  -                          ;; one if necessary.
  +                          ;; We reached the queue's tail: Append the
  +                          ;; new event, construct a new one if
  +                          ;; necessary.
                             (when did-something-p
                               (setf item
                                 (make-instance 'window-repaint-event
  
positive.code: 	     :initarg :delegate
  	     :accessor delegate-sheet-delegate) ))
  
  ;;; Don't know if this event queue stuff is completely right, or if it matters
  ;;; much...
  
  (defmethod initialize-instance :after ((obj delegate-sheet-input-mixin)
  				       &key input-buffer)
  
negative.code:          :initform (make-condition-variable)
  	 :accessor event-queue-processes
  	 :documentation "Condition variable for waiting processes")
     ;; experimental extension for scheduled event insertion
     (schedule-time
           :initform nil
           :accessor event-schedule-time
  