Como criar um array unidimensional em LISP preenchido com um determinado valor usando make-array e :initial-element

; vamos criar um array unidimensional contendo
; espaço para 10 elementos
(let (numeros)
  ; agora que já declaramos o nome do array,
  ; vamos reservar espaço para os 10 elementos
  ; todos preenchidos com o valor 3
  (setq numeros (make-array '(10) :initial-element 3))
  ; vamos mostrar o array criado
  (format t "Os elementos do array são: ~D~%"
    numeros)  
)