Efficient way to use "subseq"s in Common Lisp