(aignet-clear aignet) clears the aignet, essentially without resizing its arrays.
Logically, just returns
In the execution we reset the counters associated with the Aignet, but the actual arrays are left unchanged (unless there are no nodes at all, in which case a very small node array is allocated.)
Function:
(defun aignet$a::aignet-clear (aignet) (declare (ignore aignet)) (declare (xargs :guard t)) (let ((__function__ 'aignet$a::aignet-clear)) (declare (ignorable __function__)) nil))