LISP：保持单词以给定字母开头

Question

我正在尝试编写一个函数，该函数应该返回以给定字母开头的每个单词，例如： 列表 (y1,y2,y3,x1,x2,x3 (function 'x list) => (x1, x2, x3)

我能够编写一个执行相同操作的函数，但是对于最后一个字母，但我无法恢复它，我不知道为什么。 这是功能：

(defun F (LETTER L)
 (cond
   ((atom L) nil)
   ((equal (char (string (car L)) (- (length (string (car L)) )1  )) (char (string LETTER) 0) )
     (rplacd L (F LETTER(cdr L))) )
   ((F LETTER(cdr L))) ) )

返回以我在参数中给出的字母结尾的每个单词。 谢谢你的建议:)