eLisp递归函数

如果我重新格式化你的函数,也许你可以看到你做错了什么:

(defun my-function (x)
  (if (> (length x) 0)  ; do nothing if list is empty
      (let ((c (car x)) ; bind c to (car x)
            c)          ; bind c to nil instead
                        ; c is never used
        (my-function x)))) ; recursively call function
                           ; with unmodified x
                           ; until the stack is blown

继续得到一个错误,说x是一个void元素。

我想你在打电话 (my-function x) 具有未定义的 x 而不是把它传给你 colors 与列出 (my-function colors) 但这肯定不是你唯一的问题。