with-open-file example

(with-open-file (I "foo.lisp")

(loop

(let ((line (read-line I nil nil)))

(if (eq1 line nil) (return))

(write-line

line

*standard-output*))))

Previous slide

Next slide

Back to first slide

View graphic version