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 - 21 Dec 2011