exts/tests/test_io.lisp


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)