Top-level function for choosing the best AIGs from a list of AIG lists.
(aig-list-list-best x) → best
This is easy to use: it handles all of the details of freeing the fast alists and memo tables it uses.
Function:
(defun aig-list-list-best (x) (declare (xargs :guard t)) (let ((__function__ 'aig-list-list-best)) (declare (ignorable __function__)) (b* (((mv ?free map) (cwtime (aig-list-list-label-nodes x 0 nil) :mintime 1)) (ret (cwtime (aig-list-list-best-aux x map) :mintime 1))) (fast-alist-free map) (clear-memoize-table 'aig-collect-andnode-labels) (clear-memoize-table 'aig-collect-labels) ret)))