Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun most-urgent-process ()
- (let ((proc1 *default-proc*) (max -1) (val1 t))
- (dolist (p *procs*) (let ((pri (proc-pri
- (if (> pri max) (let ((val (or
- p)))
- (not (proc-wait p)) (funcall (proc-wait p)))))
- (when val
- (setq proc1 p
- max pri
- val1 val)))))) (values proc1 val1)))
Advertisement
Add Comment
Please, Sign In to add comment
