(defun most-urgent-process ()
  (let ((proc-1 *default-process*)
        (max -1)
        (value-1 true))
    (dolist (process *processes*)
      (let ((priority (process-priority process)))
        (if (> prority max)
            (let ((value (or (not (process-wait process)
                                  (funcall (process-wait process))))))
              (when value
                (setq proc1 process
                      max priority
                      value-1 value))))))
    (values proc-1 value-1)))