Here’s how I would code the example in Common Lisp:
(with-open-file (s "rl.lisp" :direction :input)
(do ((line (read-line s nil :eof) (read-line s nil :eof)))
((eq line :eof) (values))
(format t "~A~%" line)))Here’s how I would code the example in Common Lisp:
(with-open-file (s "rl.lisp" :direction :input)
(do ((line (read-line s nil :eof) (read-line s nil :eof)))
((eq line :eof) (values))
(format t "~A~%" line)))