blob: faae64aefde2e343be4bcf738a5c1a2271b190cf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
(defstruct stream-wrap nil
stream
(:method put-string (me str)
(put-string str me.stream))
(:method put-char (me chr)
(put-char chr me.stream))
(:method put-byte (me byte)
(put-byte byte me.stream))
(:method get-line (me)
(get-line me.stream))
(:method get-char (me)
(get-char me.stream))
(:method get-byte (me)
(get-byte me.stream))
(:method unget-char (me chr)
(unget-char chr me.stream))
(:method unget-byte (me byte)
(unget-byte byte me.stream))
(:method put-buf (me buf pos)
(put-buf buf pos me.stream))
(:method fill-buf (me buf pos)
(fill-buf buf pos me.stream))
(:method close (me)
(close-stream me.stream))
(:method flush (me)
(flush-stream me.stream))
(:method seek (me offs whence)
(seek-stream me.stream offs whence))
(:method truncate (me len)
(truncate-stream me.stream len))
(:method get-prop (me sym)
(stream-get-prop me.stream sym))
(:method set-prop (me sym nval)
(stream-set-prop me.stream sym nval))
(:method get-error (me)
(get-error me.stream))
(:method get-error-str (me)
(get-error-str me.stream))
(:method clear-error (me)
(clear-error me.stream))
(:method get-fd (me)
(fileno me.stream)))
|