		Search-engine friendly clone of the ACL2 documentation.

Cblock

Vl-classic-control-p

Recognize Verilog-1995 style @(a or b or c or ...) sensitivity lists.

Signature
(vl-classic-control-p x) → *
Arguments: x — Guard (vl-delayoreventcontrol-p x).

Note that we don't allow posedges or negedges, here.

Definitions and Theorems

Function: vl-classic-control-p

(defun vl-classic-control-p (x)
  (declare (xargs :guard (vl-delayoreventcontrol-p x)))
  (let ((__function__ 'vl-classic-control-p))
    (declare (ignorable __function__))
    (and (mbe :logic (vl-eventcontrol-p x)
              :exec (eq (tag x) :vl-eventcontrol))
         (consp (vl-eventcontrol->atoms x))
         (vl-evatomlist-edgefree-p (vl-eventcontrol->atoms x))
         (vl-idexprlist-p
              (vl-evatomlist->exprs (vl-eventcontrol->atoms x))))))