programa em common lisp

(defun s(n)
  "Obeter um valor e o soma a cada iteracao no loop"
    (loop repeat n do (setq a(read))
      sum a))

---------------------------------------
programa em C

#include <stdio.h>
#include <stdlib.h>

void recebeESoma(int max){
  // essa funcao recebe o tamanho maximo para o vetor, os valores para formar o vetor e depois os soma

  int *v = (int* ) malloc (max * sizeof(int)); // meu vetor
  int soma = 0;

  // recebendo valores no meu vetor e ja fazendo a soma
  for (int i = 0; i < max; i++){
    scanf("%d", &v[i]);
    soma += v[i];
  }
  free(v);
  printf("%d", soma);
}

int main() {
  int n;

  // recebendo tamanho maximo para meu vetor
  scanf("%d", &n);
  // passo N para a funcao soma
  recebeESoma(n);

  return 0;
}