EVAL/APPLY: слишком много аргументов для F

Question

Привет, почему я получаю *** - EVAL/APPLY: too many arguments given to F в вызове функции с параметром вложенных списков. Я не могу понять это, так как я передал простой вложенный список.

(defun f (L) 
    (cond 
     ((NULL l) nil) 
     ((listp (car L)) 
      (append (F(car L))) (F(cdr L) (car (F (car L))))) 
     (T (list(car L))) 
    ) 
) 

(setq A '((1) 2 3)) 
(f A) 

Answer 1

Это лучше форматирование должно сделать его легко обнаружить ошибку:

(defun f (l) 
    (cond ((null l) nil) 
     ((listp (car l)) 
     (append (f (car l))) 
     (f (cdr l) 
      (car (f (car l))))) 
     (t (list (car l))))) 

Если это не помогает, используйте SBCL скомпилировать функцию. Это даст вам очень четкое сообщение об ошибке.