Read a file line by line: Difference between revisions
Content added Content deleted
| Line 330: | Line 330: | ||
}</lang> |
}</lang> |
||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |
||
<lang lisp> |
<lang lisp> |
||
(with-open-file (input "file.txt") |
|||
(loop for line = (read-line input nil) |
(loop for line = (read-line input nil) |
||
while line do (format t "~a~%" line)))</lang> |
while line do (format t "~a~%" line)))</lang> |
||