;;; ================================================================
;;; Regexp -> tNFA
+;;;###autoload
(defun* tNFA-from-regexp (regexp &key (test 'eq))
"Create a tagged NFA that recognizes the regular expression REGEXP.
The return value is the initial state of the tagged NFA.
;;; ================================================================
;;; tNFA matching
+;;;###autoload
(defun* tNFA-regexp-match (regexp string &key (test 'eq))
"Return non-nil if STRING matches REGEXP, nil otherwise.
Sets the match data if there was a match; see `match-beginning',