RosettaCodeData/Task/Longest-common-subsequence/Common-Lisp/longest-common-subsequence-5.lisp

(coerce (lcs (coerce "thisisatest" 'list) (coerce "testing123testing" 'list)) 'string))))

"tsitest"