Recognizer for vl-loadconfig structures.
(vl-loadconfig-p x) → *
Function:
(defun vl-loadconfig-p (x) (declare (xargs :guard t)) (let ((__function__ 'vl-loadconfig-p)) (declare (ignorable __function__)) (and (consp x) (eq (car x) :vl-loadconfig) (mbe :logic (and (alistp (cdr x)) (equal (strip-cars (cdr x)) '(edition strictp start-files start-names search-path search-exts include-dirs defines plusargs filemapp debugp flush-tries mintime))) :exec (fty::alist-with-carsp (cdr x) '(edition strictp start-files start-names search-path search-exts include-dirs defines plusargs filemapp debugp flush-tries mintime))) (b* ((edition (cdr (std::da-nth 0 (cdr x)))) (strictp (cdr (std::da-nth 1 (cdr x)))) (start-files (cdr (std::da-nth 2 (cdr x)))) (start-names (cdr (std::da-nth 3 (cdr x)))) (search-path (cdr (std::da-nth 4 (cdr x)))) (search-exts (cdr (std::da-nth 5 (cdr x)))) (include-dirs (cdr (std::da-nth 6 (cdr x)))) (defines (cdr (std::da-nth 7 (cdr x)))) (plusargs (cdr (std::da-nth 8 (cdr x)))) (filemapp (cdr (std::da-nth 9 (cdr x)))) (debugp (cdr (std::da-nth 10 (cdr x)))) (flush-tries (cdr (std::da-nth 11 (cdr x)))) (mintime (cdr (std::da-nth 12 (cdr x))))) (and (vl-edition-p edition) (booleanp strictp) (string-listp start-files) (string-listp start-names) (string-listp search-path) (string-listp search-exts) (string-listp include-dirs) (vl-defines-p defines) (string-listp plusargs) (booleanp filemapp) (booleanp debugp) (posp flush-tries) (mintime-p mintime))))))
Theorem:
(defthm consp-when-vl-loadconfig-p (implies (vl-loadconfig-p x) (consp x)) :rule-classes :compound-recognizer)