;;; -*- Mode:LISP; Package:HL; Readtable:CL; Base:10 -*-

(defun adjust-all-process-quanta (&optional (quantum 60.))
  (setq si::default-quantum quantum)
  (mapcar #'(lambda (proc) (zl:send proc :set-quantum quantum))
	  si:all-processes))