(define fleet-killemall
(lambda (exit-code)
(if (not (defined? '*fleet-process-list*))
(print "Error: *fleet-process-list* not defined\n")
(for-each (lambda (procinfo)
(ipc:call-async (car procinfo) 'quit exit-code))
*fleet-process-list*))))