0.8.0.47

[sbcl.git] / contrib / sb-simple-streams / classes.lisp

diff --git a/contrib/sb-simple-streams/classes.lisp b/contrib/sb-simple-streams/classes.lisp
index 51d2bd1..0ad1d44 100644 (file)
--- a/contrib/sb-simple-streams/classes.lisp
+++ b/contrib/sb-simple-streams/classes.lisp
@@ -8,21 +8,7 @@
 
 (in-package "SB-SIMPLE-STREAMS")
 
-;;;
-;;; BANNER ADS!!
-;;;
-
-(pushnew :sb-simple-stream *features*)
-
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  #+(or X86) (pushnew :little-endian *features*))
-
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  #-little-endian (pushnew :big-endian *features*))
-
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  #-(or big-endian little-endian) (error "Unsupported architecture"))
-
+;;; (pushnew :sb-simple-stream *features*)
 
 ;;;
 ;;; TYPES FOR BUFFER AND STRATEGY FUNCTIONS
@@ -259,7 +245,8 @@
   ())
 
 (def-stream-class socket-simple-stream (dual-channel-simple-stream)
-  ())
+  ((socket :initform nil :type (or sb-bsd-sockets:socket null)
+           :initarg :socket sb-pcl::location 27)))
 
 (def-stream-class socket-base-simple-stream (dual-channel-simple-stream)
   ())