Smash *vls-root* with something new.
(set-vls-root new-root) → *
Function:
(defun set-vls-root (new-root) (declare (xargs :guard (stringp new-root))) (let ((__function__ 'set-vls-root)) (declare (ignorable __function__)) (raise "Under the hood definition not installed.")))