Size of the parsing state.
(parsize parstate) → size
This is a synonym of parstate->size at this point. It was slightly more elaborate when parstate was defined via fty::defprod.
Function:
(defun parsize$inline (parstate) (declare (xargs :stobjs (parstate))) (declare (xargs :guard (parstatep parstate))) (parstate->size parstate))
Theorem:
(defthm natp-of-parsize (b* ((size (parsize$inline parstate))) (natp size)) :rule-classes (:rewrite :type-prescription))
Theorem:
(defthm parsize-of-initparstate (equal (parsize (init-parstate nil version parstate)) 0))