ciclo.lsp

; Imprime los numero del 1 al 'numero'

(defun ciclo (numero)
  (do ((n 1 (+ n 1)))
    ((> n numero) 'fin)
    (print n)
  )
)