Um laço for que solicita ao usuário 10 números inteiros e mostra o menor e o maior valor informado - Exercícios Resolvidos de LISP

Informe o 1º valor: 5
Informe o 2º valor: 1
Informe o 3º valor: 20
Informe o 4º valor: 6
Informe o 5º valor: 3
Informe o 6º valor: 4
Informe o 7º valor: 7
Informe o 8º valor: 12
Informe o 9º valor: 9
Informe o 10º valor: 8

O maior valor lido foi: 20
O menor valor lido foi: 1

; variáveis que vamos usar no programa
(let ((valor)(maior 0)(menor 0))
  ; vamos pedir ao usuário que informe 10 valores inteiros
  (loop for i from 1 to 10
    do
      (format t "Informe o ~D.o valor: " i) 
      ; talvez o seu compilador não precise disso
      (force-output)
      ; atribui o valor lido à variável numero
      (setq valor (read))

      ; esta é a primeira iteração do laço? se for vamos assumir que o
      ; maior e menor valor lido são o primeiro valor informado
      (if (= i 1)
        (progn
          (setq maior valor)
          (setq menor valor)		  
        )
        (progn
	  (if (> valor maior)
	    (setq maior valor))
	  (if (< valor menor)
	    (setq menor valor))
	) 		
      )
  )

  ; vamos exibir o maior e o menor valor lido
  (format t "~%O maior valor lido foi: ~D~%" maior)
  (format t "O menor valor lido foi: ~D~%" menor)  
)