The Common Lisp functions short-site-name and long-site-name can be configured using setf:
setf
(setf (long-site-name) "LispWorks Ltd"
(short-site-name) "LW")
LispWorks User Guide and Reference Manual - 13 Feb 2015