最後の数文字を取り出す関数

デフォルトでこういうのありそうだが、見つけられないので自分で定義。String用に欲しいと思ったが、使用する関数の内容的にはリストとベクタ（シーケンス）に対しては使えるはず。

(defun subseq-from-last (value-sequence x)
  (subseq value-sequence (- (length value-sequence) x) (length value-sequence)))