Warning: in local procedure `lp',
  in toplevel procedure `sre->cset':
  irregex-core.scm:3589: in procedure call to `assq', expected argument #2 of type `(list-of (pair symbol (list symbol char char char char)))', but was given an argument of type `(pair (pair symbol (list symbol char char char char)) (pair (list symbol symbol (list symbol char char char char) (list string)) (pair (list symbol symbol char char char char) (pair (pair symbol symbol) (pair (list symbol symbol char char char char char char) (pair (pair symbol symbol) (pair (pair symbol symbol) (pair (list symbol symbol char char) (pair (pair symbol symbol) (pair (list symbol symbol char char) (pair (pair symbol symbol) (pair (list symbol symbol char char) (pair (pair symbol symbol) (pair (pair symbol symbol) (pair (list symbol symbol char char char char char char char char char char char char char char char char char char char char char char char) (pair (pair symbol symbol) (pair (list symbol symbol symbol symbol char char char char char char char char char) (pair (pair symbol symbol) (pair (list symbol symbol char char) (pair (list symbol symbol symbol char) (pair (pair symbol symbol) (pair (pair symbol symbol) (pair (list symbol symbol symbol symbol) (pair (pair symbol symbol) (pair (list symbol symbol char char) (pair (pair symbol symbol) (pair (list symbol symbol symbol (list symbol char char char char)) (pair (pair symbol symbol) (list (list symbol symbol char char) (list symbol symbol char char char char) (list symbol symbol (list symbol char char) (list symbol char char)) (list symbol symbol symbol (list symbol (list symbol symbol char)) symbol) (list symbol symbol char char) (list symbol symbol (list symbol char char) symbol) (list symbol symbol (list symbol char char) symbol symbol) (list symbol symbol (list symbol char char) symbol symbol symbol) (list symbol symbol symbol symbol symbol symbol) (list symbol symbol symbol symbol symbol symbol) (list symbol symbol (list symbol (list symbol char char)) (list symbol symbol)) (list symbol symbol (list symbol symbol) (list symbol char (list symbol symbol)) (list symbol (list symbol char char) symbol)) (list symbol symbol symbol (list string)) (list symbol symbol symbol symbol (list string)) (list symbol symbol (list symbol symbol (list symbol symbol)) (list symbol (list string) (list symbol symbol (list symbol symbol))) (list symbol string (list symbol string))) (list symbol symbol (list symbol (list symbol symbol) string (list symbol symbol) symbol) (list symbol symbol)) (list symbol symbol char (list symbol char char) char) (pair symbol (procedure (* #!rest) (list symbol (list symbol (pair symbol (pair * list)) (list symbol * symbol))))) (list symbol symbol (list symbol (list symbol string)) (list symbol symbol) symbol) (list symbol symbol symbol (list symbol fixnum char symbol)) (list symbol symbol (list symbol fixnum fixnum symbol) (list symbol fixnum fixnum char (list symbol char) (list symbol fixnum fixnum symbol))) (list symbol symbol symbol symbol) (list symbol symbol (list symbol symbol char char)) (list symbol symbol symbol (list symbol char symbol)) (list symbol symbol (list symbol string string string string string string string string string string string string string (list symbol fixnum symbol))) (list symbol symbol (list symbol symbol char) symbol) (list symbol symbol (list symbol symbol char char char char)) (list symbol symbol symbol char symbol) (list symbol symbol symbol char char char char char char char char char char (list symbol string symbol symbol)) (list symbol symbol symbol char char char char char char char (list symbol string symbol symbol)) (list symbol symbol string (list symbol string) string (list symbol symbol symbol) (list symbol string (list symbol symbol)) (list symbol string (list symbol symbol) (list symbol string (list symbol symbol)) (list symbol string (list symbol (list symbol symbol) symbol))))))))))))))))))))))))))))))))