(vl-starname name) is given a string, say
(vl-starname name) → *
Such names are the convention for naming modules in E.
Function:
(defun vl-starname (name) (declare (xargs :guard (stringp name))) (let ((__function__ 'vl-starname)) (declare (ignorable __function__)) (intern-in-package-of-symbol (implode (cons #\* (str::append-chars name (list #\*)))) 'acl2::foo)))
Theorem:
(defthm symbolp-of-vl-starname (symbolp (vl-starname name)) :rule-classes :type-prescription)