1 files changed, 53 insertions, 0 deletions
diff --git a/gnu/packages/patches/sbcl-cl-redis-replace-sbcl-specific-calls.patch b/gnu/packages/patches/sbcl-cl-redis-replace-sbcl-specific-calls.patch
new file mode 100644
index 0000000000..5fccb8e8f3
--- /dev/null
+++ b/gnu/packages/patches/sbcl-cl-redis-replace-sbcl-specific-calls.patch
@@ -0,0 +1,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)))