From ce359ef1500b783c1369185f7dee581d0508d6c1 Mon Sep 17 00:00:00 2001
From: Stelian Ionescu <sionescu@common-lisp.net>
Date: Sun, 29 Apr 2007 17:29:40 +0200
Subject: [PATCH] Added support for {READ,WRITE}-SEQUENCE on OpenMCL.
 Signed-off-by: Stelian Ionescu <sionescu@common-lisp.net>

---
 sockets/defpackage.lisp          | 10 +++++-----
 sockets/gray-stream-methods.lisp | 12 ++++++++----
 2 files changed, 13 insertions(+), 9 deletions(-)

diff --git a/sockets/defpackage.lisp b/sockets/defpackage.lisp
index d483bdc..73396e7 100644
--- a/sockets/defpackage.lisp
+++ b/sockets/defpackage.lisp
@@ -43,13 +43,13 @@
      #:stream-read-byte #:stream-write-byte
      #:stream-peek-char #:stream-read-char #:stream-read-char-no-hang
      #:stream-unread-char #:stream-read-line #:stream-listen
-     #-clisp #:stream-read-sequence
+     #-(or clisp openmcl) #:stream-read-sequence
+     #+openmcl #:stream-read-vector
      #+clisp #:stream-read-char-sequence #+clisp #:stream-read-byte-sequence
-     #-clisp #:stream-write-sequence
+     #-(or clisp openmcl) #:stream-write-sequence
+     #+openmcl #:stream-write-vector
      #+clisp #:stream-write-char-sequence #+clisp #:stream-write-byte-sequence
-     #:stream-advance-to-column #:stream-fresh-line
-     #:stream-line-column #:stream-start-line-p
-     #-clisp #:stream-line-length
+     #:stream-fresh-line #:stream-start-line-p
      #:stream-terpri #:stream-write-char #:stream-write-string)
   (:export
    ;; conditions
diff --git a/sockets/gray-stream-methods.lisp b/sockets/gray-stream-methods.lisp
index 4dc08f4..15b65c1 100644
--- a/sockets/gray-stream-methods.lisp
+++ b/sockets/gray-stream-methods.lisp
@@ -132,8 +132,10 @@
      :finally (return offset)))
 
 #-clisp
-(defmethod stream-read-sequence ((stream dual-channel-gray-stream) seq
-                                 &optional (start 0) end)
+(defmethod #-openmcl stream-read-sequence
+           #+openmcl stream-read-vector
+           ((stream dual-channel-gray-stream) seq
+            &optional (start 0) end)
   (setf (values start end) (%check-bounds seq start end))
   (when (< start end)
     (etypecase seq
@@ -277,8 +279,10 @@
      :finally (return vector)))
 
 #-clisp
-(defmethod stream-write-sequence ((stream dual-channel-gray-stream) seq
-                                  &optional (start 0) end)
+(defmethod #-openmcl stream-write-sequence
+           #+openmcl stream-write-vector
+           ((stream dual-channel-gray-stream) seq
+            &optional (start 0) end)
   (setf (values start end) (%check-bounds seq start end))
   (when (< start end)
     (etypecase seq
-- 
2.11.4.GIT