Plaster

ONE-MORE-RE-NIGHTMARE> (trivia:defpattern tag-free (x) (alexandria:with-gensyms (y) `(trivia:guard1 (,y) (not (has-tags-p ,y)) ,y ,x))) #<FUNCTION 'TAG-FREE {53A84BCB}> ONE-MORE-RE-NIGHTMARE> (trivia:defpattern tag-free (x) (alexandria:with-gensyms (y) `(trivia:guard1 (,y) (not (has-tags-p ,y)) ,y ,x))) #<FUNCTION 'TAG-FREE {53A84EBB}> ONE-MORE-RE-NIGHTMARE> (trivia:match (parse-regular-expression "abc") ((tag-free x) x)) WARNING: failed to infer the type from test (HAS-TAGS-P ?) ! WARNING: failed to infer the type from test (NOT (HAS-TAGS-P ?)) ! WARNING: failed to infer the type from test (HAS-TAGS-P ?) ! WARNING: failed to infer the type from test (NOT (HAS-TAGS-P ?)) ! WARNING: failed to infer the type from test (HAS-TAGS-P ?) ! WARNING: failed to infer the type from test (NOT (HAS-TAGS-P ?)) !