(defun comprimento (lista) (if (null lista) 0 (1+ (comprimento (rest lista)))))
Esta função já existe em Lisp e denomina-se length.