Add a non-fatal warning to the ppst.
(vl-maybe-ppst-warn &key
when type msg args (fn '__function__)
(ppst 'ppst))
→
ppstWe don't print anything since it's just a warning.
Function:
(defun vl-maybe-ppst-warn-fn (when type msg args fn ppst) (declare (xargs :stobjs (ppst))) (declare (xargs :guard (and (symbolp type) (stringp msg) (true-listp args) (symbolp fn)))) (let ((__function__ 'vl-maybe-ppst-warn)) (declare (ignorable __function__)) (b* ((warnings (vl-ppst->warnings)) ((unless when) ppst) (warnings (warn :type type :msg msg :args args :fn fn))) (vl-ppst-update-warnings warnings))))