Does a pretty-printer instruction represent a single object, which could plausibly be the value of a keyword parameter?
The only kinds of instructions we don't match are:
Function:
(defun keyword-param-valuep (x eviscp) (declare (xargs :guard (and (pinst-p x) (booleanp eviscp)))) (let ((acl2::__function__ 'keyword-param-valuep)) (declare (ignorable acl2::__function__)) (case (pinst-kind x) (:flat (b* ((what (pflat->what (pinst-flat->guts x))) ((when (or (atom what) (and eviscp (evisceratedp what)))) nil)) (not (cdr what)))) ((:quote :wide :indent) t) (otherwise nil))))