Como ler um arquivo uma linha de cada vez em LISP usando a função open() e o laço loop for

; Este programa LISP mostra como ler o conteúdo
; de um arquivo txt uma linha de cada vez
(let ((arquivo (open "C:\\estudos_java\\alunos.txt"
  :if-does-not-exist nil)))
  ; o arquivo foi aberto com sucesso?
  (when arquivo
    ; percorremos uma linha de cada vez
    (loop for linha = (read-line arquivo nil)      
      while linha do 
	; mostramos o conteúdo da linha lida
	(format t "~a~%" linha)
      )
    ; fechamos o arquivo  
    (close arquivo)
  )
)