The
(vl-help args &key (state 'state)) → state
Function:
(defun vl-help-fn (args state) (declare (xargs :stobjs (state))) (declare (xargs :guard (string-listp args))) (let ((__function__ 'vl-help)) (declare (ignorable __function__)) (b* (((unless (or (atom args) (atom (cdr args)))) (die "Usage: vl help <command>~%") state) (command (if (atom args) "help" (car args))) (help (vl-toolkit-help-message command)) ((unless help) (die "Unknown command ~s0." command) state)) (vl-cw-ps-seq (vl-print help)) state)))