| Paste number 35440: | conditions for newbie |
| Pasted by: | ltbarcly |
| When: | 2 years, 5 months ago |
| Share: | Tweet this! | http://paste.lisp.org/+RCG |
| Channel: | #lisp |
| Paste contents: |
(defun cat (filename)
(with-open-file (stream filename)
(loop
(print (read-line stream)))))
(defun ecat (filename)
(handler-case () (end-of-file ()))
(with-open-file (stream filename)
(loop
(print (read-line stream)))))
This paste has no annotations.