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