Pretty-print a formal parameter list.
(print-jparam-list params) → parts
Function:
(defun print-jparam-list (params) (declare (xargs :guard (jparam-listp params))) (let ((__function__ 'print-jparam-list)) (declare (ignorable __function__)) (cond ((endp params) nil) (t (cons (print-jparam (car params)) (print-jparam-list (cdr params)))))))
Theorem:
(defthm msg-listp-of-print-jparam-list (b* ((parts (print-jparam-list params))) (msg-listp parts)) :rule-classes :rewrite)