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 - 18 Feb 2025 15:32:07