;;; -*- Mode:LISP; Package:USER; Base:10 -*- 

(defun set-all-quanta (amt)
  (setq si::default-quantum amt)
  (mapcar #'(lambda (proc)
	      (send proc :set-quantum amt))
	  si::all-processes))

(set-all-quanta 6.)