From 659ba8841265c1f9bfbfff71f9aa8b42092e6f4e Mon Sep 17 00:00:00 2001
From: "hechee@blackhole.universe.org" <>
Date: Sun, 16 Jul 2006 01:34:40 +0200
Subject: [PATCH] Removed stream interface wrappers.

---
 sockets/base-sockets.lisp | 45 ---------------------------------------------
 1 file changed, 45 deletions(-)

diff --git a/sockets/base-sockets.lisp b/sockets/base-sockets.lisp
index e894d31..1808a07 100644
--- a/sockets/base-sockets.lisp
+++ b/sockets/base-sockets.lisp
@@ -50,18 +50,6 @@
   ((lisp-stream :reader socket-lisp-stream))
   (:default-initargs :type :stream))
 
-(defgeneric socket-write-char (char socket))
-
-(defgeneric socket-read-char (socket &key eof-error-p eof-value))
-
-(defgeneric socket-write-byte (byte socket))
-
-(defgeneric socket-read-byte (socket &key eof-error-p eof-value))
-
-(defgeneric socket-write-sequence (sequence socket &key start end))
-
-(defgeneric socket-read-sequence (sequence socket &key start end))
-
 (defgeneric socket-send (buffer socket &key
                          dont-route dont-wait no-signal
                          out-of-band &allow-other-keys))
@@ -245,39 +233,6 @@
 ;;                    ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;
 
-;;
-;; Stream interface
-;;
-
-(defmethod socket-write-char (char (socket stream-socket))
-  (write-char char (socket-lisp-stream socket)))
-
-(defmethod socket-read-char ((socket stream-socket)
-                             &key eof-error-p eof-value)
-  (read-char (socket-lisp-stream socket) eof-error-p eof-value))
-
-(defmethod socket-write-byte (byte (socket stream-socket))
-  (write-byte byte (socket-lisp-stream socket)))
-
-(defmethod socket-read-byte ((socket stream-socket)
-                             &key eof-error-p eof-value)
-  (read-byte (socket-lisp-stream socket) eof-error-p eof-value))
-
-(defmethod socket-write-sequence ((sequence simple-array)
-                                  (socket stream-socket)
-                                  &key (start 0) end)
-  (write-sequence sequence (socket-lisp-stream socket) :start start :end end))
-
-(defmethod socket-read-sequence ((sequence simple-array)
-                                 (socket stream-socket)
-                                 &key (start 0) end)
-  (read-sequence sequence (socket-lisp-stream socket) :start start :end end))
-
-
-;;
-;; "Low-level" interface
-;;
-
 (defmethod socket-send ((buffer simple-array)
                         (socket socket-stream-internet-active) &key
                         dont-route dont-wait (no-signal *no-sigpipe*)
-- 
2.11.4.GIT