;;; -*- 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.)

;;; Set up to debug FALCON code.

;zwei::
;(DEFCONST ZMAIL-FRAME-EDITOR-CLOSURE-VARIABLES
;  (MERGE-CLOSURE-VARIABLE-LISTS
;    '((*STANDARD-OUTPUT* SI:SYN-TERMINAL-IO)
;      (*QUERY-IO* SYN-TYPEIN-WINDOW-IO)
;      (*ZMAIL-WINDOW* *ZMAIL-WINDOW*)
;      (*DRAFT-HEADER-WINDOW* NIL)
;      (*DRAFT-TEXT-WINDOW* NIL)
;      (*MSG-WINDOW* NIL)	;Initialized below
;      (*SUMMARY-WINDOW* NIL)
;      (*FILTER-WINDOW* NIL)
;      (*PROFILE-WINDOW* NIL)
;      (*PROFILE-EDITOR-WINDOW* NIL)		;Initialized below
;      (*COMMAND-MENU* NIL)
;      (*KEYWORD-WINDOW* NIL)
;      (*WINDOW-CONFIGURATION* NIL)
;      (*CURRENT-MSG-NAME* NIL)
;      (*ZMAIL-INTERVAL-NAME* NIL)
;      (*ZMAIL-BUFFER* NIL)
;      (*ZMAIL-BUFFER-LIST* NIL)
;      (*PRIMARY-ZMAIL-BUFFER* NIL)
;      (*ZMAIL-FILE-NAME* NIL)
;      (*MSG* NIL)
;      (*MSG-NO* NIL)
;      (*MSG-POINT-PDL* NIL)
;      (*MAJOR-MODE* 'TEXT-MODE)
;      (*ZMAIL-BACKGROUND-PROCESS*
;	(SI:MAKE-PROCESS "Zmail background"
;			 :PRIORITY -5
;			 :FLAVOR 'ZMAIL-BACKGROUND-PROCESS
;			 :SPECIAL-PDL-SIZE 4000
;			 :REGULAR-PDL-SIZE 4000.))
;      (*ZMAIL-BACKGROUND-PROCESS-LOCK* NIL)	;Initialized below
;      (*ZMAIL-BACKGROUND-REQUEST-CELL* NIL)	;Initialized below
;      (*BACKGROUND-RESPONSE-QUEUE* NIL)
;      (*CURRENT-MSG-KEYWORDS-STRING* NIL)
;      (*MODE-LINE-LIST*
;	'("ZMail " *ZMAIL-FILE-NAME* *CURRENT-MSG-NAME*
;	  (*CURRENT-MSG-KEYWORDS-STRING* "  " *CURRENT-MSG-KEYWORDS-STRING*)
;	  (*MACRO-LEVEL* "  Macro-level: " *MACRO-LEVEL*)
;	  (*MSG-MORE-STRING* "  " *MSG-MORE-STRING*)))
;      (*SELECTABLE-MODE-LINE-ELEMENTS*
;	'((*CURRENT-MSG-KEYWORDS-STRING* . COM-ZMAIL-KEYWORDS)
;	  (*MSG-MORE-STRING* . COM-ZMAIL-MODE-LINE-SCROLL)
;	  ))
;      (*MSG-MORE-STRING* NIL)
;      (*DRAFT-LIST* NIL)
;      (*DEFAULT-MOVE-ZMAIL-BUFFER* NIL)
;      (*MOVE-ZMAIL-BUFFER-MENU* NIL)
;      (*SELECT-ZMAIL-BUFFER-MENU* NIL)
;      (*ZMAIL-MAP-COMMAND-MENU* NIL)
;      (*UNIVERSE-SELECTION-MENU* NIL)
;      (*FILTER-SELECTION-FRAME* NIL)
;      (*UNIVERSE-DEFINITION-FRAME* NIL)
;      (*OVERLYING-WINDOW* NIL)
;      (*POP-UP-MINI-BUFFER-EDITOR* NIL)
;      )
;    TOP-LEVEL-EDITOR-CLOSURE-VARIABLES))