(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*))
())
(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)
())