mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-04-06 21:20:33 +02:00
c98af4b77a
* gnu/packages/lisp-xyz.scm (sbcl-cl-redis)[patches]: Add patch removing use of sbcl internals. Change-Id: I8b7df9eea61557a856851f8b218ab31d2363e886 Signed-off-by: jgart <jgart@dismail.de>
54 lines
2.3 KiB
Diff
54 lines
2.3 KiB
Diff
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)))
|