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