自定义的函数求列表长度逆向列表

1.用 LISP语言写一个函数定义用来求表的长度。
(defun ilength (lst)
  (cond 
  ((null lst) 0)
  (t (+ 1 (ilength (cdr lst))))))
2.用LISP语言写一个函数定义将表逆置。
(defun ireverse (lst)
  (cond
  ((null lst) lst)
  ((= 1 (ilength lst)) lst)
  (t (append (ireverse (cdr lst)) (cons (car lst) nil)))))
lispworks 6.0.1 免费版下测试通过。