Resposta ao exercício 11

(defun negativo (x)
  (if (zerop x)
    x
    (1- (negativo (1- x)))))