Get the default
(get-default-input-wrapper-enable wrld) → bool
See set-default-input-wrapper-enable.
Function:
(defun get-default-input-wrapper-enable (wrld) (declare (xargs :guard (plist-worldp wrld))) (let ((__function__ 'get-default-input-wrapper-enable)) (declare (ignorable __function__)) (b* ((table (table-alist+ *defaults-table-name* wrld) ) (pair (assoc-eq :wrapper-enable table)) ((unless (consp pair)) (raise "No :WRAPPER-ENABLE found in APT defaults table.")) (bool (cdr pair)) ((unless (booleanp bool)) (raise "The default :WRAPPER-ENABLE is ~x0, which is not a boolean." bool))) bool)))
Theorem:
(defthm booleanp-of-get-default-input-wrapper-enable (b* ((bool (get-default-input-wrapper-enable wrld))) (booleanp bool)) :rule-classes :rewrite)