The Common Lisp functions short-site-name and long-site-name can be configured using setf :
short-site-name
long-site-name
setf
(setf (long-site-name) "LispWorks Ltd"
(short-site-name) "LW")