(vl-free-namedb db) frees the fast alists associated with a name
db and returns
(vl-free-namedb db) → *
The name db 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-namedb (db) (declare (xargs :guard (vl-namedb-p db))) (let ((__function__ 'vl-free-namedb)) (declare (ignorable __function__)) (progn$ (fast-alist-free (vl-namedb->names db)) (fast-alist-free (vl-namedb->pmap db)) (fast-alist-free (vl-namedb->pset db)) nil)))