Top-level
(vl-shell-top argv &key (state 'state)) → state
This command just calls vl-shell-entry. It provides a
single event that saves the user arguments as an ACL2 constant named
Function:
(defun vl-shell-top-fn (argv state) (declare (xargs :stobjs (state))) (declare (xargs :guard (string-listp argv))) (let ((__function__ 'vl-shell-top)) (declare (ignorable __function__)) (vl-shell-entry (cons (cons 'defconst (cons '*vl-shell-argv* (cons (cons 'quote (cons argv 'nil)) 'nil))) 'nil))))