(get-operand-type-code-doc code) → str
Function:
(defun get-operand-type-code-doc (code) (declare (xargs :guard (operand-type-code-p code))) (let ((__function__ 'get-operand-type-code-doc)) (declare (ignorable __function__)) (b* ((alst (cdr (assoc-equal code *operand-type-code-info*))) (doc (cdr (assoc-equal :doc alst))) ((unless doc) "")) doc)))
Theorem:
(defthm stringp-of-get-operand-type-code-doc (b* ((str (get-operand-type-code-doc code))) (stringp str)) :rule-classes :rewrite)