| Paste number 35440: | conditions for newbie |
| Pasted by: | ltbarcly |
| 1 year, 11 months ago | |
| #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.