(vl-description-has-comments-p x) → *
Function:
(defun vl-description-has-comments-p (x) (declare (xargs :guard (vl-description-p x))) (let ((__function__ 'vl-description-has-comments-p)) (declare (ignorable __function__)) (b* ((x (vl-description-fix x))) (case (tag x) ((:vl-module :vl-udp :vl-interface :vl-package :vl-program :vl-class :vl-config :vl-typedef) t) (otherwise nil)))))