(vl-free-namefactory factory) frees the fast alists associated with a
name factory and returns
(vl-free-namefactory factory) → *
The name factory should never be used after this function is called, since doing so will result in fast-alist discipline failures.
Note that we leave this function enabled.
Function:
(defun vl-free-namefactory (factory) (declare (xargs :guard (vl-namefactory-p factory))) (let ((__function__ 'vl-free-namefactory)) (declare (ignorable __function__)) (progn$ (vl-free-namedb (vl-namefactory->namedb factory)) nil)))