(when (not lex) (error "Can't lex this: ~S" text))
(let
((val (funcall (third lex) (subseq text 0 (funcall (cadr lex) text)))))
(when (not lex) (error "Can't lex this: ~S" text))
(let
((val (funcall (third lex) (subseq text 0 (funcall (cadr lex) text)))))