blob: 5fccb8e8f3581bf4bb77b7e77218d5e7b948e2d1 (
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
|
diff --git a/connection.lisp b/connection.lisp
index d13f646..404567b 100644
--- a/connection.lisp
+++ b/connection.lisp
@@ -29,8 +29,8 @@ for debugging purposes. The default is *STANDARD-OUTPUT*.")
;; For SSL streams
(defmethod trivial-gray-streams:stream-clear-input ((stream cl+ssl::ssl-stream))
(trivial-gray-streams:stream-clear-input (cl+ssl::ssl-stream-socket stream)))
-
- (defmethod trivial-gray-streams:stream-read-sequence
+
+ (defmethod trivial-gray-streams:stream-read-sequence
((stream cl+ssl::ssl-stream) sequence start end &rest args)
(declare (ignore args))
(handler-case
@@ -45,8 +45,8 @@ for debugging purposes. The default is *STANDARD-OUTPUT*.")
(cl+ssl::ssl-error-zero-return () bytes-read)
(cl+ssl::ssl-error-syscall () -1)
(cl+ssl::ssl-error-ssl () -1)))
-
- (defmethod trivial-gray-streams:stream-write-sequence
+
+ (defmethod trivial-gray-streams:stream-write-sequence
((stream cl+ssl::ssl-stream) sequence start end &rest args)
(declare (ignore args))
(handler-case
@@ -57,17 +57,17 @@ for debugging purposes. The default is *STANDARD-OUTPUT*.")
(cl+ssl::ssl-error-syscall () sequence)
(cl+ssl::ssl-error-ssl () sequence)))
- ;; For regular fd-streams
- (defmethod trivial-gray-streams:stream-clear-input ((stream sb-sys:fd-stream))
- (sb-impl::clear-input stream))
-
- (defmethod trivial-gray-streams:stream-read-sequence
- ((stream sb-sys:fd-stream) sequence start end &rest args)
+ ;; For regular streams
+ (defmethod trivial-gray-streams:stream-clear-input ((stream stream))
+ (clear-input stream))
+
+ (defmethod trivial-gray-streams:stream-read-sequence
+ ((stream stream) sequence start end &rest args)
(declare (ignore args))
(read-sequence sequence stream :start start :end end))
-
- (defmethod trivial-gray-streams:stream-write-sequence
- ((stream sb-sys:fd-stream) sequence start end &rest args)
+
+ (defmethod trivial-gray-streams:stream-write-sequence
+ ((stream stream) sequence start end &rest args)
(declare (ignore args))
(write-sequence sequence stream :start start :end end)
sequence)))
|
