Recognizer of a list of physical addresses
(physical-address-listp lst) → *
Function:
(defun physical-address-listp (lst) (declare (xargs :guard t)) (let ((__function__ 'physical-address-listp)) (declare (ignorable __function__)) (if (equal lst nil) t (and (consp lst) (physical-address-p (car lst)) (physical-address-listp (cdr lst))))))