read-line

(read-line archivo)

Siguiente línea del archivo, sin el salto de línea, o nil al final.

(while (setq l (read-line f)) (princ l))

Diferencias con AutoCAD

Sin archivo no lee del teclado: use getstring.