X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Fclasses.lisp;h=1ade55e1f1395c2f6e9a46f39b1d7d03994c0197;hb=59f1de77587818635573073a14ce80c2d398f56c;hp=51d2bd1876833ecc43ac1969629b1c777c24f7e1;hpb=ac85367426b222612311c5cf7b061ff89c64d825;p=sbcl.git

diff --git a/contrib/sb-simple-streams/classes.lisp b/contrib/sb-simple-streams/classes.lisp
index 51d2bd1..1ade55e 100644
--- a/contrib/sb-simple-streams/classes.lisp
+++ b/contrib/sb-simple-streams/classes.lisp
@@ -8,11 +8,7 @@
 
 (in-package "SB-SIMPLE-STREAMS")
 
-;;;
-;;; BANNER ADS!!
-;;;
-
-(pushnew :sb-simple-stream *features*)
+;;; (pushnew :sb-simple-stream *features*)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   #+(or X86) (pushnew :little-endian *features*))
@@ -259,7 +255,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)
   ())