Resposta ao exercício 44

(defun comprimento (lista)
  (if (null lista)
    0
    (1+ (comprimento (rest lista)))))

Esta função já existe em Lisp e denomina-se length.