LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760032551. :SYSTEM-TYPE :LOGICAL :VERSION 3. :TYPE "LISP" :NAME "HALT_MAIL" :DIRECTORY ("REL3-PUBLIC" "PUBLIC" "BENCH") :SOURCE-PATTERN "( :DIRECTORY (\"REL3-PUBLIC\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2753213263. :AUTHOR "REL3" :LENGTH-IN-BYTES 1187. :LENGTH-IN-BLOCKS 2. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ;;;  -*- Mode:Lisp; Package:USER; Base:10; Lowercase:YES; Syntax: Common-lisp -*-(DEFVAR **save-ip-tcp-server-list**)(DEFVAR **save-chaos-server-alist**)(DEFUN halt-mail ()  "Shut down mail processing while running interactive benchmarks"    (WHEN (FBOUNDP 'mail:reset-mail-daemon)    (SETQ **save-ip-tcp-server-list** ip:*tcp-server-list*)          ;;; preserve old environment    (SETQ **save-chaos-server-alist** chaos:server-alist)        (mail:reset-mail-daemon)    (SETF ip:*tcp-server-list* (REMOVE 25 ip:*tcp-server-list* :key #'CAR :test #'EQL))    (SETF ip:*tcp-server-list* (REMOVE 23 ip:*tcp-server-list* :key #'CAR :test #'EQL))    (SETF chaos:server-alist (REMOVE "MAIL" chaos:server-alist :key #'car :test #'STRING-EQUAL))    (SETF chaos:server-alist (REMOVE "SMTP" chaos:server-alist :key #'car :test #'STRING-EQUAL))    (FORMAT t "~%Mail service is halted")    ))    (DEFUN restart-mail ()  "Restart all servers halted by the function halt-mail"    (WHEN (FBOUNDP 'mail:reset-mail-daemon)    (SETF ip:*tcp-server-list* **save-ip-tcp-server-list**)    (SETF chaos:server-alist **save-chaos-server-alist**)    (mail:reset-mail-daemon t)    ))t let gc-reports get in the way;;; locations of the framework, benchmark, and result files#-3600(fs:add-logical-pathname-host "BENCH" "PUBLIC"    '(("bench" "rel3.bench;")      ("gabriel" "rel3.bench;")       ))#+3600(fs:set-logical-pathname-host "BENCH" :physical-host "PUBLIC"    :translations    '(("bench" "rel3.bench;")      ("gabriel" "rel3.bench;")      ))#-3600(fs:add-logical-pathname-host "RESULTS" "PUBLIC"    '(("results" "rel3.bench;")))#+3600(fs:set-logical-pathname-host "RESULTS" :physical-host "PUBLIC"    :translations    '(("results" "rel3.bench;")));;;;;;;;;------------------------THE DEFSYSTEMS----------------------------;;;          ;;;(defsystem batch-benchmarks  (:pathname-default "bench:bench;")  (:module run "bench:bench;run-benchmarks")  (:module run-gabriel "