(ipasir-reinit$c ipasir$c) → ipasir$c
Function:
(defun ipasir-reinit$c (ipasir$c) (declare (xargs :stobjs (ipasir$c))) (declare (xargs :guard (and (eq (ipasir$a->status (ipasir-get ipasir$c)) :undef) (consp (ipasir$a->history (ipasir-get ipasir$c)))))) (let ((__function__ 'ipasir-reinit$c)) (declare (ignorable __function__)) (ipasir-set (ipasir-reinit$a (ipasir-get ipasir$c)) ipasir$c)))