regex.txt

CL-USER> (regex::scanner-source-from-parse-tree (regex::parse-regex "a*|bcd"))
(LAMBDA (STRING REGEX::START REGEX::END)
  (LET ((REGEX::INDEX REGEX::START))
    (BLOCK NIL
      (TAGBODY
        (GO REGEX::START)
       REGEX::START
        (UNLESS (= REGEX::INDEX REGEX::END)
          (CASE (CHAR STRING REGEX::INDEX) ((#\a) (INCF REGEX::INDEX) (GO 0))))
        (GO 1)
       1
        (RETURN NIL)
       0
        (GO 2)
       2
        (UNLESS (= REGEX::INDEX REGEX::END)
          (CASE (CHAR STRING REGEX::INDEX)
            ((#\d) (INCF REGEX::INDEX) (GO REGEX::SUCCESS))))
        (GO 3)
       3
        (UNLESS (= REGEX::INDEX REGEX::END)
          (CASE (CHAR STRING REGEX::INDEX)
            ((#\b) (INCF REGEX::INDEX) (GO 0))
            ((#\c) (INCF REGEX::INDEX) (GO 0))))
        (GO 1)
       REGEX::SUCCESS
        (RETURN REGEX::INDEX)))))