~ruther/guix-local

ref: f3d2705f64ac3ef2dcdcd0d48eed413fb1fdab40 guix-local/gnu/packages/patches/sbcl-cl-redis-replace-sbcl-specific-calls.patch -rw-r--r-- 2.3 KiB
f3d2705f — Cayetano Santos gnu: ieee-p1076: Move to hdl. 30 days ago 
                                                                                
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)))