blob: 76b91ce69969002e502c9ba946a71e00354947c4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(loadext "io.so")
(defvar fp (open-file "./test_input.txt" "r"))
(read-char fp)
(read-char fp)
(read-char fp)
(stream-close fp)
(defvar fp (open-file "./test_input.txt" "r"))
(read-line fp)
(stream-close fp)
(defvar fp (open-file "./test_input.txt" "r"))
(lines fp)
(stream-close fp)
|