Common lisp 不是Lisp中所需的类型？
我正在编写一个程序，它接受一个列表，并将所有元素（无论是atom、cons还是列表）替换为“X”。因此，如果我要用以下公式计算我的函数：Common lisp 不是Lisp中所需的类型？,common-lisp,Common Lisp,我正在编写一个程序，它接受一个列表，并将所有元素（无论是atom、cons还是列表）替换为“X”。因此，如果我要用以下公式计算我的函数： ((A B) (C . D) E)) 它会回来的 ((X X) (X . X) X)) 但是，在尝试评估函数时，我不断遇到“X不是预期类型列表”错误。但我不明白为什么。我正在Windows下使用Allegro Common Lisp Express edition。我做错了什么 (defun exify (lst) (exify-aux lst nil
((A B) (C . D) E))
((X X) (X . X) X))
(defun exify (lst)
(exify-aux lst nil))
(defun exify-aux (lst acc)
(if (null lst)
acc
(if (atom (car lst))
(append 'x acc)
(if (consp (car lst))
(append (cons 'x 'x) acc)
(if (listp (car lst))
(append (exify-aux (car lst) nil) acc)
(if (eq (car lst) nil)
(append nil acc))))))
(exify-aux (cdr lst) acc))
（附加'x acc）（append nil acc）（）（追加“x acc”）另外，
（append nil acc）（）（解除退出辅助（lst acc）
如果正确的话，整个街区都不会有任何结果
（如果（空lst）
行政协调会
（如果（原子（汽车lst））
（附加'x acc）
（如有）（消耗（车辆lst））
（附加（cons'x'x）附件）
（如果（列表P（车辆lst））
（附加（退出辅助系统（车辆lst）无）acc）
（如果（等式（轿厢lst）无）
（附件无附件(()()))）
这是尾部调用，它被无条件调用
（退出辅助系统（cdr lst）acc）
cons（取消退出（树）
（cond（（空树）nil）
（（原子树）'x）
（t（cons（exify（car tree））
（退出（cdr树(()()))）
（取消退出（树）
（收集树木）
（λ（）”x）；将所有非零叶替换为x
#“反对；反对
零);；复制空页
（定义累积树（树项组合器空值）
（标签）（记录（树）
（cond（（空树）空值）
（（原子树）（funcall术语树））
（t（funcall组合器（rec（car tree））
（rec（cdr树(()()()))）
（记录树）
（解除退出辅助（lst acc）
如果正确的话，整个街区都不会有任何结果
（如果（空lst）
行政协调会
（如果（原子（汽车lst））
（附加'x acc）
（如有）（消耗（车辆lst））
（附加（cons'x'x）附件）
（如果（列表P（车辆lst））
（附加（退出辅助系统（车辆lst）无）acc）
（如果（等式（轿厢lst）无）
（附件无附件(()()))）
这是尾部调用，它被无条件调用
（退出辅助系统（cdr lst）acc）
cons（取消退出（树）
（cond（（空树）nil）
（（原子树）'x）
（t（cons（exify（car tree））
（退出（cdr树(()()))）
（取消退出（树）
（收集树木）
（λ（）”x）；将所有非零叶替换为x
#“反对；反对
零);；复制空页
（定义累积树（树项组合器空值）
（标签）（记录（树）
（cond（（空树）空值）
（（原子树）（funcall术语树））
（t（funcall组合器（rec（car tree））
（rec（cdr树(()()()))）
（记录树）
appendcons（append（list'x）foo）（cons'x foo）exify auxappendcons（append（list'x）foo）（cons'x foo）exify aux