高手帮我看看这个函数是否有错？

xiaoliang200

(Defun vllist-explode (lst)
    (cond
      ((not lst) nil)
      ((atom lst) (list lst))
      ((append (vllist-explode (car lst))
        (vllist-explode (cdr lst))
       )
      )
    )
  )

网上看到的一个函数。定义的函数里包含了自身定义的函数，我觉得错了，可又运行正常！谁能给我解答一下？

龙龙仔

运行正常！說明沒有錯,這類程序稱遞歸程序

xiaoliang200

谢谢！又学到了一招！