The Common Lisp functions short-site-name and long-site-name can be configured using setf:
(setf (long-site-name) "LispWorks Ltd" (short-site-name) "LW")
LispWorks® User Guide and Reference Manual - 01 Dec 2021 19:30:24